So, if there is any event in the 1hours , hs3 is ‘’skipping’’ they wont run?
same question for November, are the events going to fire two times?
same question for November, are the events going to fire two times?
If this is your first visit, be sure to check out the FAQ. You must register before you can post.
IMPORTANT: Your first post will be checked for appropriate content. This may take a bit of time.
Sub Main(ByVal Parms As String) Dim Debug As Boolean = True Dim logName As String = "DST" Try Dim localZone As TimeZoneInfo = TimeZoneInfo.Local Dim DST As Boolean = False Dim localTime As Date = Now If Debug Then hs.writelog(logName,localZone.ToString) DST = localZone.IsDaylightSavingTime(localTime) If Debug Then hs.writelog(logName,CStr(localTime) & " : " & CStr(DST)) localTime = #3/9/2019 7:14 PM# DST = localZone.IsDaylightSavingTime(localTime) If Debug Then hs.writelog(logName,CStr(localTime) & " : " & CStr(DST)) localTime = #3/9/2019 8:14 PM# DST = localZone.IsDaylightSavingTime(localTime) If Debug Then hs.writelog(logName,CStr(localTime) & " : " & CStr(DST)) localTime = #3/10/2019 1:59 AM# DST = localZone.IsDaylightSavingTime(localTime) If Debug Then hs.writelog(logName,CStr(localTime) & " : " & CStr(DST)) localTime = #3/10/2019 3:01 AM# DST = localZone.IsDaylightSavingTime(localTime) If Debug Then hs.writelog(logName,CStr(localTime) & " : " & CStr(DST)) Catch ex As Exception hs.WriteLog(logname, "Exception " & ex.ToString) End Try End Sub
Sub Main(ByVal Parms As String) Dim DST As Boolean Dim localZone As TimeZoneInfo = TimeZoneInfo.Local Dim localTime As Date = Now DST = localZone.IsDaylightSavingTime(localTime) If DST = True Then hs.SetDeviceValueByRef(7910, 100, True) If DST = True Then hs.writelog("Daylight saving time (DST)","ON") If DST = False Then hs.SetDeviceValueByRef(7910, 0, True) If DST = False Then hs.writelog("Daylight saving time (DST)","OFF") End Sub
Comment