Tijdsverschil

• 

  Paco

  20-03-2005 14:35

  Hallo,

  Ik heb 4 losse datumvelden, namelijk

  - Begindatum (bv. 13-02-05)

  - Begintijd (bv. 22:00)

  - Einddatum (bv. 14-02-05)

  - Eindtijd (bv 04:00)

  Hoe bereken ik het verschil in uren? Hierbij moeten de data ook meegenomen worden. In bovenstaande voorbeeld is dit dus een totaal van 6 uur.

  In het berekenveld heb ik nu de volgende code ingevoerd:

  =Format((+) - (+);“Middellange tijdnotatie”)

  Helaas begint hij na een verschil van 12 uur weer bij 0 te tellen. Moet ik misschien de Middellange tijdnotatie vervangen door iets anders? Maar wat?

  Alvast bedankt,

  Paco
• 

  JaapT

  20-03-2005 15:12

  Paco,

  Is afgelopen week ook aan de orde geweest, gebruik zoeken.

  Maar, de juiste funktie is: datediff, zoek daarop in Access.

  Succes,

  Jaao
• 

  Paco

  20-03-2005 15:29

  Iets te snel gereageerd Zal de volgende keer iets beter zoeken, iig bedankt!

  Misschien nog een klein vraagje:

  Hoe reken ik 05:30 uur (middellange tijdnotatie) om naar 5,5 uur, 05:15 -> 5,25, etc..
• 

  JaapT

  20-03-2005 23:01

  Paco,

  Ik zou het zo direct even niet weten, maat kan me ook niet bedenken waarom je dit wilt.

  Succes,

  Jaap
• 

  PFI

  21-03-2005 12:57

  Nou hier op mn stageadres willen ze de uren weten in decimalen en niet in minuten… Dus ik zocht een methode om van 03:15 naar 3,25 te rekenen..

  In ieder geval bedankt
• 

  ERic B

  21-03-2005 17:08

  Sub StartTest()

  TIMETODEC (“3:45”) ' om even te testen

  End Sub

  Function TIMETODEC(tdate As Date) As String

  Dim targetHour As Integer

  Dim targetMin As Integer

  targetHour = Hour(tdate)

  targetMIn = Minute(tdate)

  TIMETODEC = targetHour & “,” & (100 / (60 / targetMin))

  End Function