Unix TimeStamp
My Code will Take the Current Time and Convert it to a Unix Time Stamp
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
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
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine