Float (rtl)

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:

— Développement DSM — Développement DSM —