Float (rtl)
De Wiki1000
Function Float(const V:Variant):Variant;
Cette fonction convertit un variant en variant de type Float.
Result | Le variant converti en Float |
V | Le variant à convertir |
Exemple :
//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;
Voir aussi: