• Home
 · 
• Math/Dates
 · 
• Turn Time and Date to Epoch Turn Epoch to Time and Date

Turn Time and Date to Epoch Turn Epoch to Time and Date

Turn Time and Date to Epoch Turn Epoch to Time and Date

API Declarations



'** DateToEpoch was originally found at:
'** http://www.vbcode.com/asp/showsn.asp?theID=3476
'** written by Markus Hartsmar
'**
'** I've shortened this function, and added reversal
'**

Public Property Get Epoch() As String
Epoch = DateDiff("s", "00:00:00 1/1/1970", Now)
End Property

Public Property Get DateToEpoch(ByVal MyDate As Date) As String
DateToEpoch = DateDiff("s", "00:00:00 1/1/1970", MyDate)
End Property

Public Property Get EpochToDate(ByVal MyEpoch As String) As Date
EpochToDate = DateAdd("s", MyEpoch, "00:00:00 1/1/1970")
End Property




Rate Turn Time and Date to Epoch Turn Epoch to Time and Date

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

CurrentEpoch = Epoch

Dim EpochOfDate as String
EpochOfDate = DateToEpoch(Now)

Dim DateofEpoch As Date
DateOfEpoch = EpochToDate(CurrentEpoch)