Discussion :

[totoff80]

je cherche cette commande sur delphi

vb6

Code vb :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private x As Double
Private y As Double
 
 
Private Sub Command1_Click()
x = Text1.Text * 100
y = Int(Text1.Text)
If y * 100 < x Then
Text2.Text = x
Else: Text2.Text = Text1.Text
End If
End Sub

[Cl@udius]

Salut

Tu es certain que c'est bien ce code !
Car si je comprends bien la condition du IF est toujours à False, donc cela se résume à:

Code vb :

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

Text2.Text = Text1.Text

@+ Claudius

[ShaiLeTroll]

Moi, aussi, je ne connaissans pas le VB, j'ai des doutes sur la solution, le code est si mal indenté !

Code :

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

1
2
x = Text1.Text * 100
y = Int(Text1.Text)

je suppose vu le titre, que tu veux tronquer la valeur décimale, genre 123.45, tu veux 123, tu l'avais donc sous les yeux ... Int ou Trunc


Sinon, en Delphi, si tu fais Edit1.Text, il faut faire un StrToFloat ...

consulte donc l'aide, avec l'onglet "Recherche", avec "arrondi entier", tu aurais trouvé

[totoff80]

je veux tronquer la valeur décimale, genre 123,45 qui devient 12345.
enfaite j'ai besoin d'enlever la virgule, mais j'ai des valeur du genre 123,45 (juste multiplier par 100), et j'ai des valeur du genre 123 mais si je multiplie par 100 ça me donne 12300

[Gilbert Geyer]

Salut,

nombre decimal sans la virgule, en supposant que dans 123645,78 la manip ne consiste pas à supprimer la virgule en conservant 12364578, lol (on a déjà vu plein de questions bizarres ici )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
var  x,y : Double; code : integer;
 
procedure Tagada;
begin 
         val(Text1.Text, x, code); // convertit la variable Texte1.text si elle est du type string vers x de type Double
         if code = 0 then // alors la conversion s'est bien passée, sinon code=position du caractère erronné.
         begin x:= .... // x devient utilisable
                 x:=round(x); // x arrondi donc sans la virgule
                 ou x:=trunc(x); // x tronqué à partir de la virgule
                 // et pour arrondir vers le haut ou vers le bas il y aussi
                 x:=Ceil(x);
                 x:=Floor(x); 
         end;
end;

A+

P.S : ouille ça bouge vite ici

[totoff80]

ça me répond pas à ma réponse

je veux tronquer la valeur décimale, genre 123,45 qui devient 12345.
enfaite j'ai besoin d'enlever la virgule, mais j'ai des valeur du genre 123,45 (juste multiplier par 100), et j'ai des valeur du genre 123 mais si je multiplie par 100 ça me donne 12300 alors qu'il me faut 123

[Aka Guymelef]

Bête et méchant :

Code :

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

1
2
3
4
5
6
7
8
9
 
function VirerLaVirgule( var MaValeur: Double );
var
 S: String;
begin
 S := FloatToStr( MaValeur );
 S := StringReplace( S, ',', '', [rfReplaceAll] );
 MaValeur := StrToFloat( S );
end;

[Gilbert Geyer]

Salut,

totoff80 a écrit :

je veux tronquer la valeur décimale, genre 123,45 ... mais ... alors qu'il me faut 123

... ben suffit d'utiliser Trunc() :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.SpeedButton1Click(Sender: TObject);
var       MaValeur: Double;
begin     Mavaleur:=123.45;    //<- chez moi DécimalSepartor:='.'
          ou Mavaleur:=123,45; //<-  si chez toi DécimalSepartor:=','
          Mavaleur:=Trunc(Mavaleur);
          showMessage(FloatToStr(Mavaleur)); //<- affiche 123
end;

A+

[Aka Guymelef]

Non non Gilbert, relis bien ce qu'il a dit si il y a des valeurs 123.45 et qu'il multiplie par 100, c'est bon ça marche mais si il a des valeurs style 123 et bien ça ne marche plus puisqu'il obtient 12300 pour avoir multiplié par 100, fort logiquement.

Donc c'est vraiment un "virer la virgule" et non un truncate même si je m'interroge toujours sur l'utilité de ça mais bon.

[Gilbert Geyer]

Bonjour,

En fait l'énoncé du problème à résoudre n'est pas clair :

je veux tronquer la valeur décimale, genre 123,45 qui devient 12345.

... ça supposerait que ce résultat de 12345 lui convient dans le cas du 123.45

... et j'ai des valeur du genre 123 mais si je multiplie par 100 ça me donne 12300 alors qu'il me faut 123

... j'en déduis que dans le 1er cas il veut multiplier par 100 et pas dans ce 2ème cas.
... bigre, ça donne un mélange de valeurs multipliées par 100 et d'autres qui restent inchangées : autant mélanger des mètres avec des centimètres.
... mais après tout si tel est son objectif il suffit de faire un :

Code :

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

if pos(DécimalSeparator,maChaine)>0 then ...

avant de multiplier par 100 en enlevant sa virgule.

A +

[Aka Guymelef]

C'est aussi une possibilité