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

[משה גרוס]

@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 עם הדפסה לקונסולה...
תודה ענקית

 

[יחיאל המומחה]

בקובץ המצורף יש מספר פונקציות הקשורות לתאריך עברי. הפונקציות מתאימות לכל תוכנות מייקרוסופט אופיס, ולשאר התוכנו התומכות בVBA, למרות שהדוגמא המצורפת היא חוברת עבודה של אקסל.
המשמעותיות שבהן הינן:
TodayHeb תאריך עברי היום
DateToHeb המרת תאריך לועזי לתאריך עברי
HebToDate המרת תאריך עברי לתאריך לועזי
IsSabbathOrHoliday האם יום נתון הוא שבת או חג
IsValidHebDate בדיקת תקינות תאריך עברי
NextHebrewWorkday יום העבודה הבא, אם היום הנתון חל בשבת או חג

יש עוד מספר פונקציות כאשר יראה המתבונן.

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

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

אם אני מנסה להמיר מאדר א או מאדר ב ללועזי אני לא מצליח

 

[moishy]

אם אני מנסה להמיר מאדר א או מאדר ב ללועזי אני לא מצליח

מה הכוונה "לא מצליח"?

 

[יחיאל המומחה]

נשאר ריק

 

[ניק 28107]

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

 

[moishy]

נשאר ריק

צרף בבקשה את הקובץ בו אתה משתמש

 

[ניק 28107]

מצרף דוגמא לתארך לועזי

 

[יעקב ויצמן]

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

תראה את תשובתי בלינק כאן
הודעה בנושא 'האשכול המרכזי לשאלות באקסל/גוגל שיטס' https://www.prog.co.il/threads/האשכול-המרכזי-לשאלות-באקסל-גוגל-שיטס.499341/post-13960898
בהצלחה

 

[יחיאל המומחה]

צרף בבקשה את הקובץ בו אתה משתמש

 

[moishy]

בקובץ שצירפת אין קוד...

 

[יחיאל המומחה]

בקובץ שצירפת אין קוד...

ערכתי