Float (rtl)

{{#images:version700-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 —

}}