מהי פונקציית VBA DateValue?
פונקציית DateValue היא פונקציה מובנית ב- Excel VBA בקטגוריית פונקציית תאריך / שעה. זה עובד גם כפונקציית VBA וגם כפונקציה של גליון עבודה ב- vba. פונקציה זו מחזירה את המספר או הערך הסידורי של תאריך הניתן בתבנית ייצוג המחרוזת תוך התעלמות ממידע הזמן המסופק על ידי מחרוזת תאריך. משתמשים בו בשתי דרכים שונות ב- Excel. פונקציה זו משמשת כנוסחת גליון עבודה הנכנסת לתא גליון עבודה. הוא משמש כקוד המאקרו ביישום VBA שנכנס אליו דרך Visual Basic Editor המשויך ל- Microsoft Excel.
במאמר זה נלמד דוגמאות ל- VBA DATEVALUE וכיצד להשתמש בה עם הסבר ברור.
הסבר על פונקצית VBA Datevalue
ב- VBA, DATEVALUE משתמש בתחביר הבא.
פונקציה זו משתמשת רק בוויכוח או בפרמטר היחיד
- תאריך : זהו התאריך המיוצג בתבנית המחרוזת
- מחזירה: פונקציה זו מחזירה את ערך התאריך שבו היא משמשת כפונקציית VBA. הוא מחזיר את ערך התאריך כאשר הוא משמש כפונקציה של גליון עבודה
פונקציית VBA DateValue מסוגלת לפרש את הנתונים המיוצגים בפורמט טקסט המוזכר בתבנית Excel תקפה. היא לא מסוגלת להחזיר את ערך התאריך אם המחרוזת כללה את ייצוג הטקסט של יום השבוע.
היתרונות של הפונקציה VBA DateValue הם חילוץ ערך התאריך ממחרוזת והמרת תאריך עם הזמן לתאריך היחיד. אנו יכולים פשוט שכאשר ניתן תאריך עם זמן, פונקציה זו רק ערך תאריך הימנעות מערך הזמן.
כיצד להשתמש ב- Excel VBA DATEVALUE?
כדי להשתמש בפונקציה DateValue ב- Excel תחילה צריך לפתוח את עורך VBA.
יש למקם את לחצן הפקודה בגליון העבודה של Excel כדי להוסיף אליו את השורות של תוכנית VBA. כדי ליישם את שורות התוכנית, המשתמש דורש ללחוץ על כפתור הפקודה בגליון ה- Excel. כדי לקבל פלט חוקי מהתוכנית, קלט חוקי ניתן דרך הארגומנט. לדוגמא, הקוד הבא עוזר ליצירת מאקרו להפעלת הפונקציה DateValue כדי לחלץ את ערך התאריך מהטקסט ב- VBA.
תוכנית VBA:
כפתור משנה משנה () עמעום myDate כתאריך myDate = DateValue ("15 באוגוסט 1991") תאריך MsgBox (myDate) סוף משנה קוד זה מביא לתאריך 15 מהקלט הנתון.
דוגמאות ל- Excel VBA DATEVALUE
להלן הדוגמאות של DateValue ב- Excel VBA.
אתה יכול להוריד תבנית Excel VBA DateValue כאן - תבנית VBA DateValue Excelדוגמה מס '1 - השג יום, חודש ושנה מתאריך
פועלים כמה צעדים ליצירת וביצוע התוכנית ב- VBA. אלה כוללים
שלב 1: עבור לכרטיסיית מפתח, הצב סמן על תא בגליון Excel ולחץ על אפשרות 'הוסף' ובחר 'כפתור פקודה' תחת בקרת ActiveX כפי שמוצג באיור.
גרור את הכפתור לאן שאתה רוצה ותן את הכיתוב ככפתור נתונים מחלון המאפיינים.
שלב 2: לחץ פעמיים על הכפתור שהוא ינתב לפרויקט VBA וכתוב את הקוד בין כפתור הפקודה Sub Private לבין Sub End.
יש לפתח את הקוד כמפורט להלן כדי לקבל תאריך, חודש ושנה.
קוד:
כפתור משנה פרטי פרטי1_קליק () עמעום Expledate כתאריך Exampledate = DateValue ("אפריל 19,2019") תאריך MsgBox MsgBox שנה (Exampledate) חודש MsgBox (Exampleated) סוף משנה 
בקוד זה, Datebutton1_Click () הוא השם וה- exampledate משתנים עם סוג הנתונים תאריך ו- Msgbox כדי להציג את הפלט.
שלב 3: בזמן פיתוח קוד, יתרחשו שגיאות אי התאמה מסוג VBA וצריך לטפל בהן.
שלב 4: בשלב זה, הפעל את התוכנית ולחץ על אפשרות ההפעלה.
לחלופין, אנו יכולים לבדוק או לבצע ניפוי באגים בתוכנית שלב אחר שלב ובחירה באפשרות שלב לתוך בתפריט איתור באגים. אם הקוד שלנו ללא שגיאות הוא מציג את הפלט.
שלב 5 : כאשר התוכנית מבוצעת, היא מציגה תחילה את תיבת ההודעות עם התאריך המצוין בקלט הטקסט. לאחר מכן לחץ על אישור כדי לראות שוב את ערך השנה לחץ על אישור בתיבת ההודעות כדי לראות את ערך החודש.
דוגמה מס '2 - שימוש ב- DatePart לקבלת חלקי התאריך השונים
שלב 1: עבור אל הכרטיסייה Excel Developer, הצב את הסמן על תא בגליון Excel ולחץ על אפשרות 'הוסף' ובחר 'לחצן הפקודה' תחת בקרת ActiveX כפי שמוצג באיור.
שלב 2: גרור את הלחצן ותן את הכיתוב כ- DatePart תחת מאפיינים.
לחץ פעמיים על כפתור זה, הוא מכוון לגיליון עורך Visual Basic ומוצג כדלקמן.
שלב 3: פתח את הקוד באמצעות DatePart עם DateValue כפי שמוצג באיור.
קוד:
Private Sub Datepart1_Click() Dim partdate As Variant partdate = DateValue("8/15/1991") MsgBox partdate MsgBox Datepart("yyyy", partdate) MsgBox Datepart("dd", partdate) MsgBox Datepart("mm", partdate) MsgBox Datepart("q", partdate) End Sub 
In this program, DatePart1 is the macro name and partDate is argument name with data type ‘variant’. For displaying year, date, month, and a quarter, the format is applied as “yyyy”, “d”, “m”, and “q”. If we do any mistake in the format it displays the following error.
Step 4: After successful debugging of program, run the program by clicking on the run button use excel shortcut key F5.
The code first displays the full date then after clicking every OK from the msgbox, it shows the year value after that Date value, Month Value, Quater Value respectively.
Things to Remember About the VBA DATEVALUE
The following things must be remembered while using the DateValue function in Excel VBA
- Run time error 13 with message Type Mismatch is displayed when the date provided to the DateValue function is not able to convert into a valid date. We need date is proper text format
- When we try to get the only date from the string argument with code ‘msgbox date (argument name)’, it displays the type mismatch error.
- We can see the output of the DateValue function without opening the VBA editor. It is done by clicking the command button and select the macro created for the respective program
- When DatePart is used to get the values, the appropriate format should be followed. Otherwise, it leads ‘run time error 5’ with message invalid procedure call or argument.