Dim a As Integer
Dim b As Long
Dim c As Double
Dim d As Currency
a = 6523
b = 987237
c = 7635.987123
d = 9871453453.4355
Print CNCL_CurVal(||, a, | €|, |.|, |,|, 2, False)
Print CNCL_CurVal(||, b, | €|, |.|, |,|, 2, False)
Print CNCL_CurVal(|$ |, c, ||, |,|, |.|, 2, True)
Print CNCL_CurVal(||, d, | €|, |.|, |,|, 2, False)
Ausgabe:
6.523,00 €
987.237,00 €
$ 7,635.99
9.871.453.453,43 €