• Home
 · 
• Math/Dates
 · 
• Unix TimeStamp

Unix TimeStamp

My Code will Take the Current Time and Convert it to a Unix Time Stamp

Inputs
No inputs

Assumes
Nothing

Returns
Returns an String which will be the Unix Timestamp

Rate Unix TimeStamp

• 1
• 2
• 3
• 4
• 5

(8(8 Vote))

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