maquiavel

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;