Listing 1: Code for Calculating Date Formats 

' BEGIN CALLOUT A
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colTimeZones = objWMIService.ExecQuery("Select * From Win32_TimeZone")
For Each objTimeZone in colTimeZones
  TimeZoneBias = objTimeZone.Bias
  DaylightBias = objTimeZone.DaylightBias
Next
' END CALLOUT A
 
' BEGIN CALLOUT B
dteCnv = CDate(DateStr.value)
dteCnv = DateAdd("n",-TimeZoneBias,dteCnv)
If Checkbox1.Checked Then
  dteCnv = DateAdd("n",DaylightBias,dteCnv)
End If
' END CALLOUT B

' BEGIN CALLOUT C
nan1601 = DateDiff("s",#1/1/1601#,dteCnv)
str1601 = CStr(nan1601) & "0000000"
' END CALLOUT C





1