Discussion :

[HULK77]

Bonjour à tous,

J'aimerai affiché un montant au format XXX.YY
Or quand j'ai un montant = 124.45 c'est OK
mais quand j'ai un montant = 10 le résultat est 10.00
J'aimerai obtenir 010.00

Comment puis je faire pour ajouter le ou les zéros à gauche ?

Merci
HULK77

[Beniou]

Bonjour,

Pour cela, tu peux utiliser la fonction sprintf. Tu testes ton montant à afficher et s'il est inférieur à 100 tu utilses le format "0%.2f" qui veut dire un zero puis ton nombre avec 2 chiffres après la virgule. Sinon tu utilises le format "%.2f" qui n'ajoute pas de zéro.

Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use strict;
 
my @prix = (124.25,10.00);
 
foreach my $montant(@prix){
 
  if($montant < 100){
    print(sprintf("0%.2f\n",$montant));
  }
  else{
    print(sprintf("%.2f\n",$montant));
  }
}

Tu peux aussi récupérer le retour de sprintf dans une variable.

[Jedai]

Quitte à utiliser sprintf autant l'utiliser jusqu'au bout et automatiser l'ajout de 0 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
use strict;
 
my @prix = (124.25, 10);
 
foreach my $montant(@prix){
  printf "%06.02f\n", $montant;
}
 
__END__

--
Jedaï

[Beniou]

Effectivement, c'est beaucoup plus simple comme cela. Ca m'a fait un petit rappel sur le "sprintf" et les formats qu'il utilise

[HULK77]

Merci ca marche !

Ce que j'ai fait : %03.2f pour le MT ligne[6]

printf FIC_PFO "$ligne3[0],%02d,%02d,$ligne3[3],$ligne3[4],$ligne3[5],%03.2f,$ligne3[7],$ligne3[8],$ligne3[9],$ligne3[10],$ligne3[11]\n"
,$ligne3[1],$ligne3[2],$ligne3[6];

Cordialement

HULK77

[Jedai]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
{
  local $" = ",";
  printf FIC_PFO "$ligne3[0],%02d,%02d,@ligne3[3..5],%03.2f,@ligne3[7..11]\n" , @ligne3[1,2,6];
}

ou peut-être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

printf "%s,%02d,%02d,%s,%s,%s,%03.2f,%s,%s,%s,%s,%s", @ligne3[0..11];

--
Jedaï