merhaba arkadaşlar TL mikarını bulmaya çalışıyorum 1.000.000 şuan 1 TL oluyor 1.000 TL 1.000.000.000 oluyor. Hesap yaparken araya nokta koymadan yaparsam herşey normal fakat misal 1.500 + 1.000 dediğim zaman 2.500 yazmıyor 2.5 yapıyor. Aslında hesap makineside böle buluyor ama 2.500 nasıl yazdırırım. Text1. Text = Format(Text1, "###,###") de işi bozuyor yada ben öle anlyorum. Yardım edebilecek. :wacko:

yine aynı Text3 = Val(Text1) + Val(Text2) 1.500.000 + 1.000.000 = 2.5 nokta koymam gerek çünkü küsürlü işlemler olursa ne olacak ama şuvar tl gibi yapacak olursak 4.99 + 4.99 = 9.98 oluyor bunda bi sorun yok

Kod: Private Sub Command1_Click Text3 = CInt(Text1) + CInt(Text2) End Sub Private Sub Text1_Change Text1 = Format(Text1, "###,###") Text1. SelStart = Len(Text1) End Sub Private Sub Text2_Change Text2 = Format(Text2, "###,###") Text2. SelStart = Len(Text2) End Sub Private Sub Text3_Change Text3 = Format(Text3, "###,###") Text3. SelStart = Len(Text3) End Sub val yerine Cint kullan sorun ortadan kalkıyor. sanırım val kullanınca yuvarlama yaparak tam sayıya çeviriyor -

1.500 rakamını bir buçuk olarak anlamış. Nokta işaretini koymadan yapman lazım. Veya 1.500.000 dene.