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. |
con que restes 2 variables de tipo fecha, la parte entera te da el numero de dias de diferencia y la parte fraccional en formato de hora te da la diferencia en horas-minutos-segundos-milisegundos
Saludos! |
La franja horaria es GMT +2. Ahora son las 12:14:23. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi