getcurrencygender
GetCurrencyGender
GetCurrencyGender(CiselnyKodMeny):Byte - funkce
Funkce vrátí rod názvu zvolené měny
- CiselnyKodMeny: číselný kód měny typu Integer. Třípísmenný kód měny převádíme do číselného za pomocí funkce CCCToNum()
| Hodnota | Rod | Příklad |
|---|---|---|
| 0 | mužský | Dolar, Rubl, Dinár … |
| 1 | ženský | Koruna, Peseta, Libra … |
| 2 | střední | EURO, Peso, Escudo … |
Příklad:
LocStr:String=NumToWord(Pokladna.CastkaM,True,(GetCurrencyGender(CCCToNum(Mena))=0),GetLangID())+' '+Mena)
getcurrencygender.txt · Poslední úprava: 2010/04/19 13:46 autor: slim