/ תאריך ושעה של

תאריך ושעה של

שנה, חודש, יום של תאריך | תאריך הוספה | תאריך ושעה נוכחיים | שעה, דקה, שנייה | ערך זמן

למד כיצד לעבוד תאריכים וזמנים in Excel VBA.

הצב לחצן פקודה בגליון העבודה והוסף את שורות הקוד להלן. כדי להפעיל את שורות הקוד, לחץ על לחצן הפקודה בגיליון.

שנה, חודש, יום של תאריך

המאקרו הבא מקבל את שנת התאריך. כדי להכריז על תאריך, השתמש בהצהרת ה- Dim. כדי לאתחל תאריך, השתמש בפונקציה DateValue.

קוד:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

תוצאה:

שנה של תאריך ב- Excel VBA

הערה: השתמש בחודש ויום כדי לקבל את החודש והיום של תאריך.

תאריך הוספה

כדי להוסיף מספר ימים לתאריך, השתמש ב-הפונקציה DateAdd. לפונקציה DateAdd יש שלושה ארגומנטים. מלאו את "d" עבור הארגומנט הראשון כדי להוסיף ימים. מלאו 3 עבור הארגומנט השני כדי להוסיף 3 ימים. הארגומנט השלישי מייצג את התאריך שבו יתווספו מספר הימים.

קוד:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

תוצאה:

תאריך הוספה

הערה: שנה את "d" ל- "m" כדי להוסיף מספר חודשים לתאריך. הצב את הסמן על תאריך הוספה בעורך Visual Basic ולחץ על F1 לקבלת עזרה במפרטים המרווחים האחרים. התאריכים הם בפורמט ארה"ב. חודשים הראשון, ימים שני. סוג זה של פורמט תלוי בהגדרות האזוריות של Windows.

תאריך ושעה נוכחיים

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

קוד:

MsgBox Now

תוצאה:

תאריך ושעה נוכחיים

שעה, דקה, שנייה

לקבל את השעה של פעם, להשתמש בפונקציה שעה.

קוד:

MsgBox Hour(Now)

תוצאה:

שעה של הזמן הנוכחי

הערה: השתמש ב- Minute ו- Second כדי לקבל את הדקה והשניה של פרק זמן.

ערך זמן

הפונקציה TimeValue ממירה מחרוזת למספר סידורי. המספר הסידורי של הזמן הוא מספר בין 0 ל -1. לדוגמה, צהריים (באמצע היום) מיוצג כ- 0.5.

קוד:

MsgBox TimeValue("9:20:01 am")

תוצאה:

ערך זמן

עכשיו, כדי לראות בבירור כי Excel מטפל פעמים פנימי כמו מספרים בין 0 ל 1, להוסיף את השורות הבאות קוד:

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

תוצאה:

זמן סידורי

קרא גם: