פונקציית CDATE ב- VBA
VBA CDATE היא פונקציית המרת סוג נתונים הממירה סוג נתונים שהוא טקסט או מחרוזת לסוג נתונים תאריך. ברגע שהערך הומר לסוג נתונים תאריך נוכל לשחק עם דברים תאריכים.
תחביר של CDATE
להלן התחביר של פונקציית CDATE ב- VBA.
ביטוי: ביטוי יכול להיות מחרוזת או ערך טקסט או משתנה המכיל ערך להמרה לסוג נתוני התאריך.
CDATE מזהה את פורמט התאריך והשעה במחשב עליו אנו עובדים וממיר את הערך המסופק לאותו סוג נתוני תאריך. אם אתה מספק רק יום וחודש ומתעלם משנה, אז פונקציית CDATE לוקחת את שנת המערכות, ומוצגת יחד עם היום והחודש שסופקו.
נראה עוד ועוד דוגמאות בסעיף להלן.
כיצד להשתמש בפונקציה CDATE ב- Excel VBA?
דוגמאות לתפקוד CDATE ב- Excel vba.
ניתן להוריד תבנית VBA CDATE Excel זו כאן - תבנית VBA CDATE Excelדוגמה מס '1
לפני שאראה לך את הדוגמה של CDATE, הסתכל תחילה על הקוד שלמטה.
קוד:
תת CDATE_Example1 () התעמעם k כמחרוזת k = "25-12" MsgBox k סוף משנה
באמור לעיל עבור המשתנה "k", הקצתי את הערך כ- 25-12 ". כשאני מבצע קוד זה נראה אותו ערך בתיבת ההודעות ב- VBA.
אך ניתן להמיר זאת לתאריך באמצעות פונקציית VBA CDATE. לשם כך הגדירו משתנה אחד נוסף כ- Date.
קוד:
עמום k1 כתאריך
עבור משתנה זה "k1" הקצה פונקציית CDATE וספק את המשתנה "k" המחזיק את המחרוזת "25-12". ועבור תיבת ההודעות הראה את הערך המשתנה של "k1" במקום "k".
קוד:
k1 = CDate (k)
כעת הפעל את הקוד וראה את התוצאה בתיבת הודעה.
אז התוצאה היא "25/12/2019".
בדוק היטב את הערך שסיפקנו, סיפקנו "25-12" שלא סיפקנו שנה.
בעת כתיבת מאמר זה השנה הנוכחית במערכת שלי הייתה 2019, אז VBA CDATE המיר את ערך המחרוזת "25-12" עד היום והוסיף לה את שנת המערכת 2019. אז התוצאות הסופיות נקראות כך 25/12/2019 כלומר 25 בדצמבר 2019.
דוגמה מס '2
כעת, עיין בקוד שלמטה.
קוד:
משנה CDATE_Example2 () התעמעם k כמשתנה עמעום kResult כתאריך k = 43889 kResult = CDate (k) MsgBox kResult סוף משנה
בקוד הנ"ל עבור המשתנה "k", יישמתי את המספר "43889". כולנו יודעים שמדובר במספר סידורי אך עבור משתנה אחר "KResult" המירו ערך זה לתאריך באמצעות הפונקציה "CDATE".
אותה תוצאה של המשתנה "kResult" המוצג בתיבת ההודעות.
הפעל את הקוד וראה את הקסם של הפונקציה "CDATE".
זה מראה את התוצאה כ- “28.2.2020”, אם אינך מכיר תאריכים מצטיינים אז אתה בטח תוהה איך זה קרה.
לדוגמה, הזן את אותו המספר (43889) באחד התאים בגיליון האלקטרוני.
לשם כך יש להחיל את הפורמט כ- "DD-MM-YYYY".
כעת לחץ על אישור וראה את התוצאה.
כעת התוצאה השתנתה ממספר סידורי עד היום. מכיוון שהחלנו את פורמט התאריך בראש המספר הסידורי הוא הראה את התאריך המתאים.
אז זה אומר שהמספר הסידורי 43889 שווה לתאריך 28-02-2020.
אז בקוד ה- VBA הפונקציה CDATE ביצעה את אותו הדבר על ידי המרת ערך המחרוזת לסוג נתונים תאריך.
דוגמה מס '3
לדוגמא זו עיין בקוד שלהלן.
Sub CDATE_Example3() Dim Value1 Dim Value2 Dim Value3 Value1 = "December 24, 2019" Value2 = #6/25/2018# Value3 = "18:30:48 PM" MsgBox CDate(Value1) MsgBox CDate(Value2) MsgBox CDate(Value3) End Sub
When we run this code we will get the below results.
So, all the values are converted to the date data type with the CDATE function.
Things to Remember
- CDATE converts only numbers and string values to the date data type.
- This is useful when we use it with other functions.
- If the wrong data type value is supplied then we will get type mismatch error.
- Since date and time are part of serial number it converts time as well as proper time.