« Float (rtl) » : différence entre les versions
m (Remplacement du texte — « Category:Latest » par « Category:Version700 ») |
m (Remplacement du texte — « http://frp.sage.fr/wiki1000/medias/images/stock/versionlatest-32x32.png » par « http://frp.sage.fr/wiki1000/medias/images/stock/version650-32x32.png ») |
||
| Ligne 1 : | Ligne 1 : | ||
{{ | {{Version650}} | ||
<source lang='delphi'>Function Float(const V:Variant):Variant;</source> | <source lang='delphi'>Function Float(const V:Variant):Variant;</source> | ||
Version du 13 janvier 2015 à 09:47
{{#images:version650-32x32.png|stock}} <source lang='delphi'>Function Float(const V:Variant):Variant;</source>
Cette fonction convertit un variant en variant de type Float.
| Result | Le variant converti en Float |
| V | Le variant à convertir |
Exemple :
<source lang='delphi'> //Procedure Ventiler; var vCessionBienDetail : TCessionBienDetail;
vTotal : float; vValeur : float; vMontant: float;
begin
if cleRepartition.value = repartitionSortie_MontantAcquisition then vTotal := GetTotalMtAcquisition else if clerepartition.value = repartitionSortie_valeurnette then vTotal := GetTotalValeurNette else vTotal := GetTotalValeurBrute;
// vTotal,vMontant,vValeur may be very large amount // convert to float to compute the a/b*c
vTotal := Float(vTotal); vMontant := Float(montant.value);
forEach vCessionBienDetail in cessionBienDetailList do
begin
if cleRepartition.value = repartitionSortie_MontantAcquisition then
vValeur := vCessionBienDetail.BienComptable.montantAcquisition.value
else if clerepartition.value = repartitionSortie_valeurnette then
vValeur := vCessionBienDetail.GetValeurNetteSortie
else
vValeur := vCessionBienDetail.GetValeurBrute;
if vTotal <> 0 then
vCessionBienDetail.prixCession.value := (vMontant / vTotal) * vValeur;
vCessionBienDetail.Calculer;
end;
end; </source>
Voir aussi:
{{#if:Développement DSM|
{{#if:Développement DSM|— Développement DSM |}} — Développement DSM —
|
{{#if:|— [[{{{1}}}]] |}} — Développement DSM —
}}