Textbox Rakam Formatı

[mekuka]

Textboxa veri girerken 0.000.000.000,00 formatında giriş yaptıran ve başka bir şekilde giriş yapmaya imkan tanımayan bir kod yazmam gerekir. ve virgül koyduktan sonra en fazla 2 rakam almasını istiyorum.

Örn : 1,50 YTL girilince Textbox ta 1,50 YTL
1 YTL girilince Textbox ta 1,00 YTL
1,2333 YTL yazılamaması sadece 1,23 e kadar yazması gibi

Eğer bu şekilde tarih girmeye (gg.aa.yyyy) imkan veren bir kod varsa onu da alabilir miyim?

Yardımlarınızı bekliyorum. Şimdiden Teşekkür Ediyorum...

 

[alpi]

TextBox1.Text = FormatCurrency(TextBox1.Text, 2)

Eğer Ytl yerine TL yazıyorsa denetim masası bölge ve dil seçenklerini açın özelleştir i tıklatın Para Birimi Sekmesine geçip ParaBirimi Sİmgesi ni YTL olarak değiştirin

 

[mekuka]

TextBox1.Text = FormatCurrency(TextBox1.Text, 2)

Eğer Ytl yerine TL yazıyorsa denetim masası bölge ve dil seçenklerini açın özelleştir i tıklatın Para Birimi Sekmesine geçip ParaBirimi Sİmgesi ni YTL olarak değiştirin

Bu kodu nereye yazacağımızı da söylersen etkili olacak ama zahmet olmazsa tabiii.

 

[alpi]

TextBox'un Exit olayına yazabilirsiniz.

Not: bu kodlar ile textbox'a veri giriş kontrolü yapılmamaktadır. TextBox'a veri olarak 1,123456 şeklinde bir giriş yapılabilir bu kod ise eğer TextBox 'un Exit olayına yazılmışsa TextBox deaktive olduğunda 1,12 YTL şekline çevirir

 

[mekuka]

Bu iş bu kadardır. Eliniz Sağlık. İnanırmısınız bu kodu bulmak için neler denedim. Hatta bir yerde 10 satır kod bile denedim. Ama ustalık başka bişey yaaaa... :icelim:


Birde tarih formatı (gg.aa.yyyy) hakkında bir kod gönderseniz çok iyi olacak...

Teşekkürler...

 

[alpi]

Tarih formatı

TextBox1.Text = FormatDateTime(TextBox1.Text, vbShortDate)