Delphi - Quitar a TDateTime los munitos, segundos,...

Como hacer para quitar los minutos, segundos a un date time?
Es decir que si contiene 1/1/2004 14:54:12 etc... se quede en 1/1/2004 14:00:00

Hasta ahora lo hago asi...

StrToDateTime (FormatDateTime('dd/mm/yyyy hh:00:00', now)

pero esto es una chapuza... creo yo

Saludos y buen finde!!!

Mirate la funcion FormatDateTime..

Función Trunc

Ej.
Trunc(DateTimePicker1.Date);

Suerte.

La cosa es que con el trunc me quedo solo con la parte DATE, no? Es decir... de 1/1/2004 11:23 ,me quedaria con 1/1/2004.

Y yo quiero quedarme tambien con 1/1/2004 11:00:00

Si lo que quieres es solo visualizarlo en un texto, por ejemplo en el Captión de una Label, puedes hacer esto:

Label1.Caption := copy(FormatDateTime('dd/mm/yyyy hh:00:00', now),1,13)+'h';

y te dará por ejemplo 05-04-2004 10h

No se si es esto lo que necesitas.

Suerte

manipulael siguiente codigo
dec:=StrToDate(DBEdit2.Text);
DecodeDate(dec,year,month,day);
la variable dec es e tipo tdatetime; y la demas son word una vez que pasen por este codigo podras manipular todas pero diferentes valor escribe sin tiene dudas con la contraseña 666 por favor no trates de mandar nada malo o mi mano caira sobre tu mail
graciaas