Skip to main content

AccessTr.neT


Sayıyı Basamaklara Ayırma Sorunu

Sayıyı Basamaklara Ayırma Sorunu

Çözüldü #1
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
.rar basamak_ayir_virgul.rar (Dosya Boyutu: 66,71 KB | İndirme Sayısı: 2)
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
metin kutularındaki değerli silip form current olayını aşağıdaki gibi düzenler misiniz

Visual Basic Code
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

Cevapla
#3
(14/09/2020 10:17)berduş Adlı Kullanıcıdan Alıntı: 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
zetyu, 11-03-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
Iyi çalışmalar)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da