Voila
Public Function date_en_temp_unix(ByVal dt As Date) As Long
'converti de date et heure vers temps unix
Dim origin As New Date(1970, 1, 1)
Dim span As TimeSpan = dt - origin
Dim seconds As Double = span.TotalSeconds
Return CType(seconds, Long)
End Function
1000101 et plus si affinité ;)