Trasnformar Hora em Minutos

Delphi

13/12/2004

Gostaria de Transformar Horas em Minutos estou fazendo um program para motel
e Preciso Transformar Horas em minutos que puder me ajudar agradeço

falow pessoal


Duduca

Duduca

Curtidas 0

Respostas

Tpvieira

Tpvieira

13/12/2004

tem esta função

Function HoraToMin(Hora: String): Integer;
begin
Result := (StrToInt(Copy(Hora,1,2))*60) + StrToInt(Copy(Hora,4,2));
end;


GOSTEI 0
Duduca

Duduca

13/12/2004

valeu cara e isto ai obrigado


GOSTEI 0
Rômulo Barros

Rômulo Barros

13/12/2004

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
POSTAR