تشخیص صحیح بودن

[.:KeihanCPU:.]

دوستان با چه کدی میشه تشخیص داد که یک عدد اعشاری داره یا نه؟
یا چه طوری میشه بفهمیم که عدد صحیح اه یا نه؟

[ASKaffash]

با سلام با این تابع

Public Function Ok(S As Variant) As Boolean
S = CStr(S)
For i = 1 To Len(S)
If Mid(S, i, 1) = "." Then
Ok = True
Exit For
End If
Next
End Function

[.:KeihanCPU:.]

میشه درباره کد توضیح مختصری بدی

[حسین علوی]

سلام

If Int(Val(Text1.Text)) = Val(Text1.Text) Then
Call MsgBox("عدد صحيح است")
End If

[.:KeihanCPU:.]

مشکلم حل شد عالی بود

[H4i0 ACP]

Public Function Ok(S As Variant) As Boolean
S = CStr(S)
For i = 1 To Len(S)
If Mid(S, i, 1) = "." Then
Ok = True
Exit For
End If
Next
End Function
---------------------
سلام
این کد با پیدا کردن نقطه می گه عدد اعشاریه و لی همجا کار نمی کنه مثلا برای عدد صحیح 12.00

[H4i0 ACP]

سلام

If Int(Val(Text1.Text)) = Val(Text1.Text) Then
Call MsgBox("عدد صحيح است")
End If
-----------------------------------------------
این کد هم عدد رو گرد میکنه که اگر عدد اصلی ما صحیح باشه مقدار گرد شدش با خود عدد اصلی برابر می شه .

[ali_habibi1384]

میتونید اون عدد رو با جزء صحیحش مقایسه کنید:
if x=int(x) then
sahih ast
:else
sahihnist
end if

[.:KeihanCPU:.]

If Int(Val(Text1.Text)) = Val(Text1.Text) Then
Call MsgBox("عدد صحيح است")
End If


مشکلم حل شد این راه به شما پیشنهاد میکنم

[ali_habibi1384]

مشکلم حل شد این راه به شما پیشنهاد میکنم
این که همون راه حلی هست که من پیشنهاد کردم!

[.:KeihanCPU:.]

این که همون راه حلی هست که من پیشنهاد کردم!

دوست عزیزمون حسین علوی در چهارمین پست جواب من رو دادند