راهنمایی و رفع اشکال در مورد تاریخ ثبت نام و تاریخ انقضا ثبت نام اعضا

سلام به دوستان
من در برنامه ای که نوشتم به یه مشکل برخوردم

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

Dim d1 As String
Dim d2 As String
Dim s As Integer
d1 = Text8.Text ( تاریخ انقضا)
d2 = To_Hejri(Now, 0) ( تاریخ جاری برنامه)
s = DateDiff("d", d1, d2)
Text1.Text = s
If s > 30 Then
Label5.Caption = " This Record has expired "
End If

البته 1 راه به ذهنم رسید ولی نمی تونم چطوری انجامش بدم
به این صورت که :
مثل کد بالا عمل کنم ولی این بار تاریخ انقضا رو ازتاریخ ثبت نام کم کنم و حاصلشوکه همیشه 30 یا 31 هست رو تو یه تکست نگه دارم بعد به ازای هر روز که تاریخ جاری برنامه جلو میره 1 روز از این 30 روز کم کنم تا وقتی به 0 رسید اخطار داده بشه
نمی دونم این روش درسته یا نه ؟

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

پیشاپیش متشکرم