FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
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! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Calcular numero de dias entre dos fechas | vero | Varios | 22 | 31-05-2011 14:37:34 |
Funcion o componente para calcular el md5? | flystar | Varios | 8 | 05-08-2010 13:56:17 |
funcion para saber los dias que hay entre dos fechas | estebanx | Varios | 5 | 19-04-2006 23:01:51 |
como calcular los dias entre fechas. | carlos gonzalez | Varios | 2 | 27-08-2005 01:30:59 |
calcular dias en reporte | @-Soft | Impresión | 5 | 18-12-2003 15:27:34 |
|