Cevapla
 
Konu Araçları
Eski 18-07-06, 01:17 #1
engineer1984 engineer1984 çevrimdışı
Question Bir Üst Rakama Yuvarlama Nasıl Yapılır?


Merhaba arkadaşlar,

Bir hesaplama yapıyorum, çıkan sonucun bir üst akama yuvarlanmasını istiyorum.

Label10 = Val(Text1.Text) / Val(Text4.Text)

gibi bir hesabım var. Bu hesabı yapınca label 10 a örneğin 1,008964 yazıyor, ben label10 a 1 yazmasını istiyorum.

Yuvarlama ile bu yapılmıyor round ile.

a=1,56897
b= round(a,0)
dediğim zaman b= 2 çıkıyor 1,5 den büyük olduğu için.

a=1,45964
b= round(a,0)
dediğim zaman b= 1 çıkıyor 1,5 den küçük olduğu için

ben sayıyı ne kadar geçerse geçsin bi üst sayıya yuvarlamasını istiyorum.

Nasıl yapacağımı anlatırsanız bir kodla sevinirim.

Şimdiden teşekkür ediyoruö.
__________________
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 18-07-06, 17:07 #2
muba muba çevrimdışı
Varsayılan Cvp: Bir Üst Rakama Yuvarlama Nasıl Yapılır?


Formuna bir adet Textbox ve bir adette Command butonu ekle sonra asagidaki kotlari formuna yapistir. Bakalim istedigin sekilde yapacakmi.Eger tatmin olmazsan sorununu yaz daha gelistirmeye calisiriz. Kolay gelsin.


Private Sub Command1_Click()
'küsürati ne olursa olsun küsür varsa bir üste yuvarlatiyoruz
' Int fonksiyonu ondalik kismi ne olursa olsun sadece tam kismini aliyor
Dim sayi As Currency
Dim tamkismi As Currency
sayi = Val(Text1)
tamkismi = Int(Text1)
If sayi > tamkismi Then Text1 = tamkismi + 1
End Sub
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 18-07-06, 21:21 #3
engineer1984 engineer1984 çevrimdışı
Thumbs up Cvp: Bir Üst Rakama Yuvarlama Nasıl Yapılır?


Alıntı:
Gerçek Mesajı Gönderen muba Mesajı Göster
Formuna bir adet Textbox ve bir adette Command butonu ekle sonra asagidaki kotlari formuna yapistir. Bakalim istedigin sekilde yapacakmi.Eger tatmin olmazsan sorununu yaz daha gelistirmeye calisiriz. Kolay gelsin.


Private Sub Command1_Click()
'küsürati ne olursa olsun küsür varsa bir üste yuvarlatiyoruz
' Int fonksiyonu ondalik kismi ne olursa olsun sadece tam kismini aliyor
Dim sayi As Currency
Dim tamkismi As Currency
sayi = Val(Text1)
tamkismi = Int(Text1)
If sayi > tamkismi Then Text1 = tamkismi + 1
End Sub
Çok teşekkür ederim.

Mesajı son düzenleyen engineer1984 ( 18-07-06 - 21:36 )
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 18-07-06, 22:57 #4
ozaksoy537 ozaksoy537 çevrimdışı
Varsayılan Cvp: Bir Üst Rakama Yuvarlama Nasıl Yapılır?


round komutu
mesela sayı 2.10 ya
round("2,10") çıktısı "2"
round("2,50") çıktısı "2"
round("2,51") çıktısı "3"
round("2,75") çıktısı "3"
arkadaşım round fonksiyonunuda kullanabilirsin
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Eski 18-07-06, 23:15 #5
baron06 baron06 çevrimdışı
Varsayılan Cvp: Bir Üst Rakama Yuvarlama Nasıl Yapılır?


Alıntı:
Gerçek Mesajı Gönderen ozaksoy537 Mesajı Göster
round komutu
mesela sayı 2.10 ya
round("2,10") çıktısı "2"
round("2,50") çıktısı "2"
round("2,51") çıktısı "3"
round("2,75") çıktısı "3"
arkadaşım round fonksiyonunuda kullanabilirsin
Arkadas round komutunun isin yaramadigini ve baska bir cozum yolu aradigini soylemis zaten.
  Alıntı Yaparak CevaplaAlıntı Yaparak Cevapla
Cevapla

Bu konunun kısa yolunu aşağıdaki sitelere ekleyebilirsiniz

Konu Araçları

Gönderme Kuralları
Yeni konu açamazsınız
Cevap yazamazsınız
Dosya gönderemezsiniz
Mesajlarınızı düzenleyemezsiniz

BB code is Açık
Smiley Açık
[IMG] kodu Açık
HTML kodu Kapalı



Tüm saatler GMT +3. Şuan saat: 06:58
(Türkiye için GMT +2 seçilmelidir.)

 
5651 sayılı yasaya göre forumumuzdaki mesajlardan doğabilecek her türlü sorumluluk yazan kullanıcılara aittir. Şikayet Mailimiz. İçerik, Yer Sağlayıcı Bilgilerimiz. Reklam Mailimiz. Gizlilik Politikası. Tatil
Copyright © 2015