حذف رقم اعشار از اعداد

[hamed_vb]

سلام دوستان

چطوری می تونم رقم اعشار رو از Label حذف کنم مثلا شکا زیر برنامه ای هست که دارم روش کار می کنم اما نمی دونم چطوری اعشارشو حذف کنم ممنون میشم:

http://avaxtm.com/out.php/i17299_untitled.bmp

[parselearn]

Print Round(111.555)
Print CInt(111.555)

[hamed_vb]

ببخشيد مي تونم بپرسم اين كد رو توي كدوم قسمت بنويسم منظورم اينه كه توي كدوم رويداد و كدوم مولفه مثلا" اگه Label باشه توي كدوم خاصيتش بنويسم كه اين عمل انجام بشه (توي Change ؟)

[alirezabahrami]

ببخشید می تونم بپرسم این کد رو توی کدوم قسمت بنویسم منظورم اینه که توی کدوم رویداد و کدوم مولفه مثلا" اگه Label باشه توی کدوم خاصیتش بنویسم که این عمل انجام بشه (توی Change ؟)


سلام
می توانید در رویداد LostFocus کنترلی که عدد مربوط به مبنای اضافه کار در آن محاسبه میشود کد فوق را بنویسید . مثلاً فرض میکنیم که عدد فوق با توجه به محاسبه زیر بدست آمده باشد:
مبنای اضافه کار= (حقوق+ فوق العاده شغل)*140/100




Private Sub Text1_LostFocus()
مبنای اضافه کار=round(حقوق+ فوق العاده شغل)*100/140)
End Sub

]

[Tasiyan]

Private Sub Command1_Click()
Label1.Caption = Round(Label1)
End Sub

:چشمک:

[M.T.P]

شما چک کن هر جا که این مقدار رو تو کد برنامت به Label نسبت میدی از تابع Round استفاده کن