Aportacion Funcion para calcular dias : DaysForDate
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.
|