Aportacion Funcion para calcular dias : DaysForDate

[bitbow]

Saludos a los compañeros del foro, aqui les dejo una funcion que me vi forzado a crear ya que uso Delphi 5 y la libreria DateUtils aun no esta implementada en el.

function DaysForDate(fecha_fin : String ):String;
var
fechax : Currency;
begin
fechax := CompToCurrency(CompToCurrency(TimeStampToMSecs( DateTimeToTimeStamp(StrToDateTime(fecha_fin))) - TimeStampToMSecs( DateTimeToTimeStamp(Now))));

Result := Copy(CurrToStr(fechax/86400000),0,2);
end;

Uso:

DaysForDate('31/12/2010 11:59:00 p.m.');

Espero y les sea de utilidad, la verdad fue la forma mas rapida que encontre, es claro que deben existir mas formas de hacerlo.