function date2epoch(myDate)
date2epoch = DateDiff("s", "01/01/1970 00:00:00", myDate)
end function
 

Tom,

Desbetreffende formule had ik ook al gevonden maar die klopt niet.

Ik heb in de bestaande AD-GUI een datum ingegeven.
Deze heb ik kunnen uitlezen:

128893176000000000 (epoch time voor 12 juni 2009)

Als je echter formule gebruikt die je hebt gepost heb je een ander getal die niet correct is want als ik dan via m'n vb.net dat getal meestuur klopt het niet qua datum in de AD GUI.

Geef ik via m'n code letter juiste epoch time mee dan staat datum in AD GUI wel correct.

Er moet dus ergens nog iets niet correct zijn met die formule.

Via http://www.epochconverter.com/ kan je het correct berekenen maar zou het natuurlijk in mijn programma in code willen integreren

Hopelijk vind ik morgen effen tijd in pauze om het verder uit te zoeken.

Heb het gevonden this via int64 omvormen.

Ga de code een dezer dagen dan posten.

super, 'k zou wel de code eens willen zien.

OPLOSSING :

Bij deze het stuk code om gewone tijd om te vormen naar een correcte epoch windows time:

in vb.net calender object in formulier voorzien en volgende code gekoppeld

If chkAccountExpires.Checked Then
                dteExpires = (CType(dtpAccountExpires.Value, Date)).AddDays(1).ToShortDateString
                sDateExpires = dteExpires.ToFileTime.ToString
            End If

Het kiezen van een datum en wegschrijven naar AD werkt bij deze perfect.

NOTE: Ik kan via vb.net de gekozen epoch time vanuit AD niet inlezen.
            Via vbs en java wel, maar wens het via vb.net.
            -> Tom, kan Arlindo dit eens navragen bij één van zijn collega's ?

Oorzaak gevonden !! :-)

Lag aan het feit dat ik AD-query's deed op de GC i.p.v. op AD-db zelf.
Hierdoor kon ik aan bepaalde gegevens niet.

De tool in kwestie is aan het vorderen qua functionaliteiten.
Zeker iets om eens te tonen op een IT-Talks event ofzo.