Discussion :

[EE]

bonjour
je voudrais séparer par une fonction (que je n'ai pas trouvée) la valeur décimale de la valeur entiere d'in nombre réel double
ex 1.42
avoir
x= 1
y = 42

Merci

[Tofalu]

Int retourne la partie entière. La partie décimale est égale au nombre moins sa partie entière, on a donc facilement :

Code :

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

1
2
3
Dim N As Double
N = 2.322001
MsgBox N - Int(N)

Ceci dit, pour que cela fonctionne aussi avec N négatif, il faut utiliser la fonction Fix à la place de Int. En effet, Int(-2.9) retourne 3 alors que Fix(-2.9) retourne 2.

Différence entre les fonctions Int et Fix : si number est négatif, Int renvoie le premier entier négatif inférieur ou égal à number, alors que Fix renvoie le premier entier négatif supérieur ou égal à number. Par exemple, Int convertit -8,4 en -9 et Fix convertit -8,4 en -8.

Ce qui donne donc :

Code :

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

1
2
3
Dim N As Double
N = -2.9
MsgBox Abs(N - Fix(N))

Abs permet de retourner un résultat toujours positif

[EE]

tujours fidèle au poste !!!!
merci beaucoup
je vérifie avec ma fonction case et je te tiens au courant
merci encore

[EE]

precision jsuqu'au bout ..... pas de valeur négative pour moi mais merci pour tous les autres qui piochent dans ce forum

[EE]

j'ai posé ma fonction dans mon module .... ca fonctionne pas semble t-il
est un probleme avec mon interval ???

Public Function hsuparrondi(hsup As Double)
' fonction d'arrondi pour les mn tous les 15mn sue l'échelle de 100 soit 0.25 0.50 0.75

Dim hsupentier As Integer ' valeur de l'unité
Dim valdec As Integer ' valeur de la décimale arrondie

hsupentier = Int(hsup)
hsupdecimal = hsup - Int(hsup)

Select Case hsupdecimal

Case "0.1" To "0.25"
valdec = 0

Case "0.26" To "0.49"
valdec = 0.25

Case "0.50" To "0.74"
valdec = 0.5

Case "0.75" To "0.99"
valdec = 0.75
End Select

hsuparrondi = valdec + hsupentier

End Function

[Tofalu]

Oublie pas les balises de code

Le problème vient effectivement du Select case

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function hsuparrondi(hsup As Double)
' fonction d'arrondi pour les mn tous les 15mn sue l'échelle de 100 soit 0.25 0.50 0.75
 
Dim hsupentier As Integer ' valeur de l'unité
Dim valdec As Integer ' valeur de la décimale arrondie
Dim hsupdecimal As Double
hsupentier = Int(hsup)
hsupdecimal = hsup - Int(hsup)
hsuparrondi = hsupentier + ((hsupdecimal * 100 \ 25)) * 0.25
End Function

Ce qui revient en une ligne à :

Code :

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

1
2
3
Public Function hsuparrondi(hsup As Double)
hsuparrondi = Int(hsup) + ((hsup - Int(hsup)) * 100 \ 25) * 0.25
End Function

[EE]

gloups .... pour les balises

comment est ce que la fonction fait pour arrondir selon les valeurs que j'avais mis dans les CASE
epux tu m'expliquer à quel niveau tu considères la valeur de l'arrondi
dans le code

Code :

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

((hsup - Int(hsup)) * 100 \ 25) * 0.25

merci

[EE]

je viens de tester sur une valeur 0.40 et il me donne 0.25 au lieu de 0.50(demi heure sur une base de 100)

[EE]

j'ai revérifié le script et j'ai la meme erreur l'arrondi ne se fait pas dans les bonnes tranches, dois je revenir à une fonction case???
merci

[Tofalu]

je viens de tester sur une valeur 0.40 et il me donne 0.25 au lieu de 0.50(demi heure sur une base de 100)

Si je te cite :

Case "0.26" To "0.49"
valdec = 0.25

Mon arrondi est donc tout à fait correct à tes espérances

Si toutefois, tu veux arrondir au supérieur :

Code :

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

hsuparrondi = Int(hsup) + ((hsup - Int(hsup)) * 100 \ 25 + 1) * 0.25

[Alexandre Sahli]

bonjour

il y a même encore plus simple

Code :

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

1
2
 
round(monNombre/.25,0)*.25

ce qui arrondi tout les .25

[Tofalu]

bonjour

il y a même encore plus simple

Code :

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

1
2
 
round(monNombre/.25,0)*.25

ce qui arrondi tout les .25

A condition de disposer de la fonction Round

[EE]

merci à tous je vais tester

Mille excuses pour Tofalu ...t u as raison concernant mes valeurs de case
je vais tester avec une autre valeur ... gloups

[Vesta]

ou encore encoure polus simple...

Tu prend ton nombre en string et tu fais un split:

2.45
-2.69
2.0
6.3

x=split(nombre,".")(0) = partie entière
y=split(nombre,".")(1) = partie décimale