Improve error message from Date.GetRFC822Zone()

[GB.UTIL]
* OPT: Improve error message from Date.GetRFC822Zone() by showing what couldn't be recognized as a timezone.
This commit is contained in:
Tobias Boege 2019-01-05 15:50:06 +01:00
parent f11054de74
commit 38ca01684e

View file

@ -83,7 +83,7 @@ Private Sub GetRFC822Zone(sZone As String) As Float
Case Like "[+-][0-1][0-9][0-5][0-9]"
fZone = CInt(Left(sZone, 3)) + CInt(Mid$(sZone, 4)) / 60
Case Else
Error.Raise("Unknown timezone")
Error.Raise(Subst$("Unknown timezone '&1'", sZone))
End Select
Return fZone / 24