Float (rtl)

Function Float(const V:Variant):Variant;

//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;