Fórum Trasnformar Hora em Minutos #261793
13/12/2004
0
e Preciso Transformar Horas em minutos que puder me ajudar agradeço
falow pessoal
Duduca
Curtir tópico
+ 0Posts
13/12/2004
Tpvieira
Function HoraToMin(Hora: String): Integer;
begin
Result := (StrToInt(Copy(Hora,1,2))*60) + StrToInt(Copy(Hora,4,2));
end;
Gostei + 0
13/12/2004
Duduca
Gostei + 0
13/12/2004
Rômulo Barros
procedure TForm1.Button1Click(Sender: TObject); Var TotalMinutos : Integer; Hora1,Hora2 : TTime; begin Hora1 := StrToTime(´05:00´); Hora2 := StrToTime(´05:50´); TotalMinutos := MinutesBetween(Hora1,Hora2); ShowMessage(IntToStr(TotalMinutos)); end;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)