talebinizde iki husus söz konusu.birincisi,format halinde yazımı;bir diğeri de,1550 değerini 1500 değerine getirmek için aşağı yuvarlama.
talebiniz için,bu hususlar nezdinde örnek kullanım olması adına,aşağıdaki kod ifadesini kullanmayı deneyebilirsiniz.
öncelikle,
aşağıdaki kodları,uygulamada bir MODÜL oluşturup içerisine ekleyip kaydediniz.
Kod:
Function RoundDown(dVal As Double, Decimals As Integer) As Double
Dim Factor As Double, fVal As Double
Dim iVal As Integer
Factor = Exp(Log(10) * Decimals)
fVal = dVal * Factor
iVal = Int(fVal)
RoundDown = iVal / Factor
End Function
(NOT:sorgu satırında kullanım için)
Kod:
Deneme:Format(rounddown(1550;-2);"#,00")
Kod:
ALDIGI_AVANS:Format(rounddown(Nz(DLookUp("[ToplaTUTARI]";"srg_AVANS_TOPLA";"[PERS_NO]=" & [PERS_NO]);0);-2);"#,00")
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.bilginize...İyi çalışmalar,saygılar.