7 respuestas en este tema

[TiammatMX]

Jóvenes Delphineros, buena tarde...

Les platico mi problema. Resulta que en los desarrollos de la empresa manejamos por separado la fecha como un número Double y la hora como un entero resultado del cálculo de las horas y minutos transcurridos desde la medianoche (00:00) del día que se trate.

Como sabemos, el tipo TDateTime es un número doble conformado por la fecha (la parte entera del número) y la hora en precisión de hasta milisegundos (la parte en decimales del número); pero ahora se me viene el problema que debo obtener DE REGRESO el valor TDateTime a partir de sumar la fecha (un número entero, en éste caso) a OTRO NÚMERO ENTERO que significa la hora (un número entero con precisión de hasta minutos) en el siguiente formato:

delphi

iLaHora := 675;

Siendo 675 el equivalente a las 11:15 am. Mi problema principal ahora se remite a obtener el número decimal que equivalga a las 11:15 para sumarlo al número entero que me significa la fecha (quedando como 41860.58101212343564 o algo así) y poder hacer cálculos a partir de éste número.

Intenté obtener la hora con ésta operación:

delphi

dLaHora := (iLaHora /60)*0.01);

y

delphi

dLaHora := (iLaHora /60);

... pero en ambos casos, el número NO REPRESENTA las 11:15 am.

¿Podría alguien orientarme en cómo resolver ésto? Es decir, obtener la hora en un número decimal a partir de un número entero.

Agradeciendo de antemano su atención, y en espera de sus ideas, por locas que puedan parecer.

[Wilson]

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  H, M, S, MS: Word;
  dt: TDateTime;
  iHora: Integer;
begin
  iHora := strtoint(Edit1.Text);
  H := iHora div 60;
  M := iHora mod 60;
  S := 00;
  MS := 00;
  dt := EncodeTime(H, M, S, MS);
  showmessage(timetostr(dt));
end;

[luisgutierrezb]

mmm a simple vista, porque no pruebas con esto:

[Delphi]
dLaHora := ((iLaHora /60) /24);
[/Delphi]

Saludos!

[Wilson]

Un ejemplo más claro de mi primer post.

delphi

function EnetroADateTime(const Ihora: Integer): TDateTime;
var
  H, M, S, MS: Word;
begin
  H := Ihora div 60;
  M := Ihora mod 60;
  S := 00;
  MS := 00;
  Result := EncodeTime(H, M, S, MS);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(timetostr(EnetroADateTime(strtoint(Edit1.Text))));
end;

Saludos

[TiammatMX]

...Saludos

Gracias, gracias..., pero el detalle es el que más me ahorca..., ¿qué le voy a sumar al entero que representa la fecha? Lo que me muestras aquí despliega la fecha "formateada", no podría sumar ésto a un entero para que termine mostrándome fecha+hora en un FormatDateTime().

[luisgutierrezb]

En el ejemplo que puse, te regresa la parte decimal del TDateTime que maneja las horas, si le sumas una parte entera "compatible" con TDateTime, solo lo sumas y tendras un TDateTime valido...

[TiammatMX]

En el ejemplo que puse, te regresa la parte decimal del TDateTime que maneja las horas, si le sumas una parte entera "compatible" con TDateTime, solo lo sumas y tendras un TDateTime valido...

Precisamente era lo que necesitaba. Caso resuelto. Gracias, Luis.

[Delphius]

¡Yo diría que a tu jefecito le hace falta una tontolotomia urgente!   

Si ya existe el TDateTime y funciona bien (aunque para algunas cositas puede ser un poco quisqui), ¡que ganas de darle más vueltas que la calesita!. Y si se quiere poner más jodón aún con lo de precisiones con fechas/horas allí tiene TTimeStamp; asi que dile que no haga esos inventos que a la larga es para más problemas... sobre todo si no se controla adecuadamente el manejo de la aritmética de punto flotante. Sino fíjense como en algunas funciones relacionadas con las fechas/horas hace algunos controles.

Por ejemplo éstas, que se valen del error absoluto como criterio de evaluación:

delphi

function CompareTime(const A, B: TDateTime): TValueRelationship;
begin
  if Abs(Frac(A) - Frac(B)) < OneMillisecond then
    Result := EqualsValue
  else if A < B then
    Result := LessThanValue
  else
    Result := GreaterThanValue;
end;
 
function SameTime(const A, B: TDateTime): Boolean;
begin
  Result := Abs(Frac(A) - Frac(B)) < OneMillisecond;
end;

Yo me aseguraría y trataría de atenerme a las funciones de la unidad DateUtils que están pensadas justo para evitar cualquier problema.

Si los números de coma flotante son un dolor de cabeza... el TDateTime también puede serlo. Ojo al piojo también. 

Saludos,