Merhaba..

Bu şekilde istediğinizi elde edebilirsiniz..

Herkese merhaba,

Benim sorum şu yönde olacak. Yapmış olduğum hesapta çıkan tam sayı değerini yukarı yada aşağı yuvarlayabileceğim bir fonksiyon var mı?

Örnek: Sonuç = 39758 yuvarlanması istenilen tam sayı 39500

saygılarımla,
Ümit

(08-04-2014, 20:51)ÜmitSamlı demiş ki: Herkese merhaba,

Benim sorum şu yönde olacak. Yapmış olduğum hesapta çıkan tam sayı değerini yukarı yada aşağı yuvarlayabileceğim bir fonksiyon var mı?

Örnek: Sonuç = 39758 yuvarlanması istenilen tam sayı 39500

saygılarımla,
Ümit

Merhaba..

Round, ondalık sayıları yuvarlamak için kullanıyor.. Sizin isteğiniz ise bu fonksiyondan farklı bir sistem..

Amacınıza göre; basamak sayısını, yuvarlama aralığını ve üste alta yuvarlama şartlarını örnekleyerek yazarsanız daha net yardımcı oluruz..

Cevabınız için teşekkürler.

1. Basamak sayım genel olarak 5 hane olacak. (bazı durumlarda 6 yada 4 olabilir)
2. Aslında her zaman aşağıya yuvarlamasını istiyorum.
3. Yuvarlama aralığı 500 olsun istiyorum. Yani örneğin çıkan sonuç 40001 ise 39500 yada 40499 ise yine 39500 e yuvarlatabilir miyiz?

Saygılar,
Ümit

(10-04-2014, 13:20)ÜmitSamlı demiş ki: 1. Basamak sayım genel olarak 5 hane olacak. (bazı durumlarda 6 yada 4 olabilir)
2. Aslında her zaman aşağıya yuvarlamasını istiyorum.
3. Yuvarlama aralığı 500 olsun istiyorum. Yani örneğin çıkan sonuç 40001 ise 39500 yada 40499 ise yine 39500 e yuvarlatabilir miyiz?

Sayin ÜmitSamlı;
VB editoruu acin asagidaki kodu tasiyip, calistirin.1 ila 500 arasi asagi yuvarlatilmis, 500 ustu solda ki rakami bir arttirilmistir seklidir.
Sub Yuvarlama()
Dim Sonuc As Long
Sonuc = Int((40999 - 40001 + 1) * Rnd + 40001)
MsgBox "Sizin Sayiniz : " & Sonuc & " Yuvarlanan Sayi -->" & IIf(Len(Sonuc) = 4, IIf(Eval(CLng(Right(Sonuc, 3)) & " Between 1 And 499"), CLng(Left(Sonuc, 2)) - 1, CLng(Left(Sonuc, 2)) + 1) & IIf(Eval(CLng(Right(Sonuc, 3)) & " Between 1 And 499"), "500", "000"), Sonuc & Len(Sonuc))
End Sub
Kolay gelsin.....

=DateDiff('yyyy';[giriş tarihi];Date())

Burada sonuç yukarı aşağı yuvarlamalı çıkıyor. Ben tam sayılı sonuç değilse aşağı yuvarlamasını istiyorum. Yardımcı olabilir misiniz?

Mesela sonuç 1,9 ise 1 e yuvarlasın... Tam 2 dolmadan 2 yazmasın.