beregning af arbejdstid

...... og spørgsmålet er?????

hov
Jo spg. hvordan får jeg regnet det ud, jeg kan ikke bruge strtotime1-strtotime2, da der jo drejer sig om mere end 24 timer.

du kunne lave en lille db app. og brug Tdbedit og sæt editmask

du kunne sætte et starttidspunkt og et sluttidspunkt og beregne antal timer det samlede antal kunne så vises i status bare or what ever....


var
Total: Real;
begin
Table1.Open;
begin
  Table1.DisableControls;
  Total := 0;
  try
    Table1.First;
    while not Table1.EOF do
    begin
      Total := Total + timeantal.Field.AsDateTime;
      Table1.Next;
    end;
  finally
      Table1.EnableControls;
  end;
  begin
    Table1.DisableControls;
  Total := 0;
  try
    Table1.First;
    while not Table1.EOF do
    begin
      Total := Total + timertotal.Field.AsDateTime;
      Table1.Next;
    end;
  finally
      Table1.EnableControls;
  end;
  Statusbar1.Panels[0].Text:='Timer ialt:  ' + Format('%g', [Total]);
end;
end;
end;

den totale kan du så modregne i konst. som er 30 timer

lidt frit fra leveren har....sidder ikke lige pt med delphi

beregning...

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
  if
table1starttid.AsdateTime <
table1sluttid.AsDateTime then
table1timeantal.AsDateTime :=
table1starttid.AsdateTime -
table1sluttid.AsdateTime;
end;

stone -> jeg må ikke bruge muligheden DB, men jeg vil alligevel lige prøve dit forslag.......
sorry for det langsomme svar

jeg får fejl fra datetime når jeg skriver 30:00:00 (30 timer)

Har du sat din editmask op for feltet i din dbfelt? til et tidsformat

formatet du skal bruge er "long time" hvis du vil have sekunder med....

!90:00:00>LL;1;_

ja, men det giver samme resultat, fejl fra datetime (30:00:00 er ikke gyldigt)
Og undskyld jeg ikke har svaret, noget må være gået galt, jeg har skrevet men det er åbenbart ikke kommet frem........

Hvordan gemmer du dine indtastninger?

de bliver gemt i en *.txt fil, og når beregningen skal udføres hentes de frem i en datatime variabel, problemet opstår når det samlede antal timer overstiger 24....

Hvorfor gemmer du ikke bare det samlede antal timer i en anden variable end som TDateTime?

datetime er baseret på at kunne håndtere 24 timer og ikke mere, og som kroning pointere så glem datetime, og prøve en anden løsning.

Jeg mente ikke at han skulle glemme datetime. TDateTime er blot en variable af typen double og er ikke begrænset til at kunne håndtere 24 timer. Kun diverse datetime funktioner som f.eks. StrToDate er begrænset på den måde at de kræver en gyldig dato/tid streng.

Hvis du har dine tider i en txt fil burde det være simpel udregning, bruger du en nyere delphi som har DateUtils uniten så er det meget enkelt.

F.eks., husk DateUtils i din uses:

var
    Fra1,Til1,Fra2,Til2,Fra3,Til3,Ialt : TDateTime;
begin
    Fra1:=now;
  Til1:=now+0.5; // 12 timer
  Fra2:=now;
  Til2:=now+0.3; // 7 timer og 12 minutter
  Fra3:=now;
  Til3:=now+0.4; // 9 timer og 36 minutter

  Ialt:=(Til1-Fra1) + (Til2-Fra2) + (Til3-Fra3);
  // 28:48 - Ialt 28 timer og 48 minutter
    Showmessage(IntToStr(HoursBetween(0,Ialt))+':'+IntToSTr(MinuteOfTheHour(Ialt)));
end;

kroning -> det vil jeg prøve

/Flemming

det virker næsten, desværre er der åbenbart ikke forske på 31 timer og 30 timer

hvis følgende køres
Showmessage('+'+IntToStr(HoursBetween(ugentligarbejdstid,tid))+':'+IntToSTr(MinuteOfTheHour(tid)))
og ugentligarbejdstid = 1.2501
og tid = 1.2916666667 (1time+10 timer+10 timer+10 timer)
er resultatet =+0:0

Hvad mener du?

Hvorfor putter du ugentligarbejdstid ind i HoursBetween proceduren?

Det er nok fordi du bruger ugentligarbejdstid = 1.2501 og lign. det er ikke præcis nok, prøv dette:


    tid:=(1/24)*31; // 31 timer
  ugentligarbejdstid:=1.25; // 30 timer


// skriver tid dvs. 31 timer   
Showmessage('+'+IntToStr(HoursBetween(0,tid))+':'+IntToSTr(MinuteOfTheHour(tid)));


// skriver forskellem mellem tid og ugentligtid dvs. her +1:00
// bemærk du selv skal tage højde for om det er + eller -
total:=ugentligarbejdstid-Tid;
Showmessage('+'+IntToStr(HoursBetween(0,total))+':'+IntToSTr(MinuteOfTheHour(tid)))

Men hvis det altid drejer sig om hele timer og minutter så var det måske en bedre løsning at regne det om til heltal (integer)

kroning ->der er noget ventetid på de mails der kommer fra eksperten, men jeg prøver dit sidste forslag, kan du ikke også smide et svar.

du havde ret det var ikke præsist nok, nu virker det som det skal..........

jo, hvis du mener at have fået noget brugbart.

jamen det mener jeg bestemt, det var lige det jeg gerne ville have

1000 tak