FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problemas con Calculo entre Fechas
Buenas. tardes. Le pido coplaboracion con el siguiente problema. Al tratar de calcular el tiempo de servicio de una persona, se me pierden 26 dias. Este problema se presenta cuando la fecha inicial es anterior al año 2000 y la fecha de control es posterior al año 2000. Me podrian dar alguna idea de como solucionar ese problema.
Anexo el codigo que estoy utilizando: DecodeDate(FecIngreso.Date, an, mn, dn); DecodeDate(Now, ahoy, mhoy, dhoy); if (dn > dhoy) then begin rd1 := 30 + dhoy - dn; rm1 := rm1 - 1 end else rd1 := dhoy - dn; mhoy := mhoy + rm1; if (mn > mhoy) then begin rm1 := 12 + mhoy - mn; ra1 := ra1 - 1; end else rm1 := mhoy - mn; ra1 := ra1 + ahoy - an; |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Calcular numero de dias entre dos fechas | vero | Varios | 22 | 31-05-2011 14:37:34 |
¿Alguien sabe de una función que devuelva la diferencia entre dos fechas? | nuri | Varios | 8 | 21-07-2005 00:32:41 |
numero de semanas entre 2 fechas | marrullas | SQL | 1 | 10-05-2004 19:21:18 |
Tiempo que hay entre dos fechas | cmgenny | Varios | 3 | 03-10-2003 20:06:37 |
Diferencia entre fechas.... | seb@ | OOP | 1 | 21-08-2003 15:57:22 |
|