Yüzde Yuvarlama Yardım....

[vimpir]

Arkadaşlar kodum bu

 Private Sub TextBox7_Change()
If TextBox5 > "0" And TextBox7 > "0" Then
TextBox8.Text = "% " & CDbl(TextBox5) / CDbl(TextBox7)
TextBox8.Enabled = False
Else
TextBox8 = ""
End If
End Sub

bu koda
textbox5 114,04 TL
Textbox7 756,95 TL

değer girdiğimde TextBox8 bu değeri vermekte

% 0,150657242882621

ben %15 yada %15.00 yada 0,15 olarak göstersin istiyorum yardımcı olur musunuz?

 

[usubaykan]

Arkadaşlar kodum bu

 Private Sub TextBox7_Change()
If TextBox5 > "0" And TextBox7 > "0" Then
TextBox8.Text = "% " & CDbl(TextBox5) / CDbl(TextBox7)
TextBox8.Enabled = False
Else
TextBox8 = ""
End If
End Sub

bu koda
textbox5 114,04 TL
Textbox7 756,95 TL

değer girdiğimde TextBox8 bu değeri vermekte

% 0,150657242882621

ben %15 yada %15.00 yada 0,15 olarak göstersin istiyorum yardımcı olur musunuz?

Merhaba;

TextBox8.Text = "% " & CDbl(TextBox5) / CDbl(TextBox7)

[COLOR=Red]TextBox8.Text =[/COLOR][COLOR=Blue]Format(CDbl(TextBox5) / CDbl(TextBox7), "0%")

şeklinde değiştirip deneyin.
[/COLOR]

 

[vimpir]

merhaba;

textbox8.text = "% " & cdbl(textbox5) / cdbl(textbox7)

[color=red]textbox8.text =[/color][color=blue]format(cdbl(textbox5) / cdbl(textbox7), "0%")

şeklinde değiştirip deneyin.
[/color]

teşekkür ederim...

 

[usubaykan]

teşekkür ederim...

Rica ederim