Jump to content


Photo

Combinar Valores TDate y TTime y convertirlo en el Tipo TDateTime

Started by enecumene , May 15 2009 07:19 AM

  • Please log in to reply
2 replies to this topic

#1 enecumene

enecumene

    Webmaster

  • Administrador
  • 7419 posts
  • LocationRepública Dominicana

Posted 15 May 2009 - 07:19 AM

Bueno, aquí­ dejo una pequeña función que hice que en su momento me fue útil, es para combinar valores de tipo TDate y TTime en uno TDateTime:



delphi
  1. function TiempoCompleto(Fecha: TDate; Hora: TTime): String;
  2. var FechaHora: TDateTime;
  3. begin
  4.   FechaHora := Int(Fecha) + Frac(Hora);
  5.   Result := DateTimeToStr(FechaHora);
  6. end;



Es una chapuza sí­, pero a más de uno le será útil :D.

Saludos.
  • 0

#2 Caro

Caro

    Member

  • Miembros
  • PipPip
  • 29 posts
  • LocationBolivia

Posted 15 May 2009 - 07:54 AM

Hola amiguito, en ves de DateToStr debes utilizar DateTimeToStr supongo que se te ha ido, también puedes usar las funciones DateOf y  TimeOf

fecha := DateOf(fecha)+TimeOf(hora);

Saluditos
  • 0

#3 enecumene

enecumene

    Webmaster

  • Administrador
  • 7419 posts
  • LocationRepública Dominicana

Posted 15 May 2009 - 08:52 AM

Gracias amiguita Caro, lo habí­a hecho al vuelo y se me pasó :$.

Saludos
  • 0
Back to Trucos y Consejos


  1. Comunidad Delphiaccess
  2. → COLABORACIÓN
  3. → Trucos y Consejos
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.