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

ארי4791

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

ari rm

משתמש פעיל
בס"ד
יש קוד לבדיקת הפרש בין תאריכים עבריים?
תעתיק את זה
קוד:
Public Function NumBetweendates(FirstDateHeb As String, LastDateHeb As String)
NumBetweendates = CLng(HebToDate(LastDateHeb) - HebToDate(FirstDateHeb))
End Function
זה שם הפונקציה: NumBetweendates
פרמטר ראשון: תאריך ראשון - "מתאריך"
פרמטר שני: תאריך אחרון - "עד תאריך"

נ.ב. לא בדקתי עדיין, אבל זה אמור לעבוד.
 

moishy

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

dvash01

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

ari rm

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

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

  • לוח שנה לועזי עברי.rar
    KB 59.3 · צפיות: 90

dvash01

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

דוד דוד

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

מצורף קובץ עם נוסחאות מתוקנות
 

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

  • תאריכים.rar
    KB 164.3 · צפיות: 87

dvash01

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

מצורף קובץ עם נוסחאות מתוקנות
האם יש אפשרות לקבל גם פרשיות השבוע? הפטרה?
 

ari rm

משתמש פעיל
בס"ד

בבקשה
היה כאן בעבר לא זוכר איפה
 

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

  • זמני היום.rar
    KB 137.7 · צפיות: 65

רושם

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

ניסיתי להמיר תאריך באמצעות הפונקציה DateToHeb לתאריך 18/02/2018
והתאריך שאני מקבל שגוי (ג' באדר ב תשע"ח) כי תשע"ח היא שנה פשוטה כמובן
תודה רבה וגמר חתימה טובה לכולם

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

חודש אדר שמח לכולם!
ערכתי שינוי בקוד בנסיון לפתור את הבעיה של "אדר ב" בשנה פשוטה, בהמרה מלועזי לעברי:
בפונקציה GregToHeb (בשורה 143 של mdlCore)
במקום:
If bLeap Or nMonthH <> 5 Then
כתבתי:
If bLeap Or nMonthH <> 6 Then

האם זה יוצר בעיות חדשות?
 

א חדש

משתמש חדש
איזה נוסחה כותבים בחלון שנפתח ?? את הסמן משאירים על התאריך ??
1621506364513.png
 

kishkush

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

תלמידים

מהמשתמשים המובילים!
מנהל
מנוי פרימיום
עיצוב גרפי DIP
עיצוב גרפי
עיצוב פונטים
עימוד ספרים
פונקציות לתאריך עברי ב-SHEETS:

חגים ומועדי ישראל (תודות לעוזר הבלתי נלאה @אפר )
 

moishy

משתמש סופר מקצוען
מנוי פרימיום
שנה טובה
משום מה הפונקציות ממירות באופן שגוי
קיימת תוספת של עשרה ימים בהצגת התאריך העברי המומר מהתאריך הלועזי של היום
איפה יש שגיאה, בקובץ הראשון שפורספם באשכול זה?
 

משה גרוס

משתמש רשום
@moishy בקוד האקסל המקורי שפרסמת ישנה בעיה בהמרת תאריך עברי ללועזי בשנים ח' וי"ט במחזור שני העיבור
הפונקציה IsValidHebDate שולחת את השנה לפונקציה isLeapYear בלי האלפים מה שגורם לכך שהתשובה מתאימה עבור השנה מהאלף הראשון לבריאה...
המחזורים באלף הראשון היו מאוחרים בשלוש שנים מהמחזורים באלף השישי כך שבשנה רגילה אין בעיה ורק בשנים המעוברות שלא לפי הרצף של פעם בשלוש שנים נוצרת הבעיה
לעצמי תיקנתי ככה
קוד:
Public Function IsLeapYear(ByVal nYearH As Long) As Boolean
    Dim nYearInCycle As Long
    
    If nYearH < 5000 Then
        nYearH = nYearH + 5000
    End If


    nYearInCycle = nYearH Mod 19
    IsLeapYear = nYearInCycle = 3 Or _
                 nYearInCycle = 6 Or _
                 nYearInCycle = 8 Or _
                 nYearInCycle = 11 Or _
                 nYearInCycle = 14 Or _
                 nYearInCycle = 17 Or _
                 nYearInCycle = 0
End Function
אולי תשנה את הקובץ בהתחלה לתועלת הציבור
 

משה גרוס

משתמש רשום
@moishy שתי באגים נוספים בקוד
חודש אדר של שנה פשוטה מופיע כאדר ב'
אם מזינים שנה עם אלפים מקבלים אותה כחישוב של אחדות
אני מצרף קובץ עם תיקונים וכמה פונקציות נוספות (פרשת שבוע ועוד...)
 

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

  • פונקציות תאריכים עבריים 5.0.zip
    KB 80.9 · צפיות: 20

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

הפרק היומי

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


תהילים פרק קכט

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

לוח מודעות

למעלה