Skip to main content

AccessTr.neT


Sonucu Sıfıra Yada Beşe Yuvarla

Sonucu Sıfıra Yada Beşe Yuvarla

Çözüldü #1
merhaba arkadaşlar,
fiyat artırımı yaparken artırılan miktarın virgülden sonraki değeri : 0,75    -  0,80    - 0,85    1,25    -  1,30    -  3,55  - 3,60 gibi olacak,  kusurat olmayacak, nasıl yukarı yuvarlayabilirim acaba?
rakamın sonu hep 5 yada 0 sıfır olacak.

örnek:
1,67==>> 1,70
1,71==>> 1,75
0,63==>> 0,65
0,52==>> 0,55
0,49==>> 0,50
1,96==>> 2,00
3,72==>> 3,75
2,51==>> 2,55 gibi olacak.

yardımlarınız için şimdiden çok teşekkür ederim,
.rar rakam sonunu sıfır yada 5 e yuvarla.rar (Dosya Boyutu: 200,82 KB | İndirme Sayısı: 5)
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#2
bu işlemi nerede yapmak istediğinizi tam anlamadım ama bir modüle aşağıdaki fonksiyonu ekleyip sorgu içinden çağırabilirsiniz?
Function Yuvarla(byval Sayi As Double) As Double
    Yuvarla = -Int(-Sayi * 100 / 5) * 5 / 100
End Function
RENK_FIYATI İstenen
0,3900 ==>> 0,40
0,4400 ==>> 0,45
0,4725 ==>> 0,50
0,4900 ==>> 0,50
0,5000 ==>> 0,50
0,5200 ==>> 0,55
0,5250 ==>> 0,55
0,6300 ==>> 0,65
0,6700 ==>> 0,70
0,6825 ==>> 0,70
0,7350 ==>> 0,75
0,8400 ==>> 0,85
0,8400 ==>> 0,85
1,6700 ==>> 1,70
1,6800 ==>> 1,70
1,7100 ==>> 1,75
1,8375 ==>> 1,85
1,9600 ==>> 2,00
2,5100 ==>> 2,55
3,7200 ==>> 3,75
Cevapla
#3
eklemiş olduğum formda, fiyat değişikliği yapılmak istendiğinde kullanacağım.
fonksiyon doğru çalışıyor,
yapmak istediğim de buydu,
çok teşekkür ederim,
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#4
kendi çalışmanıza uyarlayabildiniz mi?
çözülmüşlere taşıyalım mı?
Cevapla
#5
uyguladım,
süper oldu.
husem, proud to be a member of AccessTr.neT since 08-03-2009.
Cevapla
#6
iyi çalışmalar
kolay gelsin
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da