Unix TimeStamp

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

Original Author: Christopher Trahan

Inputs

No inputs

Assumptions

Nothing

Returns

Returns an String which will be the Unix Timestamp

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


About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 79 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.