LibreOffice 7.4 Βοήθεια
Επιστρέφει μια συμβολοσειρά με την εφαρμοσμένη μορφοποίηση του αριθμού σε αριθμητική παράσταση.
FormatNumber( expression, numDigitsAfterDecimal as Integer, includeLeadingDigit as Integer, useParensForNegativeNumbers as Integer, groupDigits as Integer )Συμβολοσειρά
Παράσταση: Απαιτείται. Η αριθμητική παράσταση που θα μορφοποιηθεί.
numDigitsAfterDecimal: Προαιρετικό. Μια αριθμητική τιμή που καθορίζει τον αριθμό των ψηφίων που πρέπει να εμφανίζονται μετά το δεκαδικό. Εάν παραληφθεί, η προεπιλογή είναι η τιμή -1, που σημαίνει ότι οι προεπιλεγμένες ρυθμίσεις για την τοπική διεπαφή χρήστη πρέπει να χρησιμοποιηθούν.
includeLeadingDigit: Προαιρετικό. Μια τιμή απαρίθμησης vbTriState, που καθορίζει εάν το αρχικό μηδέν πρέπει να εμφανίζεται για κλασματικές τιμές.
vbTrue or -1: Εμφανίζει ένα αρχικό μηδέν.
vbFalse or 0: Δεν εμφανίζει αρχικά μηδενικά.
vbUseDefaults ή -2: Χρησιμοποιούνται οι τοπικές ρυθμίσεις της διεπαφής χρήστη. Αυτή είναι η προεπιλογή όταν παραλείπεται.
useParensForNegativeNumbers: προαιρετικό. Μια τιμή απαρίθμησης vbTriState που καθορίζει εάν οι αρνητικοί αριθμοί πρέπει να περικλείονται σε παρενθέσεις.
vbTrue ή -1: Χρησιμοποιούνται παρενθέσεις για αρνητικούς αριθμούς.
vbFalse ή 0: Δεν εμφανίζει παρενθέσεις.
vbUseDefaults ή -2: Το ίδιο όπως το vbFalse. Αυτή είναι η προεπιλογή όταν παραλείπεται.
groupDigits: Προαιρετικό. Μια τιμή απαρίθμησηςvbTriState που καθορίζει ότι ο αριθμός πρέπει να ομαδοποιηθεί (σε χιλιάδες, κλπ.), χρησιμοποιώντας τον οριοθέτη ομάδας που καθορίζεται στις τοπικές ρυθμίσεις του συστήματος.
vbTrue ή -1: Ψηφία ομάδας.
vbFalse ή 0: Δεν ομαδοποιεί τα ψηφία ομάδας.
vbUseDefaults ή -2: Το ίδιο όπως το vbFalse. Αυτή είναι η προεπιλογή όταν παραλείπεται.
Sub TestFormatNumber
testName = "Test 1: positive, 2 decimals"
str2 = "12.20"
str1 = FormatNumber("12.2", 2, vbFalse, vbFalse, vbFalse)
msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)
testName = "Test 2: negative, 20 decimals, use leading zero"
str2 = "-0.20000000000000000000"
str1 = FormatNumber("-.2", 20, vbTrue, vbFalse, vbFalse)
msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)
testName = "Test 3: negative, 20 decimals, no leading zero"
str2 = "-.20000000000000000000"
str1 = FormatNumber("-0.2", 20, vbFalse, vbFalse, vbFalse)
msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)
testName = "Test 4: negative, no leading zero, use parens"
str2 = "(.20)"
str1 = FormatNumber("-0.2", -1, vbFalse, vbTrue, vbFalse)
msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)
testName = "Test 5: negative, default leading zero, use parens"
str2 = "(0.20)"
str1 = FormatNumber("-0.2", -1, vbUseDefault, vbTrue, vbFalse)
msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)
testName = "Test 6: group digits"
str2 = "-12,345,678.00"
str1 = FormatNumber("-12345678", -1, vbUseDefault, vbUseDefault, vbTrue)
msgbox( "FormatNumber returned: " + str1 + ", Expected: " + str2)
End Sub