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
