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;
Nenhum comentário:
Postar um comentário