[حل شده] محاسبه سن در یوزر فرم

[reza_gh_tak]

با سلام
چطور میشه دوتا تکست با کس تعریف کنیم که با زدن تاریخ روز در یکی و تاریخ تولد شخص در یکی دیگه سن فرد رو به روز و ماه و سال بده ممنون می شم کمکم کنید
اینو در اکسل بلدم ولی میخوام در یوزر فرم و vba باشه

[iranweld]

با سلام

در فایل پیوست ماژول توابع فارسی ساز به فایل اضافه گردیده است و از آن در محاسبات تکست باکس ها استفاده گردیده است

وقتی یوزر فرم را اجرا میکنید در تکست باکس اول تاریخ روز درج میگردد و تکست باکس دوم فعال میگردد

Private Sub UserForm_Initialize()

TextBox2.SetFocus

TextBox1 = J_TODAY(1)


End Sub 

وقتی در تکس باکس دوم چهار رقم وارد کنید بصورت خودکار "/" را درج مینماید و وقتی عدد دو رقمی ماه را وارد کنید "/" بعدی هم درج میگردد
وقتی تاریخ کامل گردید اختلاف دو تاریخ در تکست باکس سوم نمایش داده میشود

Private Sub TextBox2_Change()

If Len(TextBox2) = 4 Then

TextBox2 = TextBox2 & "/"

ElseIf Len(TextBox2) = 7 Then

TextBox2 = TextBox2 & "/"

ElseIf Len(TextBox2) = 10 Then

TextBox3 = J_DIFF(TextBox2, TextBox1)

Else

TextBox3 = ""

End If


End Sub