راهنمایی در مورد این کوئری

[unforgiven]

Dim d1 As String
Dim d2 As String
Dim s As Integer
d1 = txtFields(7).Text
d2 = To_Hejri(Now, 0)
s = DateDiff("d", d1, d2)
Text1.Text = s
If s > 30 Then
Label5.Visible = True
Label6.Visible = False
Label5.Caption = " منقضی شده "
End If
If s < 30 Or s < 31 Then
Label6.Caption = " "
Label6.Visible = True
Label5.Visible = False
End If

[ehsan_ansaripoor]

دوست عزیز توضیح بیشتری بده تا اونجایی که من فهمیدم یک ورودی داری که داخل یک تابع قرار می گیره با متغییر ترکیب میشه و با یک شرط خارج میشه