FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Error con fecha (fecha ya pasada)
En primer lugar, saludos, y gracias por prestar atencion a este mensaje.
El caso es que tengo un pequeño trozo de código dónde consulto la fecha del sistema, y luego, muestro el año (solo para verificar que hasta aqui todo funciona correctamente). El problema, es que el año es el 1899... Si; hace mas de 100 años. Por si sirve de algo dejaré aquí el código:
Tengo entendido que cosas así suelen ocurrir cuando falla la pila de la placa base, pero en mi caso no es asi, la fecha de windows es la correcta, i no da problemas. Alguien sabe que puede ocurrir? Última edición por Rancy fecha: 27-06-2008 a las 11:29:35. Razón: para ver mas claramente el código |
#2
|
||||
|
||||
No has inicializado la variable data. Con lo cual pilla la fecha por defecto.
Código:
procedure calc_anys(var anysup: integer; var anyinf: integer; var ComboboxEdat: TCombobox); var year, month, day:word; Data: TDateTime; begin //Fecha hoy Data:=date; DecodeDate(Data, Year, Month, Day); showmessage(IntToStr(year)); end; |
#3
|
|||
|
|||
Muchas gracias, ya funciona correctamente!
Fuí iluso, y creí que la funcion DecodeDate usaba la hora del sistema. Bueno, ya se una coas más! |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
DateTimePicke ' Fecha Pago saber Fecha vencimiento' | BuRtOn | Varios | 5 | 09-06-2008 06:07:51 |
conversion de fecha texto a fecha formato date | shinyi | OOP | 3 | 17-12-2007 20:19:49 |
Desde la fecha inicio hasta la fecha final que me grabe los meses contenidos | Renis | SQL | 4 | 01-10-2007 17:21:44 |
Ayuda, Como calcular fecha de vencimiento mensual a partir de una fecha x en delphi | Renis | Impresión | 4 | 23-08-2007 23:45:14 |
Comparar una fecha de n campo date contra fecha actual | amadis | SQL | 2 | 27-06-2005 21:37:41 |
|