تفاضل سن دو نفر به شمسی

[einali]

سلام دوستان من از ماژول شمسی توی سایت که توسط آقای غلامی نوشته شده است استفاده می کنم حال من در برنامه نیاز دارم که سن دو نفر را از هم کم کنم لطفا راهنمایی فرمایید
http://barnamenevis.org/showthread.php?322266
Shamsi Date 94.09.10.rar‏ (http://barnamenevis.org/attachment.php?attachmentid=137175&d=1448952325) (39.9 کیلوبایت, 1708 دیدار)

[n_ali27]

سلام
این ماژول را خودم نوشتم ببین به کارت میاد
' تابع اختلاف تاریخ
Public Function Ekhtelaftarikh(date1, date2 As String)
Sal1 = left(date1, 4): mah1 = left(right(date1, 4), 2)
roz1 = right(date1, 2): Sal2 = left(date2, 4)
mah2 = left(right(date2, 4), 2): roz2 = right(date2, 2)
r1 = GetDays(left(right(date1, 4), 2), left(date1, 4))
r2 = GetDays(left(right(date2, 4), 2), left(date2, 4))


If mah1 - mah2 >= 0 Then
If roz1 - roz2 >= 0 Then
ss = Sal1 - Sal2: mm = mah1 - mah2: rr = roz1 - roz2
Else
If mah1 = mah2 Then
ss = Sal1 - Sal2 - 1: mm = 11: rr = r2 - roz2 + roz1
Else
ss = Sal1 - Sal2: mm = mah1 - mah2 - 1: rr = r2 - roz2 + roz1
End If
End If
Else
If roz1 - roz2 >= 0 Then
ss = Sal1 - Sal2 - 1: mm = 12 - mah2 + mah1: rr = roz1 - roz2
Else
ss = Sal1 - Sal2 - 1: mm = 12 - mah2 + mah1 - 1: rr = r2 - roz2 + roz1
End If
End If

If ss > 0 Then
If mm = 0 And rr = 0 Then
S = ss & " " & "سال": a = "": m = "": R = ""
Else
S = ss & " " & "سال": a = " و "
End If
Else
S = "": a = ""
End If

If mm > 0 Then
m = mm & " " & "ماه": b = " و "
Else
m = "": b = ""
End If

If rr > 0 Then
R = rr & " " & "روز"
Else
R = "": b = ""
End If

If date1 < date2 Then
Ekhtelaftarikh = "تاریخ را اصلاح نمائید"
Else
Ekhtelaftarikh = S & "" & a & m & "" & b & R
End If
End Function