Dim cstZone As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("China" & _
  "Standard Time")
Dim h3 As Int32 = Date.UtcNow.Hour + cstZone.BaseUtcOffset.Hours    ' aktuelle 
' Stunde
Dim m3 As Int32 = Date.UtcNow.Minute    ' aktuelle Minute
Dim s3 As Int32 = Date.UtcNow.Second   ' aktuelle Sekunde