עזרה באקסס קוד לחישוב גיל לפי תאריך עברי

[רושם]

האם ישנו מודול לחישוב גיל (שנים וחודשים בתוך השנה הנוכחית) לפי תאריך עברי?
הקושי שלי הוא בחישוב מספר החודשים בהתחשב בשנה פשוטה ומעוברת.

תודה

 

[מתמצא]

מצו"ב מודול לחישוב תאריך עברי ללועזי ולהיפך
בהמרת תאריך לועזי לעברי יש אפשרות לקבל את מספר החודש בתוך השנה, וכן את השנה במספרים ואז למצוא את ההפרש

 

[חגי פאהן]

ב-C# יש פונקציית תאריך עברי מובנה, שהופכת תאריך לועזי לעברי וההפך, ומחזירה את השנה, החודש והיום במספרים.

 

[מתמצא]

וזה הקוד

Dim Date_of_birth As String, Date_to_Day As String, age As String
Dim month_db As Integer, month_dd As Integer
Dim Year_db As Integer, Year_dd As Integer
Dim months_difference As Integer, Year_difference As Integer

Date_of_birth = "א תשרי תשס"
Date_to_Day = "כה אלול תשפא"

month_db = GregDateToHeb(HebDateToGreg(Date_of_birth), "m")
month_dd = GregDateToHeb(HebDateToGreg(Date_to_Day), "m")

Year_db = GregDateToHeb(HebDateToGreg(Date_of_birth), "y")
Year_dd = GregDateToHeb(HebDateToGreg(Date_to_Day), "y")

months_difference = month_dd - month_db
Year_difference = Year_dd - Year_db

If months_difference < 0 Then
    months_difference = 12 + months_difference
    Year_difference = Year_difference - 1
End If

age = Year_difference & " שנים ו-" & months_difference & " חודשים"

 

[מתמצא]

ב-C# יש פונקציית תאריך עברי מובנה, שהופכת תאריך לועזי לעברי וההפך, ומחזירה את השנה, החודש והיום במספרים.

מקדם הנושא הוא 'עזרה באקסס'

 

[חגי פאהן]

מקדם הנושא הוא 'עזרה באקסס'

תודה, חיפשתי איזה רמז לשפה ולא מצאתי...