Dim Date_of_birth As String, Date_to_Day As String, age As String
Dim month_db As Integer, month_dd As Integer
Dim Year_db As Integer, Year_dd As Integer
Dim months_difference As Integer, Year_difference As Integer
Date_of_birth = "א תשרי תשס"
Date_to_Day = "כה אלול תשפא"
month_db = GregDateToHeb(HebDateToGreg(Date_of_birth), "m")
month_dd = GregDateToHeb(HebDateToGreg(Date_to_Day), "m")
Year_db = GregDateToHeb(HebDateToGreg(Date_of_birth), "y")
Year_dd = GregDateToHeb(HebDateToGreg(Date_to_Day), "y")
months_difference = month_dd - month_db
Year_difference = Year_dd - Year_db
If months_difference < 0 Then
months_difference = 12 + months_difference
Year_difference = Year_difference - 1
End If
age = Year_difference & " שנים ו-" & months_difference & " חודשים"
מקדם הנושא הוא 'עזרה באקסס'ב-C# יש פונקציית תאריך עברי מובנה, שהופכת תאריך לועזי לעברי וההפך, ומחזירה את השנה, החודש והיום במספרים.
תודה, חיפשתי איזה רמז לשפה ולא מצאתי...מקדם הנושא הוא 'עזרה באקסס'
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
4.06
כ"ז אייר
קורס משולב בינה מלאכותית
קורס פיתוח ובניית אתרים
קריירה מתקדמת, ביקוש עצום, וממוצע משכורות גבוה במיוחד!
מלגות גבוהות ומשתלמות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
18.06
י"ב סיוון
#רקבפרוג
הרצאה מרתקת:
פוטושופ לצלמים
עם אופק עוגן
כלים מתקדמים, טכניקות חדשות ובינה מלאכותית בפוטושופ לצלמים בעידן 2024
לתלמידים ובוגרים בלבד!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
תהילים פרק טז
א מִכְתָּם לְדָוִד שָׁמְרֵנִי אֵל כִּי חָסִיתִי בָךְ:ב אָמַרְתְּ לַיהוָה אֲדֹנָי אָתָּה טוֹבָתִי בַּל עָלֶיךָ:ג לִקְדוֹשִׁים אֲשֶׁר בָּאָרֶץ הֵמָּה וְאַדִּירֵי כָּל חֶפְצִי בָם:ד יִרְבּוּ עַצְּבוֹתָם אַחֵר מָהָרוּ בַּל אַסִּיךְ נִסְכֵּיהֶם מִדָּם וּבַל אֶשָּׂא אֶת שְׁמוֹתָם עַל שְׂפָתָי:ה יְהוָה מְנָת חֶלְקִי וְכוֹסִי אַתָּה תּוֹמִיךְ גּוֹרָלִי:ו חֲבָלִים נָפְלוּ לִי בַּנְּעִמִים אַף נַחֲלָת שָׁפְרָה עָלָי:ז אֲבָרֵךְ אֶת יְהוָה אֲשֶׁר יְעָצָנִי אַף לֵילוֹת יִסְּרוּנִי כִלְיוֹתָי:ח שִׁוִּיתִי יְהוָה לְנֶגְדִּי תָמִיד כִּי מִימִינִי בַּל אֶמּוֹט:ט לָכֵן שָׂמַח לִבִּי וַיָּגֶל כְּבוֹדִי אַף בְּשָׂרִי יִשְׁכֹּן לָבֶטַח:י כִּי לֹא תַעֲזֹב נַפְשִׁי לִשְׁאוֹל לֹא תִתֵּן חֲסִידְךָ לִרְאוֹת שָׁחַת:יא תּוֹדִיעֵנִי אֹרַח חַיִּים שֹׂבַע שְׂמָחוֹת אֶת פָּנֶיךָ נְעִמוֹת בִּימִינְךָ נֶצַח: