Sub chckifwintertime(date As Long, land As String) As Int
'land = "Asia/Jerusalem"
Dim dstint As Int = 0
Dim tz As AHTimeZone
tz.Initialize2(land)
Log("dst: " & tz.InDaylightTime(date))
If tz.InDaylightTime(date) Then dstint = 0 Else dstint = -1
Return dstint
End Sub