[AC-97] Problème de décimales dans résultats

[Milyshyn76]

Bonjours à tous,

une clause SUM d'une requête SQL me retourne un résultat comme celui là :
305534,547347211

Je souhaiterais tronquer la valeur à deux décimales (et non l'arrondir)

Merci à tous !

[jpcheck]

salut,

tu peux utiliser la fonction Trunc.

Par contre il me semble que c'est une fonction Excel, pas une fonction VBA a part entiere.

Tu peux simuler une fonction avec

Code :

1
2
3
Function TruncateValue(x as Double, intDP As Integer ) As Double
    TruncateValue = CDbl(Left(CStr(x), InStr(1, CStr(x), ".") + intDP))
End Sub

que tu peux appeler dans ta requete

[marot_r]

Voici une fonction qui fait cela

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function Tronquer2(prmValeur As Variant) As Variant
   Dim result As Variant: result = Null
 
   If Not IsNull(prmValeur) Then
        Dim t As String: t = CStr(prmValeur)
        Dim positionVirgule As Integer: positionVirgule = InStr(t, ".")
        Dim e As String: e = Left(t, positionVirgule): 'Partie entière et virgule
        Dim d As String: d = Mid(t, positionVirgule + 1, 2): 'Partie décimale
        result = Val(e & d)
    End If
 
    Tronquer2 = result
 
End Function

Pour l'utiliser

Code sql :

Tronquer2([nomTomChampsomme])

A+

[Milyshyn76]

Merci pour vos réponse, ça m'embête de passer par du code VBA pour tronquer un valeur, m'enfin, j'vais essayer la solution marot_r, parce qu'elle me parle plus, j'vous tiens au jus !

Merci pour votre aide