16 respuestas en este tema

[enecumene]

¿Es posible hacer lo que indico en el título con Delphi? ¿Se usaría con Format?. Por ejemplo:

delphi

6.25 - > 06:15

Saludos.

[seoane]

¿Algo así?

delphi

var
  f: Double;
begin
  f:= 6.25 / 24;
  ShowMessage(FormatDateTime('hh:mm',TDateTime(f)));
end;

[enecumene]

mmm, Muy bueno, perooo, en algunos casos me da un minuto menos de lo que debería ser, ¿Por Qué?.

Saludos.

[enecumene]

Me respondo:

delphi

var
  f: Double;
begin
  f:= (6.25 + 0.01) / 24;
  ShowMessage(FormatDateTime('hh:mm',TDateTime(f)));
end;

Ya los datos me dan exactos.

Saludos.

[cadetill]

y por qué el + 0,01?? No lo entiendo :/

Yo también me encontré con este problema y decidí hacerlo de la manera tradicional, truncando y luego la parte fraccionaria multiplicando por 60

[Delphius]

Pues no entiendo el porqué ha de sumarse ese 0.01.
¿Y que valores se obtiene, su ese incremento, con valores límites como: 5:00 o 7:59?

Saludos,

[seoane]

y por qué el + 0,01?? No lo entiendo :/

Sospecho que el problema es el redondeo de los decimales. Un minuto (en un TDateTime) es igual a 0,000694444444444444, y como "DecodeDate" utiliza multiplicaciones y divisiones enteras una simple diferencia, aunque sea muy pequeña, puede hacer que le falte un minuto. Por eso si aumentamos el valor de la variable en 0,01 (puede que incluso 0,001) la división ya nos da correcta.

No entiendo porque pascal utiliza esta forma de almacenar fechas, en otros lenguajes almacenan segundos, incluso milisegundos, como un entero. Ocupa mas sitio en memoria pero es indudable que es mucho mas preciso. ¿Otro misterio que habrá que investigar?

[Delphius]

Sospecho que el problema es el redondeo de los decimales. Un minuto (en un TDateTime) es igual a 0,000694444444444444, y como "DecodeDate" utiliza multiplicaciones y divisiones enteras una simple diferencia, aunque sea muy pequeña, puede hacer que le falte un minuto. Por eso si aumentamos el valor de la variable en 0,01 (puede que incluso 0,001) la división ya nos da correcta.

Pues si... no hay otra explicación pero de todas formas es extraño porque el tipo Double ya de por si es bastante preciso como para fallar en el orden de los 0,0001 cuando sus operaciones son exactas y aseguradas en los 13 decimales, dejando una ventana de "gracia" a los dos últimos.

No entiendo porque pascal utiliza esta forma de almacenar fechas, en otros lenguajes almacenan segundos, incluso milisegundos, como un entero. Ocupa mas sitio en memoria pero es indudable que es mucho mas preciso. ¿Otro misterio que habrá que investigar?

Uno puede utilizar el tipo TTimeStamp, que está pensado para trabajar con mejor precisión en el órden de los milisegundos. El tipo está pensado como un record, que almacena en formato entero la parte fecha y otro para la parte de la hora.
Es posible que por diseño TDateTime esté pensado para operaciones no más allá de los segundos y que sea justamente donde termina la precisión que ofrece el Double.

Se puede pasar de un TDateTime a TTimeStamp y a la inversa si uno lo necesita.

Saludos,

[egostar]

Hola

delphi

var
  numeroStr: string;
  numero: float;
 
begin
  numero: 6.1;
  numeroStr := FormatFloat('00.00',Numero);
  numeroStr := StringReplace(numeroStr,'.',':',[rfReplaceAll]);
  shoMessage( numeroStr );
end;

Saludos

[Delphius]

Ummm...
Eliseo no he probado tu código pero creo no va...
Me temo que no es tan simple la cosa. Porque lo que dice Fernando es dado el número en real "normalizado a horas" (por darle un nombre  ) obtener su expresión en formato hh:mm.

De allí que, por ejemplo:

4.25 son las 04:15
6.5 son las 06:30
17.75 son las 17:45

Es decir, donde la parte entera corresponde a las horas, mientras que la decimal a los minutos.
Tu propuesta toma literalmente el número y asume que la parte decimal es exactamente los minutos.

La otra es diseñar una función propia que extraiga cada parte y haga la conversión de la parte decimal a los minutos.

Saludos,

[egostar]

