ConvertCurrency (rtl)
De Wiki1000
Function ConvertCurrency(iCur:Currency; iDeviseOrg:TdbfCurrency; iDate:DateTime; iDeviseRslt:TdbfCurrency):Currency;
Cette fonction convertit une valeur monétaire d'une devise à une autre.
Result | Valeur convertie dans la devise de destination. |
iCur | Valeur monétaire à convertir. |
iDeviseOrg | Devise d'origine. |
iDate | Date de conversion. |
iDeviseRslt | Devise de destination. |
Une chaîne de conversion est construite à partir de la date passée en paramètre. Si il n'existe pas de cours à cette date le cours à date immédiatement inférieur est utilisé, à défaut de cours le cours par défaut de la devise est utilisé.
Exemple
begin end;
Voir aussi: