+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Yukarı Ve Tam Sayıya Yuvarlama (/konu-yukari-ve-tam-sayiya-yuvarlama.html)
Sayfalar:
1
2
Yukarı Ve Tam Sayıya Yuvarlama - osman06 - 12/12/2024
mrb
3 tane alanım var.
en
boy
yükseklik
en x boy x yükselik / 3000 şeklinde förmül yalnız çıkan sonuç 2 nin altında ise 2 ye yuvarlayacak üstünde ise bir üst tam sayıya yuvarlayacak örneğin 3,633 ise 4 e yuvarlayacak formülle ilgili yardım rica ediyorum biraz denedim ama olmadı
RE: Yukarı Ve Tam Sayıya Yuvarlama - C*e*l*o*y*c*e - 12/12/2024
Merhaba
örneğiniz yok ama ,ekteki örneği kendinize uyarlayabilirsiniz
Private Sub CommandButton1_Click()
Dim en As Double
Dim boy As Double
Dim yukseklik As Double
Dim sonuc As Double
' En, Boy ve Yükseklik değerlerini al (örneğin TextBox2, TextBox3 ve TextBox4'ten)
en = CDbl(TextBox2.Text)
boy = CDbl(TextBox3.Text)
yukseklik = CDbl(TextBox4.Text)
' Hesaplama
sonuc = (en * boy * yukseklik) / 3000
' Yuvarlama
If sonuc < 2 Then
sonuc = 2
Else
sonuc = WorksheetFunction.Ceiling(sonuc, 1)
End If
' Sonucu TextBox1 içine yaz
TextBox1.Text = "Sonuç: " & sonuc
End Sub
Re: Yukarı Ve Tam Sayıya Yuvarlama - osman06 - 12/12/2024
hocam örneği ekledim rica etsem
RE: Yukarı Ve Tam Sayıya Yuvarlama - atoykan - 12/12/2024
Yapılmaması gereken ölümcül hatalar başlıklı konuyu mutlaka inceleyin, form denetimlerine tablolardaki alan adları verilmez. Sonuc textboxınızın denetimine IIf(([Text0]*[Text1]*[Text2])/3000 < 2; 2; Round(([Text0]*[Text1]*[Text2])/3000 + 0.5; 0)) girin şeklinde vereceğimiz formül mevcut hali ile çalışmayacak hata alacaksınız. #Ad? hatası verdi nedenle devam edeceğiz vs. Ekli dosyayı ve belirttiğim konu başlığını detaylı olarak inceleyin.
RE: Yukarı Ve Tam Sayıya Yuvarlama - C*e*l*o*y*c*e - 12/12/2024
Merhaba tekrar
Atoykan hocam cevap vermiş ama bende yaptım birşeyler kontrol edin
RE: Yukarı Ve Tam Sayıya Yuvarlama - osman06 - 12/12/2024
(12/12/2024, 16:02)atoykan yazdı: Yapılmaması gereken ölümcül hatalar başlıklı konuyu mutlaka inceleyin, form denetimlerine tablolardaki alan adları verilmez. Sonuc textboxınızın denetimine IIf(([Text0]*[Text1]*[Text2])/3000 < 2; 2; Round(([Text0]*[Text1]*[Text2])/3000 + 0.5; 0)) girin şeklinde vereceğimiz formül mevcut hali ile çalışmayacak hata alacaksınız. #Ad? hatası verdi nedenle devam edeceğiz vs. Ekli dosyayı ve belirttiğim konu başlığını detaylı olarak inceleyin.
anladım hocam tşkler elinize sağlık