Entre para seguir isso  
Seguidores 0
maquiavel

Converter Decimal em Horas

1 post neste tópico

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;

Editado por maquiavel

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Entre para seguir isso  
Seguidores 0

Cloud Computing