GetCurrencyGender

GetCurrencyGender(CiselnyKodMeny):Byte - funkce

Funkce vrátí rod názvu zvolené měny

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)