Verschil UTC tijd

Status
Niet open voor verdere reacties.
M

Monique75

Gebruiker
Lid geworden
6 mrt 2015
Berichten
40
Wij hebben een programma in gebruik welke de gegevens opslaat in excel. Deze gegevens importeren we in access. Dit werkt verder prima, maar dat programma slaat de datums in excel op in UTC tijd, dat houd in dat die gegevens in de zomer 2 uur afwijken en in de winter 1 uur.

Het lukt me wel om deze datum op te hogen (DateAdd("h";2;[Veldnaam]) echter kom ik er niet aan uit hoe ik er een voorwaarde in bouw dat het in de winter +1 is en in de zomer +2. Dit zijn natuurlijk geen vaste datums.

Heeft iemand hier een oplossing voor.
 
Met deze functie kun je controleren of een datum binnen de zomertijd valt; dat levert dan True op of anders False. Die waarde kun je gebruiken om de nieuwe datum te berekenen. Eerst de functie:
Code: 
Public Function dstCheck(ByVal vDate As Date) As Boolean
Dim dstStart As Date, dstEnd As Date
Dim f As Integer

    f = (Int((5 * Year(vDate)) / 4) - Int(Year(vDate) / 100) + Int(Year(vDate) / 400)) Mod 7
    dstStart = DateSerial(Year(vDate), 3, 31 - ((f + 5) Mod 7))
    dstEnd = DateSerial(Year(vDate), 10, 31 - ((f + 2) Mod 7))
    dstCheck = vDate >= dstStart And vDate < dstEnd
End Function

Nu het gebruik in een query:
Code: 
Nieuwe_Datum: DateAdd("h";1+Abs(dstCheck([Testdatum])=Waar);[Testdatum])
 
Bedankt

Bedankt Edmoor en Octafisch voor de moeite. En de oplossing van octafish werkte uitstekend. Het is gelukt. (sorry edmoor was de simpelste dus die heb ik eerst geprobeerd :))

Hartstikke bedankt.

Gr Monique
 
Ik had niet anders verwacht :)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan