terça-feira, 10 de novembro de 2009

Como converte hora (formato hh:mm) para minutos

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

Nenhum comentário:

Postar um comentário