Function date2TimeStamp(datFecha)
Dim dias
Dim segundos
segundos = Second(datFecha) + Minute(datFecha) * 60 + Hour(datFecha) * 3600
dias = DateDiff("d", "01/01/1970", datFecha)
segundos = segundos + dias * 86400
'Hay que quitarle dos horas....
date2TimeStamp = segundos - 7200
End Function
Lo saqué de las FAQ de este foro...
