Tweet
Local tt As systemtime
tt = st
tt.wday = %Monday
tt.wyear = 2001
tt.wMonth = 4
MsgBox Str$(CountDownToDST(tt))
MsgBox STtoNISTTime(0,g_ClientPingTime)
Exit Function
Function CountDownToDST(st As SYSTEMTIME)Export As Long
If st.wMonth <> %April Or st.wday > 8 Then Exit Function 'Past the DST marker already, 1st Sunday of April
Select Case st.wday
Case %Sunday
Function = 0
Case %Monday
Function = 6
Case %Tuesday
Function = 5
Case %Wednesday
Function = 4
Case %Thursday
Function = 3
Case %Friday
Function = 2
Case %Saturday
Function = 1
End Select
End Function
Dim WHATDATE$
Call DATEFormat (DayLightDate(2000), WHATDATE$)
txtDayLightSavingsTime.Text = WHATDATE$
Function DayLightDate (iYear) Export As Long
DayLightDate = SetMonday(DateSerial(iYear, 3, 31)) + 6
End Function
Function SetMonday (ByVal dDateSerial As Double) _
Export As Long
Dim lDateSerial As Long, iSetMonday As Integer
lDateSerial = Fix(dDateSerial)
iSetMonday = (lDateSerial - 2) Mod 7
Function = lDateSerial - iSetMonday
End Function
FUNCTION DATESERIAL(ByVal iInYears AS INTEGER, _
ByVal iInMonths AS INTEGER, ByVal iInDays _
AS INTEGER ) EXPORT AS DOUBLE
Dim dBuildDate As Double
Dim iYears As Integer
Dim iMonths As Integer
Dim iDays As Integer
iYears = iInYears
iMonths = iInMonths
iDays = iInDays - 1
If iYears > 1000 Then iYears = iYears - 1900
dBuildDate = Int(iYears * 365.248) + 2
iYears = iYears + 1900
Do
IF iMonths = %JAN THEN EXIT DO
dBuildDate = dBuildDate + 31 'Days in January
IF iMonths = %FEB THEN EXIT DO
If iYears Mod 4 Then
dBuildDate = dBuildDate + 28 'Days in February
Else
dBuildDate = dBuildDate + 29 'Days in Leap February
End If
IF iMonths = %MAR THEN EXIT DO
dBuildDate = dBuildDate + 31 'Days in March
IF iMonths = %APR THEN EXIT DO
dBuildDate = dBuildDate + 30 'Days in April
IF iMonths = %MAY THEN EXIT DO
dBuildDate = dBuildDate + 31 'Days in May
IF iMonths = %JUN THEN EXIT DO
dBuildDate = dBuildDate + 30 'Days in June
IF iMonths = %JUL THEN EXIT DO
dBuildDate = dBuildDate + 31 'Days in July
IF iMonths = %AUG THEN EXIT DO
dBuildDate = dBuildDate + 31 'Days in August
IF iMonths = %SEP THEN EXIT DO
dBuildDate = dBuildDate + 30 'Days in September
IF iMonths = %OCT THEN EXIT DO
dBuildDate = dBuildDate + 31 'Days in October
IF iMonths = %NOV THEN EXIT DO
dBuildDate = dBuildDate + 30 'Days in November
IF iMonths = %DEC THEN EXIT DO
DATESERIAL = 0
Exit Function
Loop
dBuildDate = dBuildDate + iDays
FUNCTION = dBuildDate
End Function
FUNCTION TIMESERIAL(ByVal iHours AS INTEGER, _
ByVal iMins AS INTEGER, ByVal iSecs AS INTEGER ) _
EXPORT AS DOUBLE
Dim iHoursPerDay As Integer
Dim iMinsPerDay As Integer
Dim lSecsPerDay As Long
'A time serial number is a fraction of a day
iHoursPerDay = 24
iMinsPerDay = 60 * iHoursPerDay
lSecsPerDay = 60 * iMinsPerDay
FUNCTION = ( iHours / iHoursPerDay ) + _
( iMins / iMinsPerDay ) + ( iSecs / lSecsPerDay )
End Function
SUB DATEFormat (ByVal dDateSerial AS DOUBLE, _
WHATDATE AS STRING * 10) EXPORT
Dim iYears As Integer, iMonths As Integer, _
iDays As Integer, sDate As String
iYears = Int(dDateSerial - 2 / 365.248)
iDays = (Int(dDateSerial) - Int(iYears * 365.248)) - 1
iYears = iYears + 1900
Do
INCR iMonths
If iDays < 32 Then Exit Do
Select Case iMonths
CASE %FEB
If iYears Mod 4 Then
iDays = iDays - 28
Else
iDays = iDays - 29
End If
CASE %APR
iDays = iDays - 30
CASE %JUN
iDays = iDays - 30
CASE %SEP
iDays = iDays - 30
CASE %NOV
iDays = iDays - 30
Case Else
iDays = iDays - 31
End Select
Loop
If iMonths < 10 Then
sDate = "0" + LTrim$(Str$(iMonths)) + "-"
Else
sDate = LTrim$(Str$(iMonths)) + "-"
End If
If iDays < 10 Then
sDate = sDate + "0" + LTrim$(Str$(iDays)) + "-" + _
LTrim$(Str$(iYears))
Else
sDate = sDate + LTrim$(Str$(iDays)) + "-" + _
LTrim$(Str$(iYears))
End If
WHATDATE = sDate
End Sub
SUB TIMEFormat (ByVal dDateSerial AS DOUBLE, _
WHATTIME AS STRING * 8) EXPORT
Dim lDate As Long
Dim iHours As Integer, iMinutes As Integer, _
iSeconds As Integer, sTime As String
Dim iHoursPerDay As Integer
Dim iMinsPerDay As Integer
Dim lSecsPerDay As Long
Dim sAM As String * 3
'A time serial number is a fraction of a day
sAM = " AM"
iHoursPerDay = 24
iMinsPerDay = 60 * iHoursPerDay
lSecsPerDay = 60 * iMinsPerDay
lDate = Int(dDateSerial)
dDateSerial = dDateSerial - lDate
'Now dDateSerial contains only the time as a fraction of a day
iHours = Int(dDateSerial * iHoursPerDay)
If iHours Then dDateSerial = dDateSerial - _
(iHours / iHoursPerDay)
iMinutes = Int(dDateSerial * iMinsPerDay)
If iMinutes Then dDateSerial = dDateSerial - _
(iMinutes / iMinsPerDay)
iSeconds = Int(dDateSerial * lSecsPerDay)
If iHours < 10 Then
sTime = "0" + LTrim$(Str$(iHours)) + ":"
If sTime = "00:" Then sTime = "12:"
ElseIf iHours > 12 Then
iHours = iHours - 12
If iHours < 10 Then
sTime = "0" + LTrim$(Str$(iHours)) + ":"
Else
sTime = LTrim$(Str$(iHours - 12)) + ":"
End If
sAM = " PM"
ElseIf iHours = 12 And iMinutes > 0 Then
sTime = "12:"
sAM = " PM"
Else
sTime = LTrim$(Str$(iHours)) + ":"
End If
If iMinutes < 10 Then
sTime = sTime + "0" + LTrim$(Str$(iMinutes)) + ":"
Else
sTime = sTime + LTrim$(Str$(iMinutes)) + ":"
End If
If iSeconds < 10 Then
sTime = sTime + "0" + LTrim$(Str$(iSeconds))
Else
sTime = sTime + LTrim$(Str$(iSeconds))
End If
WHATTIME = sTime + sAM
End Sub
Comment