[vb] Date to timestamp

[Verwijderd]

Ik heb een functie gemaakt om van een datum tijd veld een timestamp te maken:

Function datetostamp(datum As Date) As Double
Dim aantaldagen As Double
Dim start As Date

start = #1/1/1970#
aantaldagen = datum - start
datetostamp = aantaldagen * 86400
End Function

Function stamptodate(stamp As Double) As Date
Dim aantaldage As Double
Dim start As Date
start = #1/1/1970#
aantaldagen = stamp / 86400
stamptodate = aantaldagen + start

Wat vinden jullie hiervan??

[Splatter]

megaheffie joh

code:

Dim aantaldage As Double

alleen ik mis ergens een 'n'

edit:

Ik gebruik meestal gewoon

code:

DateDiff("d", "01-01-1970", date)

[Xanion]

ik ben diep onder de indruk. In een woord 'WAUW'
Ik neem tenminste aan dat je dat graag wilde horen?