תאריך עברי באקסס 2013

[yes no men]

תאריך עברי באקסס 2013

שלום רב

שאלתי שאלה זו גם בפורם תפוז, אך אני מניח שגם לפה שייך שאלה זו, אודה לכם מאד על העזרה

תאריך עברי/לועזי באקסס 2013
מאת: yes no men
07/01/14 09:34
שלום רב

באתר מסויים הצלחתי למצוא קוד איך להמיר תאריך עברי ללועזי או הפוך, ואכן הצלחתי להפוך תאריך עברי ללועזי (פונקציה שנקרא בשם GregorianDateOfHebrewDate) אך לא מתאריך לועזי לעברי בפוקציה ששמו HebrewDateOfGregorianDate , צירפתי לפה את קובץ אקסס שבו ניסיתי להמיר תאריך עברי ללועזי (שכאמור הצלחתי בזה) וגם הקוד של המרת מלועזי לעברי ששם לא הצלחתי (יש שם כמה משתנים שצרך לשגר לפונקציה ולא הצלחתי להבין מה איזה פרטים אני אמור להכניס לשם. אני מעתיק קישור להורדת הקובץ

המון תודה לכם
שלכם,
yes no men

 

[דונאלד ד]

הפתרון

תשנה את Command9_Click ל:

Private Sub Command9_Click()



Dim y As Long, m As Long, d As Long
HebrewDateOfGregorianDate Me!GregorianDate, y, m, d


Me!YearCombo = y
Me.MonthCombo = m
Me.DayOfMonthCombo = d
Me!GregorianToHebrewDate = y & " " & m & " " & d
End Sub

 

[yes no men]

המון המון תודה