Fazer calculo restante de horas com MOD no delphi

[johnbh3]

Pessoal
Não e possivel usar o recurso mod do delphi para pegar resto do tempo

NO execel fiz assim

 

No delphi tentei fazer DiferencaTime:= TimeA mod TimeB;
Mas o mod só recebe inteiro? Eu defini todas 3 variaveis como Time (DiferencaTime, TimeA e TimeB)

Editado 15 Janeiro, 2020 por johnbh3

[johnbh3]

13 minutos atrás, johnbh3 disse:

Pessoal
Não e possivel usar o recurso mod do delphi para pegar resto do tempo

NO execel fiz assim

 

No delphi tentei fazer DiferencaTime:= TimeA mod TimeB;
Mas o mod só recebe inteiro? Eu defini todas 3 variaveis como Time (DiferencaTime, TimeA e TimeB)

 

 

[Daniel Simoes]

Use o método HoursBetween()  de DateUtils.pas

[johnbh3]

4 minutos atrás, Daniel Simoes disse:

Use o método HoursBetween()  de DateUtils.pas

Eu rento um retorno de erro "47:59:59" is not valid time
De fato não e uma hora valida.

Mas no exemplo eu como no excel eu teria um retorno de 1 segundo

[BigWings]

18 horas atrás, johnbh3 disse:

No delphi tentei fazer DiferencaTime:= TimeA mod TimeB;

DiferencaTime := TimeA - TimeB;

18 horas atrás, johnbh3 disse:

Não e possivel usar o recurso mod do delphi para pegar resto do tempo

Tanto no Delphi como no Excel MOD é o resto de uma divisião, e não diferença.

[johnbh3]

6 minutos atrás, BigWings disse:

DiferencaTime := TimeA - TimeB;

Infelizmente não seria este o caso também. Eu queria pegar o resto. Se eu fizer um menos o outro daria 25:52:24
Outro problema que o timeA pode ter acumulo de horas como "47:59:59" dando erro is not valid time. 

Eu queria obter um resultado semelhante ao do excel. Eu peguei 47 hrs usei o MOD com tempo pre-derminado (TimB) que vai ser sempre  menor que 24 hrs. Dai o tempo restante pegaria como uma sobra.

 

Seria tipo um estacionamento. Carro chega, fica lá, 1, 2, dias dando 48 horas. O Estacionamento cobra algo tipo R$ 30,00 reais a diaria, porem ele ficou 2 dias e 2 horas. Iria cobrar 30 reais das 2 diárias + 2 horas avulsa, a titulo de exemplo seria isto. 
 

Editado 16 Janeiro, 2020 por johnbh3

[BigWings]

1 minuto atrás, johnbh3 disse:

Infelizmente não seria este o caso também. Eu queria pegar o resto. Se eu fizer um menos o outro daria 25:52:24
Outro problema que o timeA pode ter acumulo de horas como "47:59:59" dando erro is not valid time. 
 

Com TDateTime você pode acumular as horas que se tornam dias.

Você quer a diferença entre duas horas ou o resto da divisão de uma pela outra?

Explique melhor.

[johnbh3]

Então queria o resto da divisão (TimeA) acumula horas até tudo bem, usei TDateTime  para me retornar o acumulo de horas com uma função.

Veja exemplo da imagem, acumulou 49:42:53 e fiz um mod por 24:59:59 na coluna a, mas o usuario pode definir que pra ele 1 diaria seria quando atingir 20 hrs. Observe  que o resto e diferente

Quando e considerado 24 hrs o resto que sobra e 1:52:25 agora se eu considerar como 20 Hrs cobrar 1 diaria o resto seria 9:52:23
Neste caso achei o tempo excedente, quando considerado 24 hrs excedeu 1 hora e 52 min, se considerar 20 hrs uma diaria  excedeu  9 horas e 52 min

Consegui me entender?

 

[BigWings]

6 minutos atrás, johnbh3 disse:

Consegui me entender?

Pelo que entendi é o resto de divisão mesmo, e como você já percebeu o MOD só aceita inteiros.

Acho que você pode fazer algo assim:

Resto := (TimeA / TimeB) - Trunc(TimeA / TimeB);

[johnbh3]

De toda forma vou ter o erro de TimeA com hora invalida "49:52:53"

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  Resto,TimeA,TimeB:TTime;
begin
  TimeA:=StrToTime(Edt_TimeA.Text);
  TimeB:=StrToTime(Edt_TimeB.Text);
  Resto := (TimeA / TimeB) - Trunc(TimeA / TimeB);
  Edit1.Text:=TimeToStr(Resto) ;

end;

[johnbh3]

Eu fiz uma conversão da hora para segundos aparentemente vai resolver. 
TimeA:=(SecondsBetween(data1,data2))
TimeB:=ScondsBetween(HoraDiaria),StrToTime('00:00:00'))

Resto:=TimeA mod TimeB;

 

Depois usei esta função

function SecondToTime( Segundos : Cardinal ) : String;
var
  Seg, Min, Hora: Cardinal;
begin
  Hora := Segundos div 3600;
  Seg := Segundos mod 3600;
  Min := Seg div 60;
  Seg := Seg mod 60;
  Result := FormatFloat(',00', Hora) + ':' +
  FormatFloat('00', Min) + ':' +
  FormatFloat('00', Seg);
end;

 

Converti o segundos por hora

[BigWings]

1 hora atrás, johnbh3 disse:

De toda forma vou ter o erro de TimeA com hora invalida "49:52:53"

Por isso comentei que você deveria usar TDateTime e não TTime.

52 minutos atrás, johnbh3 disse:

Eu fiz uma conversão da hora para segundos aparentemente vai resolver. 

Certo, que bom que resolveu.

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.