Sayıyı Basamaklara Ayırma Sorunu

14/09/2020, 03:33

zetyu

sayıyı basamaklara ayırma ile ilgili ekte örnek mevcut.virgül olmayan sayılarda kullanabiliyorum.

virgül olan sayılarda basamaklara ayırma işlemi yapamıyorum.

örnek 3120  yi basamaklara ayırabiliyorum ama

         13120,50 yi basamaklara ayıramıyorum.


örnekleri inceledim ama neticeye ulaşamadım.muhtemelen aşağıdaki örnek benim istediğim olabilir ama accdb olduğu için açamadım  2003 kullanıyorum

şimdiden ilginize teşekkür ederim.



https://accesstr.net/konu-virgulden-once...-alma.html
14/09/2020, 10:17

berduş

metin kutularındaki değerli silip form current olayını aşağıdaki gibi düzenler misiniz
Private Sub Form_Current()
TmpMtn = CStr(Format(Me.satisfiyati, "#.##0,00"))

Vrg = InStr(TmpMtn, ",")
TmSayi = Format(Fix(Me.satisfiyati), "0000")
KsrSayi = "00"
If Vrg > 0 Then KsrSayi = Format(Mid(TmpMtn, Vrg + 1), "00")
Me.binn = Mid(TmSayi, 1, 1)
Me.yuzz = Mid(TmSayi, 2, 1)
Me.onn = Mid(TmSayi, 3, 1)
Me.bir = Mid(TmSayi, 4, 1)
Me.Metin245 = Mid(KsrSayi, 1, 1)
Me.Metin247 = Mid(KsrSayi, 2, 1)

End Sub
14/09/2020, 11:23

zetyu

(14/09/2020, 10:17)berduş yazdı: Private Sub Form_Current()TmpMtn = CStr(Format(Me.satisfiyati, "#.##0,00"))Vrg = InStr(TmpMtn, ",")TmSayi = Format(Fix(Me.satisfiyati), "0000")KsrSayi = "00"If Vrg > 0 Then KsrSayi = Format(Mid(TmpMtn, Vrg + 1), "00")Me.binn = Mid(TmSayi, 1, 1)Me.yuzz = Mid(TmSayi, 2, 1)Me.onn = Mid(TmSayi, 3, 1)Me.bir = Mid(TmSayi, 4, 1)Me.Metin245 = Mid(KsrSayi, 1, 1)Me.Metin247 = Mid(KsrSayi, 2, 1)End Sub
Çok teşekkür ederim ,ellerinize sağlık.

Sorumun cevabını aldım.konuyu taşıyabiliriz.

Saygılar
14/09/2020, 11:36

berduş

Iyi çalışmalar)