Data e Hora - Delphi 7
30/01/2016
0
Como fazer um cálculo de horas para incrementar e decrementar em minutos, mais não posso utilizar a classe DateTime e TimeSpan. Alguém tem alguma idéia de como como fazer isso?
Ander Linus
Curtir tópico
+ 0
Responder
Posts
30/01/2016
Ruy Salles
function AdicionaHora(TimeAdd: Integer) : String;
{Adiciona à hora atual um numero de horas determinado. Caso este numero seje negativo, ele subtrairá da hora atual}
Var
Horas,Min,SomaHoras,SomaMin : Integer;
S, S1 : String;
begin
Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd;
Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ;
SomaHoras := SomaHoras+Horas;
SomaMin := SomaMin + Min;
If SomaMin > 59 Then
begin
if SomaMin mod 60 = 0 Then
begin
Somahoras := Somahoras+(Somamin div 60);
Somamin := 0;
end
else
begin
SomaHoras := SomaHoras + (SomaMin div 60);
SomaMin := SomaMin mod 60;
end;
end;
If Somamin = 0 Then
begin
S := '00';
end
else
begin
S := InttoStr(Somamin);
end;
If Length(InttoStr(SomaHoras)) = 1 Then
begin
S1 := Concat('0',InttoStr(Somahoras));
end
else
begin
S1 := InttoStr(Somahoras);
end;
Result := Concat(S1,':',S,':00');
end;
{Adiciona à hora atual um numero de horas determinado. Caso este numero seje negativo, ele subtrairá da hora atual}
Var
Horas,Min,SomaHoras,SomaMin : Integer;
S, S1 : String;
begin
Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd;
Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ;
SomaHoras := SomaHoras+Horas;
SomaMin := SomaMin + Min;
If SomaMin > 59 Then
begin
if SomaMin mod 60 = 0 Then
begin
Somahoras := Somahoras+(Somamin div 60);
Somamin := 0;
end
else
begin
SomaHoras := SomaHoras + (SomaMin div 60);
SomaMin := SomaMin mod 60;
end;
end;
If Somamin = 0 Then
begin
S := '00';
end
else
begin
S := InttoStr(Somamin);
end;
If Length(InttoStr(SomaHoras)) = 1 Then
begin
S1 := Concat('0',InttoStr(Somahoras));
end
else
begin
S1 := InttoStr(Somahoras);
end;
Result := Concat(S1,':',S,':00');
end;
Responder
08/07/2020
Josue Rosa
Poderia dar um exemplo de como usar essa função na pratica?
Responder
Clique aqui para fazer login e interagir na Comunidade :)
