Aşağıyuvarla

[ismailerkan15]

slm Yardımlarınız için şimdiden teşekkür

Sorunum Kuruşları aşağı yuvarlama

örnek a= 19,5
b=round(a;0) girdiğimizde 20 veriyor
bense sonucun 19 çıkmasını istiyorum
yani exeldeki rounddown gibi bir fonksiyon acsseste de varmı

 

[modalı]

Sayın ismailerkan15,

Daha önce foruma eklemiştim ama gözünüzden kaçmış olabilir.

Eğer kendimiz fonksiyonu yazamıyorsak, Excel de olup da access de bulunmayan fonksiyonları çağırıp kullanabiliriz. Sizin örnek de aşğıdaki fonksiyonu yazarsak işinizi görür:

Public Function AşağıYuvarla(Sayı As Double, SayıRakkamları As Integer) As Double
Dim xl As Object
Set xl = CreateObject("Excel.Application")
AşağıYuvarla = xl.WorksheetFunction.RoundDown(Sayı, SayıRakkamları)
Set xl = Nothing
End Function

Yardımcı olsun diye formdaki kodları da yazayım:

Private Sub cmdYuvarla_Click()
    Dim YuvarlanmışSayı As Double
    YuvarlanmışSayı = AşağıYuvarla(txtSayı, txtSayıRakkamları)
    MsgBox "Yuvarlanmış Sayı  = " & YuvarlanmışSayı, vbInformation, "Aşağı Yuvarlanmış"
End Sub

Formda iki tane metin kutusu var bunların birine sayıyı diğerine sayı basamaklarını yazıyoruz ve mesaj kutusuyla cevabı alıyoruz. Burada YuvarlanmışSayı cevaptır.

İyi günler dilerim :hey:

 

[ismailerkan15]

teşekkür ederim sounu int() fonksiyonu ile çömüştüm yenice ama exel in fonksiyonlarını kullanabildiğimizi öğrenmek cok güzel eline sağlık