Skip to main content

AccessTr.neT


sayı binlik ayırma

ondercesmeci
ondercesmeci
8
4148

sayı binlik ayırma

Çözüldü #1
Merhaba arkadaşlar;
1.000 metre kare 1 dekar etmektedir. Bende parsel alanlarını dekar metre kare olarak bölmek istiyorum.
Buna örnek verirsek;

Text: 1.548,52 yi Text1: 1 Text2: 548,52
Text: 15.350 i Text1: 15 Text2: 350
Text: 265 i Text1: boş yada 0 Text2:265

şeklinde parçalatmak istiyorum.
Teşekkür ederim.
ondercesmeci, 15-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Cevapla
#2
Merhaba
daha önce aşagıdaki mesajda buna benzer bir soruya cevap verildi,kontrol edin.

virgülden öncesi ve sonrasını alma
Cevapla
#3
(22/12/2014, 13:08)C*e*l*o*y*c*e yazdı: Merhaba
daha önce aşagıdaki mesajda buna benzer bir soruya cevap verildi,kontrol edin.

virgülden öncesi ve sonrasını alma
Sn. C*e*l*o*y*c*e
O örnekte kriter olarak virgül var, ancak bende virgül olabilir de olmayabilir de.
ayrıca bizim rakamlarımız virgülden sonra 1, 2, 3, 4, 5 basamaklı olabiliyor. yani

5,23 metre kare, Text1: 0 Text2: 5,23
15 metre kare, Text1: 0 Text2: 15
153,65 metre kare, Text1: 0 Text2: 153,65
1.251,65 metre kare, Text1: 1 Text2: 251,65
56.386 metre kare, Text1: 56 Text2: 386
155.327,01 metre kare, Text1: 155 Text2: 327,01

şeklinde olabiliyor bu yüzden "InStr" nin bu işi çözmekte yeterli olamayacağını düşünüyorum.
teşekkür ederim.
 
ondercesmeci, 15-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Son Düzenleme: 22/12/2014, 16:45, Düzenleyen: ondercesmeci.
Cevapla
#4
Kod:
Private Sub Metin0_Exit(Cancel As Integer)
If Me.Metin0 = Format(Me.Metin0, "General Number") Then
    Me.Metin2 = Format(Me.Metin0, "General Number")
    Me.Metin4 = ""
Else
    Me.Metin2 = Left([Metin0], InStr([Metin0], ".") - 1)
    Me.Metin4 = Mid([Metin0], InStr([Metin0], ".") + 1)
End If
End Sub

Örnek uygulamadaki kodları üstteki şekilde değiştirdiğinizde istediğiniz sonuca ulaşılmıyor mu ?

Cevapla
#5
(22/12/2014, 17:37)SCavusoglu yazdı:
Kod:
Private Sub Metin0_Exit(Cancel As Integer)
If Me.Metin0 = Format(Me.Metin0, "General Number") Then
    Me.Metin2 = Format(Me.Metin0, "General Number")
    Me.Metin4 = ""
Else
    Me.Metin2 = Left([Metin0], InStr([Metin0], ".") - 1)
    Me.Metin4 = Mid([Metin0], InStr([Metin0], ".") + 1)
End If
End Sub

Örnek uygulamadaki kodları üstteki şekilde değiştirdiğinizde istediğiniz sonuca ulaşılmıyor mu ?
yukarıda verdiğiniz kodları örnek uygulama üzerinde de aynı şekilde uyguladım fakat olmuyor. teşekkürler.
ondercesmeci, 15-06-2010 tarihinden beri AccessTr.neT Ãœyesidir.
Cevapla
#6
Merhaba,

Gerçi siz olmadığını söylemişsiniz ama lütfen bi inceleyin ve olmayan tarafını bildirin. Anlatıklarınızı bir kaç defa okudum ve olduğuna kanaat getirdim.

[Resim: 16085113822_574042f36c_b.jpg]
.zip VirguldenOncesi-ATOZ2.zip (Dosya Boyutu: 20,18 KB | İndirme Sayısı: 5)

Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task