פונקציות לתאריך עברי

[משה גרוס]

@moishy תוכל לעזור לי לתקן איזה בג בקוד?

 

[משה גרוס]

[USE

 

[moishy]

@moishy תוכל לעזור לי לתקן איזה בג בקוד?

אפשר לנסות

 

[משה גרוס]

@moishy תראה את התאים באזור I19
אם יותר נוח לך אפשר גם במייל podopen4+gmail.com

 

[moishy]

@moishy תראה את התאים באזור I19
אם יותר נוח לך אפשר גם במייל podopen4+gmail.com

בפונקציה fParseHebDate
החלף את השורה הזאת:

arrString(2) = fReverseGimatria(arrString(2))

בזאת:

arrString(2) = IIf(Left(arrString(2), 1) = "ה", fReverseGimatria(Right(arrString(2), Len(arrString(2)) - 1)), fReverseGimatria(arrString(2)))

 

[משה גרוס]

@moishy תודה
אבל מה גורם לתקלה

 

[moishy]

@moishy תודה
אבל מה גורם לתקלה

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

 

[משה גרוס]

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

זוהי בדיוק השאלה שלי
הקריאה לפונקציה fReverseGimatria נעשית רק מתוך הפונקציה fParseHebDate והיא אינה מסירה את הגרש!
הפונקציות HebToGreg ו-HebToDate אינן קוראות ל-fReverseGimatria
אתה יכול לראות בקוד של האקסל שהעליתי שהסרתי את השורה

If InStr(1, strDate, "'") > 0 Then strDate = Replace(strDate, "'", ""

מהקוד
יתירה מזו אתה יכול לראות בתאים M19 ו-M20 שהפונקציה fReverseGimatria מזהה את שני השנים האלו כתשפ"ד...

 

[moishy]

הקריאה לפונקציה fReverseGimatria נעשית רק מתוך הפונקציה fParseHebDate והיא אינה מסירה את הגרש!

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

 

[משה גרוס]

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

א. מדוע IsValidHedDate משנה את הערך שרץ בתוך HebToDate
ב. אני לא מצליח לשים נקודות עצירה בקוד. אני כבר מחפש המון זמן דרך חלופית להריץ קוד VBA עם הדפסה לקונסולה...
תודה ענקית