thanx a lot roy, but the right way to get the country codes is this:
B4X:
Dim tz As AHTimeZone
tz.Initialize
For i = 0 To tz.AvailableIds.Size -1
Log(tz.AvailableIds.get(i))
Next
now i can get what i asked for like this:
B4X:
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