Μετατροπή αριθμών σε συμβολοσειρές
Η συνάρτηση Format επιτρέπει τον ακριβή καθορισμό της μετατροπής
αριθμητικών τιμών σε συμβολοσειρές.
Η σύνταξή της είναι:
Format(έκφραση[, εμφάνιση])
όπου η "εμφάνιση" είναι μια συμβολοσειρά που καθορίζει θα μετατραπεί η
αντίστοιχη έκφραση σύμφωνα με τους παρακάτω κανόνες:
- 0
- Εμφανίζει ένα ψηφίο ή 0
- #
- Εμφανίζει ένα ψηφίο ή κενό
- .
- Καθορίζει το σημείο εμφάνισης των δεκαδικών τιμών
- ,
- Καθορίζει το διαχωρισμό των χιλιάδων
- %
- Εμφανίζει το πηλίκο του αριθμού με το 100 ως ποσοστό
- E+
- Εμφανίζει τον αριθμό σε εκθετική μορφή με πρόσημο στους θετικούς εκθέτες
- E-
- Εμφανίζει τον αριθμό σε εκθετική μορφή χωρίς πρόσημο στους θετικούς εκθέτες
- "σύμβολα"
- Εμφανίζει τα σύμβολα μέσα στα εισαγωγικά
Παράδειγμα:
Sub main()
Dim x As Currency
x = 1500000
MsgBox ("Κερδίσατε " + Format(x, "0,0.00 ""EUR""!"))
End Sub
Εμφανίζει: