format sorunu

[ugurakin]

brüt ücreti net ücrete çeviren küçük bir uygulama hazırladım hazırlamasına ama format sorunum var, tüm alanların rakamlarının virgülden sonra iki hanesini görmek istiyorum. 488,70 gibi.

 

[Levent Menteşoğlu]

Textbox1deki kodu aşağıdaki ile değiştirin. userforma yazdığınız formatlarıda kaldırabilirsiniz,gereksizdir.

[vb:1:bc5c767cc3]Private Sub TextBox1_Change()
On Error Resume Next
TextBox2 = Format(TextBox1 * 14 / 100, "0.00")
TextBox3 = Format(TextBox1 * 1 / 100, "0.00")
TextBox4 = Format(TextBox1 - TextBox2 - TextBox3, "0.00")
TextBox5 = Format(TextBox4 * 15 / 100, "0.00")
TextBox6 = Format(TextBox1 * 0.6 / 100, "0.00")
TextBox7 = Format(TextBox1 - TextBox2 - TextBox3 - TextBox5 - TextBox6, "0.00")
End Sub
[/vb:1:bc5c767cc3]

 

[ugurakin]

tamamdır
kolay gelsin.