كود الفرق بين تاريخين باليوم

'ضع الكود في الفورم

Private Sub Command1_Click()

On Error GoTo 1

Dim Form1Date As Date

Dim Form2Date As Date

Form1Date = Text1.Text

Form2Date = Text2.Text

Text3.Text = DateDiff("d", Text1.Text, Text2.Text) & " يوم"

Exit Sub

1 MsgBox ("من فضلك أدخل التاريخ بشكل صحيح")

End Sub