Código
Function TFrelcadhor.HoraToMin(Hora: String): Integer;
begin
Result := (StrToInt(Copy(Hora,1,2))*60) + StrToInt(Copy(Hora,4,2));
end;
//minutos para horas
function TFrelcadhor.MinparaHora(Minuto: integer): string;
var
hr, min : Integer;
begin
hr := 0;
while minuto >= 60 do
begin
minuto := minuto - 60;
hr := hr + 1;
end;
min := minuto;
Result := FormatFloat('00:', hr) + FormatFloat('00', min);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009