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:
parent
f11054de74
commit
38ca01684e
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue