Buscar por:

Transformar Minuto Para Hora (Atualizado)

Código

Olá galera, essa é atualização da função que tranforma minuto para hora que coloquei no portal e que uso no meu sistema de ponto... descubrie que a função dava erro se a quantidade de minutos ultrapassa-se 9 hora.. com isso desenvolvie a solução que funciona com qualquer quantidade de minutos inteiros pode testa 10000000000000 só é colocar um button e uma edit fica a vontade!!! deixe seu comentario e agradecimentos...

procedure TForm1.Button1Click(Sender: TObject);

var

  hr,min,hora,s : string;

begin

 hr := floattostr(int(strtoint(edit1.Text)/60));

 min := (floattostr((strtoint(edit1.Text)/60)-strtofloat(hr)));

 min := floattostr(strtofloat(min) * 60);

 min:= floattostr(int(strtofloat(FloatToStrF(strtofloat(min),ffnumber,10,2))));

 FmtStr(s, '%.2d', [StrToInt(min)]);

 hora := hr +':'+s;

 edit1.Text:=hora;

end;