Function HoraToSegundos

Converte hora no formato (HH:MM) para segundos.


function HoraToSegundos(Hora:TTime):integer;var h,m,s,ms: Word;begin
       DecoDeTime(Hora,h,m,s,ms);
       Result:=((h*60)*60)+(m*60)+s;end;


Usando:
procedure TForm1.BitBtn26Click(Sender: TObject);begin
       ShowMessage(IntToStr(HoraToSegundos(StrToTime(Edit2.Text))));end;

Function HoraToMinuto

Converte hora no formato (HH:MM) para minutos.


function HoraToMinuto(Hora:TTime):integer;var h,m,s,ms: Word;begin
       DecoDeTime(Hora,h,m,s,ms);
       Result:=(h*60)+m;end;


Usando:
procedure TForm1.BitBtn26Click(Sender: TObject);begin
       ShowMessage(IntToStr(HoraToMinuto(StrToTime(Edit2.Text))));end;