Marcos Santana Postado Setembro 19, 2008 Denunciar Share Postado Setembro 19, 2008 Colegas tenho um aquivo .dat de um sistema de pontoQuero mostrar no grid a hora de cada pessoa, só que no campo datado arquivo a hora é gravada assim 691 como converto para hora e minuto.procurei no forum más não achei nada parecido. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 19, 2008 Denunciar Share Postado Setembro 19, 2008 Colegas tenho um aquivo .dat de um sistema de pontoQuero mostrar no grid a hora de cada pessoa, só que no campo datado arquivo a hora é gravada assim 691 como converto para hora e minuto.Marcos ... verifique se a hora gravada ( 619 ) corresponde a minutos ... se for fica facil fazer uma conversãoexemplo : 619 min = 10:19 hrabraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Marcos Santana Postado Setembro 19, 2008 Autor Denunciar Share Postado Setembro 19, 2008 É isso mesmo como converto. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Setembro 19, 2008 Denunciar Share Postado Setembro 19, 2008 Como converter minutos em horas e minutosfunction FormatMinToHMS(Minutos: LongInt): string; // // Converte um certo número de minutos em horas // já formatada var Hrs, Min: Word; begin Hrs := Minutos div 60; Min := Minutos mod 60; Result := Format('%d:%d', [Hrs, Min]); end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FormatMinToHMS(strtoint(Edit1.Text)); end;abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Marcos Santana Postado Setembro 19, 2008 Autor Denunciar Share Postado Setembro 19, 2008 Ok vou testar. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Guest --mssilva -- Postado Setembro 20, 2008 Denunciar Share Postado Setembro 20, 2008 Colega funcionou só que a hora fica 7:1 Gostaria que fosse 07:01 tem como? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Churc Postado Setembro 21, 2008 Denunciar Share Postado Setembro 21, 2008 OpaBaseado na função que o Jhonas lhe passou ficaria assim...function FormatMinToHMS(Minutos: LongInt): string; // Converte um certo número de minutos em horas // já formatada var Hrs, Min: Word; dtTime: TTime; begin Hrs := Minutos div 60; Min := Minutos mod 60; dtTime := EncodeTime(Hrs, Min, 0, 0); Result := FormatDateTime('hh:mm', dtTime); end; procedure TForm1.Button1Click(Sender: TObject); begin Label1.Caption := FormatMinToHMS(strtoint(Edit1.Text)); end;abraços Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Marcos Santana Postado Setembro 22, 2008 Autor Denunciar Share Postado Setembro 22, 2008 Agora ficou perfeito.Obrigado a todos. :D Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
Marcos Santana
Colegas tenho um aquivo .dat de um sistema de ponto
Quero mostrar no grid a hora de cada pessoa, só que no campo data
do arquivo a hora é gravada assim 691 como converto para hora e minuto.
procurei no forum más não achei nada parecido.
Link para o comentário
Compartilhar em outros sites
7 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.