Outlook VBA: MailItem ReceivedTime

[MichelBe]

Hallo allemaal,

Ik schrijf momenteel een applicatie in REAL Studio. Deze ontwikkelomgeving kan ook Office applicaties aanspreken via VBA. Ik probeer momenteel de datum van ontvangst van een mailitem uit Outlook te halen. Ik kan de meeste info van een mailbericht goed ophalen, maar data worden weergegeven als double values en ik slaag er niet in om ze te converteren naar datum en tijd.

Ik gebruik het veld MailItem.ReceivedTime om de datum op te halen. Voorbeeldje van de info die terugkomt is:
3406103427,6562495
Volgens mijn Outlook zou dit moeten overeenkomen met 07/12/2011 11u50, maar ik heb absoluut geen flauw idee hoe ik die Double value kan omzetten naar een datum en tijd combinatie.
Belangrijk: de VBA ondersteuning in REAL studio werkt maar is beperkter dan Visual Studio. Ik ben dus op zoek naar een functie die de conversie van Double naar datum zou kunnen doen.

Alvast bedankt voor suggesties.

Michel

 

[snb]

een vreemde uitkomt voor een datum; zie maar:

Sub sts()
 x3 = 1 * CDate("07-12-2011")
 x4 = 1 * CDate("11:50:00")
 x5 = x3 + x4
 x6 = Format(x5, "dd-mm-yyyy hh:mm:ss")
End Sub

 

[OctaFish]

Een datum in Office telt de dagen vanaf 31-12-1899. De huidige datum zou dan als getal moeten opleveren: 41011. Jouw gehele waarde zou niet eens als datum te vertalen zijn, zover ligt die in de toekomst. Het restgedeelte is overigens de tijd, dus het getal 41011,65624 levert als datum/tijd op: 12-4-2012 15:44:59