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

משה גרוס

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

קבצים מצורפים

  • באג.zip
    KB 81.1 · צפיות: 30

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 תודה
אבל מה גורם לתקלה
כמו שהבנת לבד, האלפים גורם לבעיה. וזאת מפני שהפונקציה 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

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

ניק 28107

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

קבצים מצורפים

  • דוגמא בלועזי.xlsx
    KB 8.2 · צפיות: 3

יעקב ויצמן

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

moishy

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

אולי מעניין אותך גם...

הפרק היומי

הפרק היומי! כל ערב פרק תהילים חדש. הצטרפו אלינו לקריאת תהילים משותפת!


תהילים פרק צח

א מִזְמוֹר שִׁירוּ לַיי שִׁיר חָדָשׁ כִּי נִפְלָאוֹת עָשָׂה הוֹשִׁיעָה לּוֹ יְמִינוֹ וּזְרוֹעַ קָדְשׁוֹ:ב הוֹדִיעַ יי יְשׁוּעָתוֹ לְעֵינֵי הַגּוֹיִם גִּלָּה צִדְקָתוֹ:ג זָכַר חַסְדּוֹ וֶאֱמוּנָתוֹ לְבֵית יִשְׂרָאֵל רָאוּ כָל אַפְסֵי אָרֶץ אֵת יְשׁוּעַת אֱלֹהֵינוּ:ד הָרִיעוּ לַיי כָּל הָאָרֶץ פִּצְחוּ וְרַנְּנוּ וְזַמֵּרוּ:ה זַמְּרוּ לַיי בְּכִנּוֹר בְּכִנּוֹר וְקוֹל זִמְרָה:ו בַּחֲצֹצְרוֹת וְקוֹל שׁוֹפָר הָרִיעוּ לִפְנֵי הַמֶּלֶךְ יי:ז יִרְעַם הַיָּם וּמְלֹאוֹ תֵּבֵל וְיֹשְׁבֵי בָהּ:ח נְהָרוֹת יִמְחֲאוּ כָף יַחַד הָרִים יְרַנֵּנוּ:ט לִפְנֵי יי כִּי בָא לִשְׁפֹּט הָאָרֶץ יִשְׁפֹּט תֵּבֵל בְּצֶדֶק וְעַמִּים בְּמֵישָׁרִים:
נקרא  5  פעמים

אתגר AI

ותשובה ותפילה וצדקה • אתגר 111

לוח מודעות

למעלה