Vale do Delphi
O seu blog de ajuda em programação Delphi
ADSENSE
ADSENSE
sábado, 16 de outubro de 2010
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
;
Nenhum comentário:
Postar um comentário
Postagem mais recente
Postagem mais antiga
Página inicial
Assinar:
Postar comentários (Atom)
Nenhum comentário:
Postar um comentário