Sayın yenginoglu,
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
ÖRNEK KOD KALIBI:
(NOT:sorgu satırında kullanım için)
Kod:
Deneme:Format(rounddown(1550;-2);"#,00")
sizin kod ifadenize yönelik uyarlanacak olunduğunda;
Kod:
ALDIGI_AVANS:Format(rounddown(Nz(DLookUp("[ToplaTUTARI]";"srg_AVANS_TOPLA";"[PERS_NO]=" & [PERS_NO]);0);-2);"#,00")
Elbette ki,eğer bu paylaşım yeterli olmazsa;katılımcıların daha verimli paylaşımda bulunabilmesi için,sayın Allback bey’in de bahsini yaptığı üzere,örnek uygulamanızı eklemeniz durumunda,sonuçları görebilmek ve inceleyebilmek için,örnek uygulamanızı eklemeniz daha yerinde olacaktır.
EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.bilginize...İyi çalışmalar,saygılar.
Yuvarla-ATOZ.rar
(Dosya Boyutu: 11,97 KB | İndirme Sayısı: 4)
#1
