Afrunde beløb

http://www.eksperten.dk/spm/161490

Tak for hurtigt svar, MEN jeg kan ikke bruge Afrund i en forspørgsel. Den afviser Afrund..???

Hjææælp

Public Function Afrund(Tal As Single, AfrundTil As Single) As Single
    Afrund = Int((Tal + AfrundTil / 2) / AfrundTil) * AfrundTil
End Function


=Afrund([Felt];0,25)

Kender kun de indbyggede funktioner til og med Access2000, hvor der
er 3 varianter af af Afrund.

1) Afrund, hvor parameteren er antal decimaler.
2) Afrund.Gulv, runder ned.
3) Afrund.Loft, runder op.

Ingen af dem kan bruges i dit tilfælde. Vi ved f.eks. ikke om der skal rundes op eller ned! Men der kan godt laves en i VBA.
Mener ikke faoe's funktion kan bruges, da Afrund er et reserveret ord i den danske version.
Forsøger at lave en sådan funktion.

Tak

Anbring denne funktion i et Modul:

Function AFRU(DeciTal)
        Dim Tal As Long
        Dim HTal As Long
        Dim Rest As Integer
        Dim Resultat As Single
       
        If IsNull(DeciTal) Then Exit Function
       
        HTal = Int(DeciTal)
        Tal = Int(DeciTal * 100)
        Rest = Tal Mod 100
       
        Select Case Rest
                Case 0 To 12
                Resultat = HTal
               
                Case 13 To 37
                Resultat = HTal + 0.25
               
                Case 38 To 62
                Resultat = HTal + 0.5
               
                Case 63 To 87
                Resultat = HTal + 0.75
               
                Case 88 To 99
                Resultat = HTal + 1
        End Select
       
        AFRU = Resultat
End Function

If Forespørgslen laver du et felt, f.eks. AFR og skriver:

AFR: AFRU([Felt med beløb]).

Virker hos mig.

I min foresp. får jeg fejlen: Der er ikke defineret funktionen "AFRU" i udtrykket.

Funktionen skal ligge i et Modul. Luk Access og du får lejlighed
til at navngive modolulet.
Prøv så igen

Jeg takker!