Comment On C'est une façon d'arrondir ...

Quant il s'agit de parler d'Access, il semble que deux versions de moi même apparaissent sur chacune de mes épaules. [Texte complet]

Quant il s'agit de parler d'Access, il semble que deux versions de moi même apparaissent sur chacune de mes épaules.

Le moi de droite porte un costume et me rappelle toujours à quel point Access est super car il permet a de petites organisations de développer la productivité et l'organisation de leur système informatique. L'autre, portant un tee shirt "l337 h4x0r"  et un jean, crie dans mes oreilles "Access c'est une abomination", l'outil pour créer des applications ne devrait pas être mis dans des mains inexpérimentées.

Pour je ne sais quelle raison, alors que je suis sur le point de publier cette fonction Access qui a pour but de gérer les arrondis monétaires (découverte par Jeff Smith), le petit mini-moi costard n'a même pas cru bon de se montrer...

Function roundoff(x)
    Dim frac As String, Result As String
    Dim LenFrac As Integer
    
    frac = x - Fix(x)
    frac = frac * 1000
    frac = Fix(frac)
    If Left(frac, 1) = "-" Then
        LenFrac = Right(frac, Len(frac) - 1)
        If Len(LenFrac) = 2 Then
            frac = "-0" & LenFrac
        ElseIf Len(LenFrac) = 1 Then
            frac = "-00" & LenFrac
        End If
    Else
        If Len(frac) = 2 Then
            frac = "0" & frac
        ElseIf Len(frac) = 1 Then
            frac = "00" & frac
        End If
    End If
    If x > 0 Then
        If Right(frac, 1) > 4 Then
            frac = Left(frac, 2) + 1
        Else
            frac = Left(frac, 2)
        End If
    Else
        If Right(frac, 1) > 4 Then
                frac = Left(frac, 3) - 1
        Else
            frac = Left(frac, 3)
        End If
    End If
    frac = Format(frac / 100, "@@")
    Result = Fix(x) + frac
    roundoff = Result
End Function