يه مشكل جديد و جالب!!!!!!!

[4017]

به فايل پيوست توجه كنيد
فرمولش طوريه كه اگه تكست باكس 1 از تكست باكس 2 كه عددش هست 365 بيشتر شد ارور بده
اما هر عددي بين 37 تا 99 رو ارور ميده(!!!)
و همچنين عددهايي كه صفر داره بعدش رو ارور نميده(!!!) مثل 3600 يا 1000 و از اين دست
دوستان كسي نظري نداره؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[ali.b]

اقا چیزی تو فایلتون نیست؟!!!!!!!!!!!!

[4017]

اقا چیزی تو فایلتون نیست؟!!!!!!!!!!!!

آقا معذرت.اصلاح شد

[علی فاطمی]

با سلام ، لطفا فایل پیوست رو ملاحظه بفرمائید ببینین کمکی میکنه.

[mokaram]

با تشکر از علی آقای فاطمی
بله راه حل شما جواب را میده ولی منظور دوستمون اینه که چرا اینجوری میشه منطق این کار چیه ؟؟؟

[علی فاطمی]

با تشکر از علی آقای فاطمی
بله راه حل شما جواب را میده ولی منظور دوستمون اینه که چرا اینجوری میشه منطق این کار چیه ؟؟؟

با سلام خدمت جناب مکرم عزیز ،
من خودم دقیقا همین مشکل رو داشت . وقتی از textbox1.value استفاده میکنی خروجی از نوع استرینگ خواهد بود که عملا قابل مقایسه نیستند ولی وقتی از val استفاده می کنی خروجی مقدار داخل تکست باکس خواهد بود .
خطا در مقایسه دو تکست باکس

[misammisam]

سلام
شما داري كاراكترها رو با هم مقايسه ميكني نه اعدادرو ، يعني textbox هاي شما يه string محسوب ميشن بايد يه كاري كني كه عدد خونده بشن ، مثلا به يه متغير اختصاصشون بده بعد مقايسه كن

Private Sub CommandButton1_Click()
Dim t1 As Integer
Dim t2 As Integer
t1 = TextBox1.Value
t2 = TextBox2.Value

If t1 > t2 Then
MsgBox "error"
Else
MsgBox "ok"
End If
End Sub 

البته اين يه راهشه ، راههاي ديگه ايم داره كه تو فرم بگردي حتما پيدا ميكني .
موفق باشي