decimale

Question

comment isoler la partie decimale d'un nombre afin de ne modifier que cette partie sans toucher a la valeur entiere

Renfield · Answer

a = 25.32
decimalPart = a - fix(a)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Molenn · Answer

Pour utiliser que la partie décimale dans un calcul en code donc ?

La première qui me vient à l'esprit :

Tu récupères justement la partie entière de ton nombre dans une variable, avec la fonction Int, partie entière que tu soustraits à ton nombre.
Il te reste donc la partie décimale.
Tu appliques ton traitement.
Puis tu ajoutes à nouveau ton entier quand tu as fini ton traitement sur la partie décimale.

Voili, voilou.

En fonction de ce que tu veux faire sur la partie décimale, tu as peut être mieux à faire, mais il faudrait en dire un peu plus dans ce cas ^^.

Molenn.

jrivet · Answer

Salut Regarde ceci en l'adaptant a tes besoins Dim StrTemp As String Dim TaValeur As Single Dim ValeurIsolee As Single TaValeur = 3.1456 StrTemp = CStr (TaValeur) StrTemp = "0" & Mid(StrTemp, InStr(1, StrTemp, ".")) ValeurIsolee = CSng(StrTemp) MsgBox ValeurIsolee Coloration syntaxique automatique [AFCK] @+, Julien Pensez: Règlement/STRONG>

osfou · Answer

merci bien c tout a fait ce qu'il me fallait            impec

Dolphin Boy · Answer

Salut
Renfield> le résultat de :
a = 25.32
decimalPart = a - fix(a)
donne : 0.3199997
Je vote donc pour la solution de <jrivet>, plus longue mais apparemment plus fiable.

Dolphin Boy · Answer

En fait, ça donne bien 0.32 chez moi mais uniquement si a est de type Currency.
Problème de processeur ?

Renfield · Answer

effectivement, pas précis pour des Single :

? csng(25.32)- 25
 0.3199997 

faire un Instr "." est dangereux... on peut avoir un autre séparateur décimal...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

erefdatacomputing · Answer

Toutes ces solutions sont correctes mais imprécises arrivée à un certain moment.
Généralement quand on arrive à 6, 7 ou 8 chiffres après la virgule, on a un résultat qui devient approximatif.

Essaye cela (dans un CommandButton): 

Private Sub Command1_Click()

Dim valdecimale As String
Dim result As String
Dim a As Double
Dim i As Double




valdecimale = "123.456789012346789012345678901234567890123456789"
'soit 45 chiffres après la virgule ....  et je me suis arrêté là !!!!
a = Len(valdecimale)






'boucle de recherche du séparateur décimal
For i = 1 To a
If Mid(valdecimale, i, 1) = "." Then GoTo separateur
Next i





MsgBox "Pas de chiffres après la virgule !!"
'si la boucle est finie sans aller à 'separateur' on à donc içi une valeur entière'
GoTo attente





separateur:
'affichage de la partie qui se trouve après le séparateur décimal
result = Mid(valdecimale, i + 1, a - i)
MsgBox result





attente:
End Sub



à plus !!!!!    

Je comprends vite mais il faut m'expliquer longtemps et tout en détails !!!

Decimale

8 réponses

Votre réponse

Discussions similaires