sayı binlik ayırma - Baskı Önizleme

sayı binlik ayırma - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: sayı binlik ayırma (/konu-sayi-binlik-ayirma.html)

Sayfalar: 1 2

sayı binlik ayırma - ondercesmeci - 22/12/2014

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.

Cvp: sayı binlik ayırma - C*e*l*o*y*c*e - 22/12/2014

Merhaba
daha önce aşagıdaki mesajda buna benzer bir soruya cevap verildi,kontrol edin.

virgülden öncesi ve sonrasını alma

Cvp: sayı binlik ayırma - ondercesmeci - 22/12/2014

(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.

Cvp: sayı binlik ayırma - SCavusoglu - 22/12/2014

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 ?

Cvp: sayı binlik ayırma - ondercesmeci - 22/12/2014

(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.

Cvp: sayı binlik ayırma - SCavusoglu - 23/12/2014

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]