diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-12-06 12:11:43 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-12-06 12:11:43 +0000 |
| commit | edf07f804ca915c14f6864ff13cc4b83bad80b8a (patch) | |
| tree | aee630ff0b3cec33883c5319940ae2affabb8509 /wizards/source/euro/Writer.xba | |
| parent | b8213b7f8a8771a0719eb2b9de564cd271cb7ce3 (diff) | |
#95671# converting of texdocumentfields now improved
Diffstat (limited to 'wizards/source/euro/Writer.xba')
| -rw-r--r-- | wizards/source/euro/Writer.xba | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/wizards/source/euro/Writer.xba b/wizards/source/euro/Writer.xba index 3c5999796331..3833402baa85 100644 --- a/wizards/source/euro/Writer.xba +++ b/wizards/source/euro/Writer.xba @@ -57,12 +57,12 @@ Dim MaxIndex as Integer If CheckFormatType(oTextField) Then If oTextField.PropertySetInfo.HasPropertybyName("Value") Then If Not oTextField.SupportsService("com.sun.star.text.TextField.GetExpression") Then - oTextField.Content = Str(oTextField.Value/CurrFactor) + oTextField.Content = CStr(Round(oTextField.Value/CurrFactor,2)) End If ElseIf oTextField.TextFieldMaster.PropertySetInfo.HasPropertyByName("Value") Then CurInstanceName = oTextField.TextFieldMaster.InstanceName If Not FieldinArray(InstanceNames(), MaxIndex, CurInstanceName) Then - oTextField.TextFieldMaster.Content = Str(oTextField.TextFieldMaster.Value/CurrFactor) + oTextField.TextFieldMaster.Content = CStr(Round(oTextField.TextFieldMaster.Value/CurrFactor,2)) InstanceNames(MaxIndex) = CurInstanceName MaxIndex = MaxIndex + 1 End If |