5 respuestas en este tema

[FGarcia]

Hola!!

Dicen que los flojos trabajan dos veces. Y creo que abuso de la flojera -es viernes, hace frió y las promesas del "Copetón" no hacen que sea factible la compra de un pequeño calefactor eléctrico- Bueno ustedes no tienen titulo de psicólogos para "escuchar" mis traumas.

Este codigo:

delphi

procedure TForm1.btn1Click(Sender: TObject);
var
  HFIni, HFFin: TDateTime;
 
begin
  HFIni := dtp1.Date + dtp2.Time;
  HFFin := dtp3.Date + dtp4.Time;
 
  lbl1.Caption := DateTimeToStr(HFIni);
  lbl2.Caption := DateTimeToStr(HFFin);
end;

compila y se ejecuta pero el resultado es incorrecto

En los label aparece:

28/04/2130 02:16:57 a.m.
28/04/2130 03:17:25 a.m.

Como dije el flojo debe trabajar dos veces. Me quise evitar conversiones a string y datetime. Deduzco por obviedad que esa unión de los datetimepicker no es permitida ni valida. ¿Es correcto eso o hay algo que no conosco del uso del datetimepicker?

Saludos y no abusen del alcohol ni dejen que el alcohol abuse de estedes. 

[egostar]

A ver compañero, que le parece ésta solución:

delphi

  HFIni := int(DateTimePicker1.DateTime) + frac(DateTimePicker2.DateTime);

Saludos

[FGarcia]

OK!!

Funciona correcto. ¿Por que?

Tomado de delphibasics.co.uk

The TDateTime type holds a date and time value.

It is stored as a Double variable, with the date as the integral part, and time as fractional part. The date is stored as the number of days since 30 Dec 1899. It really should be 31 Dec is.

El tipo TDateTime guarda un valor de hora y fecha.

Es almacenado en una variable de tipo Double, con la fecha como la parte entera, y el tiempo o la hora como parte fraccionaria. La fecha es almacenada como el numero de dias transcurridos desde el 30 de Diciembre de 1899. En realidad deberia ser 31 de Diciembre.

Algo que no sabia. Ahi queda por si a alguien mas le sirve en el futuro.

[egostar]

OK!!

Funciona correcto. ¿Por que?

Tomado de delphibasics.co.uk

The TDateTime type holds a date and time value.

It is stored as a Double variable, with the date as the integral part, and time as fractional part. The date is stored as the number of days since 30 Dec 1899. It really should be 31 Dec is.

El tipo TDateTime guarda un valor de hora y fecha.

Es almacenado en una variable de tipo Double, con la fecha como la parte entera, y el tiempo o la hora como parte fraccionaria. La fecha es almacenada como el numero de dias transcurridos desde el 30 de Diciembre de 1899. En realidad deberia ser 31 de Diciembre.

Algo que no sabia. Ahi queda por si a alguien mas le sirve en el futuro.

Efectivamente, si miras en debug el valor de un campo TDateTime siempre lo vas a ver como un valor decimal por ejemplo ( 42062.618865 ).

Que bueno que sirvió.

Saludos

[gusspagano]

Genial...!!!

 

 

Muchas gracias..!

[Agustin Ortu]

Hola, si bien lo que plantea Ego es correcto, yo me he creado un ayudante para TDateTime con el cual me desentiendo de detalles de implementacion (de que los TDateTime en realidad son numeros Double y que una parte representa esto y la otra parte lo otro)

 

Para eso prefiero usar las funciones de mas alto nivel de System.DateUtils (y tambien hay algunas mas en System.SysUtils)

 

Y ahora que veo mi propio codigo creo que lo adecuado tambien seria crear un helper para TTime

delphi

uses
  System.SysUtils,
  System.DateUtils,
  DateTimeHelper;
 
procedure Main;
var
  Fecha, FechaFin: TDateTime;
  Hora: TTime;
begin
  // cuidado con la config. regional, aunque el ayudante TDateTimeHelper tiene una sobrecarga
  // para el metodo Parse en la que se puede pasar un TFormatSettings
  Fecha := TDateTime.Parse('25/4/2017 3:00:00');
  Hora := System.SysUtils.StrToTime('3:12:34'); // cuidado con la config. regional
  FechaFin := Fecha.AddTime(Hora);
  Writeln('Fecha: ' + Fecha.ToString); // Fecha: 25/4/2017 3:00:00 a. m.
  Writeln('Hora: ' + System.SysUtils.TimeToStr(Hora)); // Hora: 3:12:34 a. m.
  Writeln('FechaFin: ' + FechaFin.ToString); // FechaFin: 25/4/2017 6:12:34 a. m.
end;

En donde el codigo para implementar el mensaje AddTime es tambien bastante expresivo y facil de entender:

delphi

function TDateTimeHelper.AddTime(const Value: TTime): TDateTime;
var
  Time: TDateTime absolute Value; // esto es un "hack" porque no tengo un ayudante para TTime
begin
  Result := Self
    .AddHours(Time.Hours)
    .AddMinutes(Time.Minutes)
    .AddSeconds(Time.Seconds)
    .AddMilliseconds(Time.Milliseconds);
end;

Y DateTimeHelper en realidad consiste en dos unidades:

 

DateTimeHelper: En donde esta el ayudante propiamente dicho

DateTimeHelper.Exceptions: Para manejo de excepciones