GoldenLine
Zaloguj się
Rafał Jabłoński

Rafał Jabłoński fotograf

Temat: Zaokraglanie waluty

Witam!

Przeczytałem post o zaokraglaniu liczb na forum, ale wprowadzenie funkcji :

Public Function Zaokr(L, m) As Double
'dla dowolnych liczb dodatnich i ujemnych
Zaokr = Format(CDec(L), "0." & String(m, "0"))

End Function

do kwerendy w SQL - SELECT Zaokr([Faktura]![cena],2) As licz_zaokr
FROM Faktura; - wyrzuca mi komunikat "niezdefiniowana funkcja Zaokr w wyrażeniu".

Czy ktoś mógłby mi podpowiedzieć jak tę funkcję podpiąć, aby uzyskac zaokrąglenie ceny.
Link do wypowiedziLink

konto usunięte

Temat: Zaokraglanie waluty

CCur(liczba)
Link do wypowiedziLink
Rafał Jabłoński

Rafał Jabłoński fotograf

Temat: Zaokraglanie waluty

Ja mam ten sam problem, ale funkcja CCur zwraca jedynie walutę wizualnie. W obliczeniach nic się nie zmienia.

Nie przyjmuje także funkcji Round z określeniem miejsc po przecinku: Round(wyrażenie, 2) ( program ma problem chyba z przecinkiem)- choć ta funkcja nie jest podobno precyzyjna.

Może jeszcze jakieś propozycje?
Link do wypowiedziLink
Rafał Jabłoński

Rafał Jabłoński fotograf

Temat: Zaokraglanie waluty

Znalazłem odpowiedni skrypt:

Function Round100(ByVal liczba)
' funkcja zwraca zaokraglanie liczb
' do setnych czesci

' Parametry:
' liczba - wprowadzana liczba

On Error GoTo Err_Round100

' dla Null zamien na zero
If IsNull(liczba) Then liczba = 0

' przeksztalcenie na typ Currency, poniewaz dla liczb
' zmiennoprzecinkowych Access zwraca bledy zaokraglen.
Round100 = Int(CCur(liczba) * 100 + 0.5) / 100

Exit_Err_Round100:
Exit Function

Err_Round100:
MsgBox Error$, , "Round100 Error"
Resume Exit_Err_Round100

End Function

Ten działa w odróżnieniu od innych.Rafał Jabłoński edytował(a) ten post dnia 14.07.11 o godzinie 23:43
Link do wypowiedziLink
« Wróć do tematów
Odpowiedz

Podobne tematy





Wyślij zaproszenie do
Anuluj