Ummm...
Eliseo no he probado tu código pero creo no va...
Me temo que no es tan simple la cosa. Porque lo que dice Fernando es dado el número en real "normalizado a horas" (por darle un nombre  ) obtener su expresión en formato hh:mm.

De allí que, por ejemplo:

4.25 son las 04:15
6.5 son las 06:30
17.75 son las 17:45

Es decir, donde la parte entera corresponde a las horas, mientras que la decimal a los minutos.
Tu propuesta toma literalmente el número y asume que la parte decimal es exactamente los minutos.

La otra es diseñar una función propia que extraiga cada parte y haga la conversión de la parte decimal a los minutos.

Saludos,

Tienes razón, pero es que lo hice a la memoria, me faltó precisamente esa parte de la conversión a base 60. 

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  numeroInt: integer;
  numeroStr: string;
  numero: real;
begin
  numero    := strtoFloat(edit1.Text);
  numeroStr := FormatFloat('00.00',Numero);
  numeroStr := StringReplace(numeroStr,'.',':',[rfReplaceAll]);
  numeroInt := strtoint( copy(numeroStr,4,2) ) * 6 div 10;
  numeroStr := copy(numeroStr,1,3) + format('%.*d', [2,numeroInt]);
  showMessage( numeroStr );
end;

Ahora si probado

Saludos

Archivos adjuntos

•  3865_c0bfe9b802b909a3b89a0316ba6ca2848968838d.png   45,44KB   6 descargas

[Delphius]

Ummm...
Demasiado lio para tan poca cosa me parece amigo.
Digo, yo, ¿Y porqué no obtener directamente las partes en vez de hacer esos pasos?:

delphi

var hh, mm: integer;
begin
  hh := Trunc(Int(TimeInDouble));
  mm := Trunc(Frac(TimeInDouble) * 60);
end;

Lo que resta es presentar el dato en formato cadena. Allí es donde no me sale... Estoy peleado con la función Format(). Intento indicarle que utilice ceros a la izquierda cuando en hh y mm es menor a 10 pero no me sale

Saludos,

[Delphius]

¡Listo! Aquí está mi propuesta:

delphi

function TForm1.DoubleToTime(Time: Double): string;
var hh,mm: Integer;
begin
  hh := Trunc(Int(Time));
  mm := Trunc(Frac(Time) * 60);
  Result := Format('%.2d:%.2d',[hh, mm]);
end;

En 3 líneas de código 

Salutes,
PD: Malo format, me tuviste rompiendo los ****** 40 min para dar con el formato correcto. @ ¡Todo por no ir a la ayuda! 

[cadetill]

Ummm...
Demasiado lio para tan poca cosa me parece amigo.
Digo, yo, ¿Y porqué no obtener directamente las partes en vez de hacer esos pasos?:

Lo mismo que dije yo, amigo, en el cuarto mensaje del hilo 

Yo también me encontré con este problema y decidí hacerlo de la manera tradicional, truncando y luego la parte fraccionaria multiplicando por 60

Eso sí, me falto el ejemplo gráfico, pero daba por supuesto que se sabría hacer

[Delphius]

Ummm...
Demasiado lio para tan poca cosa me parece amigo.
Digo, yo, ¿Y porqué no obtener directamente las partes en vez de hacer esos pasos?:

Lo mismo que dije yo, amigo, en el cuarto mensaje del hilo 

Yo también me encontré con este problema y decidí hacerlo de la manera tradicional, truncando y luego la parte fraccionaria multiplicando por 60

Eso sí, me falto el ejemplo gráfico, pero daba por supuesto que se sabría hacer

Ni me dí cuenta de tu post anterior amigo. Publiqué si leer todos los comentarios del hilo... por las prisas.  ¿Y si le vamos 50-50 al crédito por los derechos de autor? 

Saludos,

[egostar]

Ni me dí cuenta de tu post anterior amigo. Publiqué si leer todos los comentarios del hilo... por las prisas.  ¿Y si le vamos 50-50 al crédito por los derechos de autor? 

Saludos,

Y que a mi que me cague el perro ????

Saludos

[Delphius]

Ni me dí cuenta de tu post anterior amigo. Publiqué si leer todos los comentarios del hilo... por las prisas.  ¿Y si le vamos 50-50 al crédito por los derechos de autor? 

Saludos,

Y que a mi que me cague el perro ????

Saludos

Bueno... está bien... 25% para cada uno: Seoane, Cadetill, Egostar y yo.

Saludos,