Convert nummer naar datum

[Bram65]

Beste,
Ik heb weer een probleem waar ik na lang zoeken niet uitkom.

In een JSON-bestand staat een verwijzing naar een datum, bv:
last_start_date":1761370994,"timezone_offset":3600

Ik weet dat de datum van dit nummer 25-10-2025 betreft met een toegevoegde tijd.
Nu wil ik de datum van dit nummer opvragen en ook de tijd.

Ik heb op het web wel voorbeelden gevonden maar daarbij wordt voor een datum een nummer van 5 cijfers aangehouden.
Ook wanneer ik de actuele datum opvraag dmv MsgBox CDbl(Now()) dat geeft deze een 5-cijferig nummer.

Elke 5-cijferige combinatie uit dat lange nummer geeft niet de datum 25-10-2025, komt zelfs niet in de buurt.

Wie weet de oplossing?

 

[AHulpje]

Zo krijg je 25-10-2025:

=(1761370994/86400)+DATUM(1970;1;1)

 

[Bram65]

Top, AHulpje, ga ik mee aan de gang maar dan wel in VBA.
Je hebt me op weg geholpen, ook voor het vinden van de tijd

edit:
MsgBox (1761370994 / 86400) + CDate("1970,1,1") geeft de juiste datum, de tijd, 5:43:14, ben ik niet zeker van. Deze zou rond 8:00 uur moeten liggen, dus 7:43:14 zou kunnen. Het Json bestand staat op een Franse server maar zij hanteren dezelfde tijd als in Nederland.

edit2:
die 7:43:14 klopt, dat is de tijd welke ik zoek, dus kan ik bij de tijd uit de formule twee uren optellen.

 

[AHulpje]

Zo dus:

Sub JSON2VBA()
    Debug.Print (1761370994 / 86400) + DateSerial(1970, 1, 1)
End Sub

Resultaat: 25-10-2025 05:43:14

 

[xps351]

dus kan ik bij de tijd uit de formule twee uren optellen.

De vraag is of dat morgen ook nog klopt.
Het zou best eens kunnen zijn dat de tijd is in GMT zonder rekening te houden met de zomertijd. De 3600 is dan de correctie naar onze tijdzone (GMT +1). Het andere uur is de correctie voor de zomertijd (die vannacht stopt).

 

[Bram65]

Ok, dat laatste zal morgen dus weten. Ik heb het inmiddels voor elkaar en het werkt voor nu perfect, ook de tijd. Nu dus morgen nog afwachten.
Dank voor jullie hulp en fijn weekend