Fórum Trasnformar Hora em Minutos #261793

13/12/2004

0

Delphi

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

Responder

Posts

13/12/2004

Tpvieira

tem esta função

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


Responder

Gostei + 0

13/12/2004

Duduca

valeu cara e isto ai obrigado


Responder

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;



Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar