séparer une valeur a virgule

Bonjour, je voudrais savoi si c possible si on a par exemple une valeur tel que 13,56 d'obtenire deux valeurs, a savoir 13 et 0,56 ?

Merci d'avance

Ben

Surfurax


-------------------------------
Réponse au message :
-------------------------------


Bonjour,

Si tu utilises la fonction Int(), tu obtiendras la partie entière de ton nombre (Ex: Int(13,56) = 13).
A partir de ça, une méthode pour extraire les valeurs serait de faire ceci :

dim val as single
dim Entier as integer
dim Virgule as single

val = 13,56

Entier = Int(val)
Virgule = val - Entier

C'est une méthode, il y en a d'autres, l'avantage de celle-là c'est qu'elle n'utilises que peu de code.

Bonne journée

tu peux utiliser Fix

si tu fais :
a = Fix ( 13.56 )
alors a = 13

il te suffit de faire :
b = 13.56 - a
alors b = 0.56

il doit y avoir des fonctions qui le font, mais je ne vois pas lesquelles....

By Renfield

mailto:thomas_reynald@msn.com

Aucune touche n'a été blessée lors de la saisie de ce texte..........


-------------------------------
Réponse au message :
-------------------------------

> Bonjour, je voudrais savoi si c possible si on a par exemple une valeur tel que 13,56 d'obtenire deux valeurs, a savoir 13 et 0,56 ?
>
> Merci d'avance
>
> Ben

J'allais donner le même code que toi avec la fonction Int()

Il faut juste faire attention dans le cas ou tu traiterais des nombres négatifs, car la valeur entière d'un nombre négatif n'est pas identique au nombre formé par les chiffres avant la virgule.

Exemple Int(-1,02) = -2

Donc ajouter un test du type :

If vNombreATraiter >= 0 then
vPartieEntiere = Int(vNombreATraiter)
ElseIf MyVar < 0 then
vPartieEntiere = Int(vNombreATraiter) + 1
EndIf

vPartieDecimale = vNombreATraiter - vPartieEntiere


Bisous et j'espère que tu auras trouvé ton bonheur

Lili la tigresse


Vive l'analyse fonctionnelle, a quand un DSI compétent à la présidence de la république ?
*Non pas tapez pas sur la tête*


-------------------------------
Réponse au message :
-------------------------------

>
> Surfurax
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
>
> Bonjour,
>
> Si tu utilises la fonction Int(), tu obtiendras la partie entière de ton nombre (Ex: Int(13,56) = 13).
> A partir de ça, une méthode pour extraire les valeurs serait de faire ceci :
>
> dim val as single
> dim Entier as integer
> dim Virgule as single
>
> val = 13,56
>
> Entier = Int(val)
> Virgule = val - Entier
>
> C'est une méthode, il y en a d'autres, l'avantage de celle-là c'est qu'elle n'utilises que peu de code.
>
> Bonne journée
>
>

Désolée, j'avais indenté le code avec des espaces qui apparement ont été supprimés en postant.


Vive l'analyse fonctionnelle, a quand un DSI compétent à la présidence de la république ?
*Non pas tapez pas sur la tête*


-------------------------------
Réponse au message :
-------------------------------

> J'allais donner le même code que toi avec la fonction Int()
>
> Il faut juste faire attention dans le cas ou tu traiterais des nombres négatifs, car la valeur entière d'un nombre négatif n'est pas identique au nombre formé par les chiffres avant la virgule.
>
> Exemple Int(-1,02) = -2
>
> Donc ajouter un test du type :
>
> If vNombreATraiter >= 0 then
> vPartieEntiere = Int(vNombreATraiter)
> ElseIf MyVar < 0 then
> vPartieEntiere = Int(vNombreATraiter) + 1
> EndIf
>
> vPartieDecimale = vNombreATraiter - vPartieEntiere
>
>
> Bisous et j'espère que tu auras trouvé ton bonheur
>
> Lili la tigresse
>
>
> Vive l'analyse fonctionnelle, a quand un DSI compétent à la présidence de la république ?
> *Non pas tapez pas sur la tête*
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> >
> > Surfurax
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> >
> > Bonjour,
> >
> > Si tu utilises la fonction Int(), tu obtiendras la partie entière de ton nombre (Ex: Int(13,56) = 13).
> > A partir de ça, une méthode pour extraire les valeurs serait de faire ceci :
> >
> > dim val as single
> > dim Entier as integer
> > dim Virgule as single
> >
> > val = 13,56
> >
> > Entier = Int(val)
> > Virgule = val - Entier
> >
> > C'est une méthode, il y en a d'autres, l'avantage de celle-là c'est qu'elle n'utilises que peu de code.
> >
> > Bonne journée
> >
> >
>