CURRENCY : UN TYPE MÉCONNU (MONEY SOUS SQL-SERVER)

Commentaire de PtitJeoJeo le 16/07/2002 16:52:38

je retien !
Ptitjeojeo

Commentaire de Sirocooo le 17/07/2002 11:50:35

Par expérience je peux dire aujourdh'ui que stocker ses données avec virgule flotante ou fixe source de bugs et d'erreurs.
Quand on développe une grosse appli, un jour ou l'autre ca pete à la figure !!!

Je conseil de travailer en entier long (donc en centimes) c'est beaucoup plus fiable et précis.
à bon entendeur,...

Commentaire de gogomanu le 18/06/2003 13:21:57

Excellent currency, en regardant dans les docs j'avais pas bien compris à quoi ça servait j'avais l'impression que c'était une sorte de "double" en fait.
Très bon à savoir, je me suis flingué la tête à faire une procédure d'arrondi, ça parait tout con mais j'ai dû la retoucher plusieurs fois!

Public Function Arrondi(Calc As Variant, Optional ByVal ArrondiNombres% = 2, Optional ByVal JusteTronquer As Boolean = False) As Double
    ' Arrondi à N chiffres après la virgule (0,003 -> 0,00      0,005 -> 0,01)
    '   Calc:           Nombre à arrondir
    '   ArrondiNombres: Nombre de chiffres après la virgule
    '   JusteTronquer:  Arrondir en dessous
    '
    ' Optimisation avec un select case pour essayer d'améliorer ce qui est
    ' facilement améliorable: arrondi 2 est très fréquent par exemple.
    '
    Dim Decal As Double, Decal2 As Double, Tmp As Double
    
    On Error GoTo Err
    Select Case ArrondiNombres
        Case 2:
                Decal = 100
                Decal2 = 0.005
        Case 0:
                Decal = 1
                Decal2 = 0.5
        Case 1:
                Decal = 10
                Decal2 = 0.05
        Case 3:
                Decal = 1000
                Decal2 = 0.0005
        Case Else:
            Decal = 10 ^ ArrondiNombres
            Decal2 = (1 / (Decal + Decal))
    End Select
    If JusteTronquer Then Decal2 = 0
    
    Tmp = Nz(Calc, 0)
    If Decal2 <> 0 Then Tmp = Tmp + Decal2 ' pour ne pas déformer le "Double"
    If Decal <> 1 Then Tmp = Tmp * Decal
    '*** Je veux garder la partie ENTIERE EXACTE (merci access de daube)
    Tmp = Int(Tmp)
    If Decal <> 1 Then Tmp = Tmp / Decal
    Arrondi = Tmp
'*** La première version paraissait simple: mais bug dans certains cas !!! :
'    Arrondi = Int((Nz(Calc, 0) + Decal2) * Decal) / Decal
'********** fin de la première version
Fin:
    Exit Function

Err:
    MsgBox "Erreur Arrondi: " & vbCr & Err.Number & ": " & Err.Description, vbExclamation
    Resume Fin

End Function

Commentaire de skrol29 le 30/07/2006 22:45:22

Nourwahiba : En VB ou SQL-Serveur le type monétaire se gère de la même manière que toutes les autres valeurs de type numérique. Simplement tu dois faire attention à quelque chose qui est général pour les valeurs numériques : si ton Visual Basic est en français, la conversion passive de numérique en chaîne se fait avec une virgule comme séparateur de décimale. Or celle-ci n'est pas accpetée par SQL-Serveur qui attend un point. Il faut donc faire une conversion explicite de tes montants en utilisant la fonction Format() de Visual Basic.
Exemple :
$SQL = "INSERT INTO ma_table (montant) VALUES (". & Format(montant,"0.0000") & ")"

Commentaire de FENETRES le 04/01/2008 11:50:32

Très pertinent, le conseil est toujours d'actualité !