diff options
Diffstat (limited to 'packages/libxml')
| -rw-r--r-- | packages/libxml/src/xmlxsd.pas | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/packages/libxml/src/xmlxsd.pas b/packages/libxml/src/xmlxsd.pas index 6be8fcd7bc..3b9dff45e4 100644 --- a/packages/libxml/src/xmlxsd.pas +++ b/packages/libxml/src/xmlxsd.pas @@ -363,7 +363,9 @@ begin tzUser: begin if Timezone^.Hour >= 0 then - Result := Result + '+'; + Result := Result + '+' + else + Result := Result + '-'; Result := Result + Format('%2.2d:%2.2u', [Timezone^.Hour, Timezone^.Minute]); end; end; @@ -390,7 +392,9 @@ begin tzUser: begin if Timezone^.Hour >= 0 then - Result := Result + '+'; + Result := Result + '+' + else + Result := Result + '-'; Result := Result + Format('%2.2d:%2.2u', [Timezone^.Hour, Timezone^.Minute]); end; end; |
