Felt formatering med særlig valuta

Hvad mener du med 'Prisen defineres som "xx xx xx"' - kom med et par eksempler.

Et eksempel kan være 100 (Store) 50 (Mellem) 10 (Små).
Store, mellem og små refererer til den valuta der bruges á la kroner og øre, blot med en ekstra enhed.

Feltypen valuta betyder ikke en valgbar valuta, men et decimaltal som er foranstillet valutaenheden for computerens regionale indstillinger.
Hver eneste valuta man ønsker at anvende må man selv definere - det mest oplagte er decimaltal hvor heltalsdelen er møntfoden.

Lad os antager at vi har valgt at repræsentere den japanske yen og har en pris på 2 yen, 3 sen og 7 rin. Decimaltal: 2,037

Function yenStr(bel As Currency)
    yenStr = Int(bel) & " " & Int((bel - Int(bel)) * 100) & " " & Int((bel - Int(bel) - Int((bel - Int(bel)) * 100) / 100) * 1000)
End Function

De aller fleste valutaer har minste enhed på 1/100 møntfod:

Function valuta100Str(bel As Currency)
    valuta100Str = Int(bel) & " " & Int((bel - Int(bel)) * 100)
End Function

lukker