جلوگيري از اعشاري شدن اعداد

[amiralex]

با سلام

اشكال اين كد كجاست كه وقتي ازش استفاده ميكنم در نهايت در txtcom اعدادم به صورت اعشاري در مياد؟
چي كار بايد بكنم عدد صحيح بشه؟

Dim i As Double
Dim x As Double
For i = 4 To 10
x = x + Val(txt1(i))
Next i
txtjam.Text = x
''''''''''''''''''''''

Dim Y As Double
Dim z As Double

Y = x * 13.5 / 100
z = x * 9 / 100

txtkarfarma = Y
txtkarmand = z

txtcom = Y + z

[setroyd]

Fix(txtcom) این مشکل شما رو حل میکنه . یا int

[amiralex]

ممنونم از پاسختون

من راه حل ديگه ايي پيدا كردم

بجاي / از اين \ استفاده كردم و ديگه اعشار نميزنه


متشكرم

[vbhamed]

ممنونم از پاسختون
من راه حل ديگه ايي پيدا كردم
بجاي / از اين \ استفاده كردم و ديگه اعشار نميزنه
متشكرم
سلام
درسته، اما روش Setroyd عزيز در نهايت نتيجه دقيق تري رو بر مي‌گردونه مخصوصا در محاسبات بيشتر و پيچيده تر
يعني شما با همون / كل محاسبات رو انجام بديد بعد در نهايت از Fix استفاده كنيد

[saber67]

می تونی از تابع Round کمک بگیری که کارش گرد کردن اعداد اعشاریه
به مثال زیر دقت کن
Private Sub Form_Load()
Me.Caption = Round(3.14, 0)
End Sub