• Anúncios

    • Novo Fórum

      Pessoal, Atualizamos nossa versão do fórum para a mais recente da Invision Power. Como tínhamos uma versão muito antiga, talvez algumas áreas possam funcionar de forma errada ou com problemas, gostaria de pedir-lhes a compreensão, pois iremos resolvendo aos poucos. Até mais!

Converte Decimal em Horas

1 post neste tópico

Postado · Denunciar post

//Converte Decimal em Horas (este funciona!)

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;

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