Taksitlendermede virgülden sonraki basamak sayısı

sonerdursun · 08-10-2011, 15:06

Ekteki örnekte SNT_GIRIS formunda taksitlendirme yaptığımda örneğin 100 tl için 6 taksite bölündüğünde tabloda gözüken 16,67 fakat taksit üzerine tıklandığında 16,6667 gib değer gözüküyor basamak sayısın 16,67 gibi olmasını nasıl sağlayabirim.

Taruz · 08-10-2011, 15:44

Merhaba..

Uygulamanızı istediğiniz yönde düzenledim..
İlaveten; eklerken her defasında ekrana gelen mesajları kaldırdım..

Bence önemli olan taksitin doğru bölünmesi olduğu için taksit tutarlarını toplama denk gelecek şekilde oluşturabilme adına ilaveler yaptım..
Şöyle ki; 100 lirayı 6 ya böldüğümüzde siz taksit tutarı 16,67 olsun istiyorsunuz fakat 16,67x6 100,2 yapar.. Bunu engellemek için ilk taksit tutarını fazlalığı eksilterek yani 16,65 olarak belirlenecek şekilde ayarladım (son taksitte olabilir tabi)..

sonerdursun · 09-10-2011, 11:43

Teşekürler sn taruz bende küsüratı ilk taksite eklemek için uğraşıp yapamamıştım iş kod kıdmına gelince çuvallıyorum.

sonerdursun · **Kayıt Tarihi:** 25.08.2008

Bu çalışmada tam verilen değeri küsüratı taksitlerin birine atayarak tamamlamış olduk peki verilen değer tam olupta üzerine eklenen değerler sonucunda bulunan değer küsüratlı çıkınca nasıl yuvarlayabilriz.

Örneğin Net rakam :89,29*5/100 = 4,4645
*5/100 = 4,4645
*2/100 = 1,7858
Toplam değer =100,0048
Sondaki 2 haneyi 0,0050 den küçük olduğunda 100,00 büyük olduğunda
100,01 olarak nasıl yuvarlayabilirim. Veya küçükte olsa büyükte olsa aşağı yukarı yuvarlamada sorun olmaz.maksat virgül sonrası 4 basamak olmasın.

Taruz · 09-10-2011, 13:10

Round fonksiyonu kullanabilirsiniz..:

Round Fonksiyonu

sonerdursun · **Kayıt Tarihi:** 25.08.2008

konudaki kodu kullandığımda 130,50+6,53+6,53+2,61 toplamında 146,17 (146,1730 gibi değer çıktığında virgülden sonraki 4 rakamın 1730 un 17 veya 1755 ise 18 gibi yuvarlanması) için ne yapmam gerek kodu kullandığımda 146,00 olarak yuvarlıyor

Visual Basic
Sub test()
Dim x As Double
 
x = 11.025
 
MsgBox "RoundA :" & RoundA(x, 2) & Chr(13) & _
       "Round   :" & Round(x, 2)
End Sub
 
Public Function RoundA(Sayi, Optional Basamak As Long)
Kat& = 10 ^ Abs(Basamak)
If Basamak >= 0 Then RoundA = CDbl(FormatNumber(Left(Sayi, 30), Basamak))
If Basamak < 0 Then RoundA = CDbl(RoundA(FormatNumber(Left(Sayi, 30) / Kat), 0) * Kat)
End Function

Benzer Konular...
Konu:		Yazar	Cevaplar:	Gösterim:	Son Mesaj
	[SORGU] Row-number() Yada Satır Sayısı	kahramanselim	2	381	15-10-2024, 16:26 Son Mesaj: kahramanselim
	Kişi Sayısı Bulma	evren89	4	512	31-05-2024, 16:54 Son Mesaj: evren89
	[RAPOR] Tablodaki Ilk Satırdan Sonraki Satırı Rapora çağırma (dlookup Yardımı)	RENATO	6	914	08-12-2021, 21:02 Son Mesaj: alperalper
	Virgülden Sonraki Değer	alikagan	2	392	01-12-2021, 22:02 Son Mesaj: halily
	Dlookup Sonraki Kayıt	gunalp26	5	873	08-09-2020, 08:00 Son Mesaj: alperalper
	Formda Sonraki Kayıta Ve Ilk Kayıda Gitmek	mfgxxx	6	1.489	21-03-2020, 00:09 Son Mesaj: mfgxxx
	Sağdan Belirli Bir Alandan Sonraki Değerleri Almak	husem	2	704	21-09-2019, 00:06 Son Mesaj: husem
	[FONKSiYON] Kayıt Sayısı Atama Yeniden Değer verme ve Sıralama	Ahmet51	37	4.047	19-09-2019, 14:42 Son Mesaj: Ahmet51

Oturum Aç




Beni Hatırla Şifremi Unuttum?

Access SQL