by Christopher Trahan (1 Submission)
Category: Math/Dates
Compatability: Visual Basic 5.0
Difficulty: Advanced
Date Added: Wed 3rd February 2021
Rating: (8 Votes)
My Code will Take the Current Time and Convert it to a Unix Time Stamp
Inputs
No inputs
Assumes
Nothing
Code Returns
Returns an String which will be the Unix Timestamp
Public Function TimeStamp() As String
Dim StartDate As String
Dim EndTime As String
Dim StartTime As String
Dim EndDate As String
Dim dblStart As Double
Dim dblEnd As Double
Dim DateTimeStart As Date
Dim DateTimeEnd As Date
Dim TotalHrs As String
StartDate = "1/1/1970"
StartTime = "00:00:00"
EndDate = CStr(Date)
EndTime = CStr(Time)
DateTimeStart = FormatDateTime(StartDate & " " & StartTime)
DateTimeEnd = FormatDateTime(EndDate & " " & EndTime)
TimeStamp = DateDiff("s", DateTimeStart, DateTimeEnd, vbUseSystemDayOfWeek, _
vbUseSystem)
End Function