[Tutorial - Básicão] Converter Decimal em Horas

XSystemX

Honrado XPZ
14 de Julho de 2012
83
43
18
24
[SIZE=10pt]function decimalHoras(valorDecimal: real): real;
var
a, b, c, d: real;
begin
a := valorDecimal / 60;
b := Int(a);
c := a - b;
d := c * 60;

Result := StrToFloat(FormatFloat('0', a) + ',' + FormatFloat('00', d));
end;
[/SIZE]
 
  • Like
Reactions: xSidnei