Private Sub Command1_Click()Text3 = DateDiff("m", Text1, Text2)If Text3 > 0 Thenlabel1="الأول أقدم من الثاني"ElseIf Text3 < 0 ThenLabel1 = "الثاني أقدم من الأول "End IfEnd Sub