README.md

Description

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

More Info

No inputs

Returns an String which will be the Unix Timestamp

Submitted On
By	Christopher Trahan
Level	Advanced
User Rating	4.9 (39 globes from 8 users)
Compatibility	VB 6.0
Category	Math/ Dates
World	Visual Basic
Archive File

Source Code

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