[ تمت الإجابة ]مشكلة مع التركيب If .. Then .. Else

اخي الكريم هناك نقص في احد اغلاقات IF

والصحيح هو كالتالي

Private Sub Command1_Click()

day1 = cmb1.Text
day2 = Cmb2.Text
mon1 = cmb3.Text
mon2 = cmb4.Text
yer1 = Txt1.Text
yer2 = Txt2.Text


If day2 < day1 Then
Txt3.Text = (day2 + 30) - day1
Else
Txt3.Text = day2 - day1
End If


If day2 < day1 Then

ElseIf mon2 <= mon1 Then
  Txt4 = (mon2 - 1) + 12 - mon1
Else
  Txt4 = (mon2 - 1) - mon1
End If

If mon2 < mon1 Then Txt4.Text = (mon2 + 12) - mon1

Else
Txt4.Text = mon2 - mon1
End If







If day2 < day1 Then
ElseIf mon2 <= mon1 Then
Txt5.Text = (yer2 - 1) - yer1
Else
Txt5.Text = yer2 - yer1
End If


If mon2 < mon1 Then Txt5.Text = (yer2 - 1) - yer1
Else
Txt5.Text = yer2 - yer1

End If

End Sub

جزاك الله خيرا أخي الفاضل

نسخت الكود الذي صححته لي مشكورا

ونفس المشكلة موجوده !

السلام عليكم

أخي الكريم المشكلة بسيطة جدا الكود صحيح 100 % لكن هناك خطوة بسيطة هي أنزال السطر الذي بعد then في المرحلتين

If mon2 < mon1 Then Txt4.Text = (mon2 + 12) - mon1
Else
Txt4.Text = mon2 - mon1
End If


If mon2 < mon1 Then Txt5.Text = (yer2 - 1) - yer1
Else
Txt5.Text = yer2 - yer1
End If
End Sub

بحيث تصبح

If mon2 < mon1 
Then Txt4.Text = (mon2 + 12) - mon1
Else
Txt4.Text = mon2 - mon1
End If


If mon2 < mon1 Then 
Txt5.Text = (yer2 - 1) - yer1
Else
Txt5.Text = yer2 - yer1
End If
End Sub

قمت بتجربة مثال ووضعت السطر بعد then فظهرت لي نفس الرسالة التي ظهرت لك و بمجرد أني قمت بإنزاله حلت المشكلة و الصور توضح كيف

أرجو الفائدة

جزاك الله خيرا وبارك الله فيك

وجعل هذا في ميزان حسناتك

فعلا اختفت رسالة الخطأ

:)

على الآن مراجعة المعادلات لأن النتائج في الاكسل تختلف عنها في الفيجول بيسك

الله يعين

وفقك الله

حاول أن تقوم بالتجربة

و نحن هنا للمساعدة بعون الله