When it comes to talking about Microsoft Access, it seems that two tiny versions of me *poof* into existence, each sitting on a shoulder. The guy on my right wears a suit and always reminds me how great of a tool Access is because it empowers small organizations to develop productivity and information systems. The other guy, sporting a “l337 h4x0r“ tee and cut-off jeans, screams in my ear that “Access is a complete abomination“ and that the tools to create applications should not be put in the hands of laymen.

For some odd reason, as I'm about to post this currency-rounding Access function (discovered by Jeff Smith), the business-savvy mini-me didn't even bother showing up ...

```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``` [Advertisement] BuildMaster allows you to create a self-service release management platform that allows different teams to manage their applications. Explore how!