Entre para seguir isso  
Seguidores 0

Converter Decimal em Horas

1 post neste tópico

Postado (editado)

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