Time problem

lidt simpel regning og kodning  ;-))

du laver en procedure der tæller +1 hver gang du når op på 60 minutter, 24 timer o.s.v.

således at hver gang der er forbrugt 24 timer lægges der +1 til din dage tæller.

hvis det mere går på dage, så er det nok dateadd og datediff du bør se lidt mere på.

Det letteste er nok at bruge dateadd og datediff.

Det du gør er at registrere to tidspunkter, hvornår du mødte (timeA) og hvornår du gik hjem igen. (timeB)

For at beregne arbejdstiden kan du så gøre som følger:

antalTimer = DateDiff("t",timeA,timeB)
antalMinutter = DateDiff("n",timeA,TimeB) - (antalTimer * 60)

Hvis du har har to variable af typen Date i VB kan du bare trække disse to fra hinanden!!

Gør følgende:

Dim SDate as Date, EDate as Date
Dim SpanDouble as double
Dim SpanLong as Long
'Get Span
SpanDouble = CDbl(EndDate - StartDate)
'Convert Days to Hours
SpanLong = Int(SpanDouble) * 24
'Add hours
SpanLong = SpanLong + (SpanDouble - Int(SpanDouble))

Når det tales om Date typer i VB så er tallet før kommaet lig med antallet af dage og tallet bag er antallet af timer! 0.5 er lig med 12 timer.

Vrøvl!!!

Bare gang SpanDouble med 24 så har du antallet af timer!!! Voila!!

SpanLong = SpanDouble * 24

Skal du også bruge antallet af minutter???

Jeg er ikke helt inde i hvordan jeg svarer er. Jeg kan se, at jeg har afvist svar fra 2 afJer. Sorry. Det var en fejl. Men hvis dette kan ses, er min kommentar til nolle_k : Ja, jeg skal kunne udregne en hel arbejdsuge med både timer og minutter