הפונקציה DatePart

החזרת משתנה (‏מספר שלם) המכיל את החלק שצוין של תאריך נתון.

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

תחביר

DatePart ( מרווח זמן, תאריך [, firstdayofweek] [, firstweekofyear] )

תחביר הפונקציה DatePart מכיל את הארגומנטים הבאים:

ארגומנט

תיאור

interval

נדרש. ביטוי מחרוזת שהוא מרווח הזמן שברצונך להחזיר.

date

נדרש. ערך משתנה (תאריך) שברצונך להעריך.

firstdayofweek

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

firstweekofyear

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

הגדרות

הארגומנט ' מרווח זמן ' כולל הגדרות אלה:

הגדרה

תיאור

yyyy

שנה

q

רבעון

m

חודש

y

יום בשנה

d

יום

W

Weekday

ww

שבוע

H

שעה

n

דקה

s

שניה

הארגומנט firstdayofweek כולל את ההגדרות הבאות:

קבוע

ערך

תיאור

vbUseSystem

0

השתמש בהגדרה API של NLS.

vbSunday

1

יום ראשון (ברירת מחדל)

vbMonday

2

שני

vbTuesday

3

Tuesday

vbWednesday

4

רביעי

vbThursday

5

חמישי

vbFriday

6

שישי

vbSaturday

7

שבת

הארגומנט firstweekofyear כולל את ההגדרות הבאות:

קבוע

ערך

תיאור

vbUseSystem

0

השתמש בהגדרה API של NLS.

vbFirstJan1

1

התחל עם השבוע שבו 1 בינואר מתרחש (ברירת מחדל).

vbFirstFourDays

2

התחל את השבוע הראשון הכולל לפחות ארבעה ימים בשנה החדשה.

vbFirstFullWeek

3

התחל עם השבוע המלא הראשון בשנה.

הערות

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

הארגומנט firstdayofweek משפיע על חישובים המשתמשים בסימני המרווח "w" ו-"ww".

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

הערה: עבור date, אם הגדרת המאפיין לוח שנה היא גרגוריאנית, התאריך המסופק חייב להיות גרגוריאני. אם לוח השנה הוא איסלמי, התאריך שסופק חייב להיות איסלמי.

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

דוגמאות של שאילתה

ביטוי

תוצאות

בחר DatePart ("yyyy", [DateofSale]) כNewDate מ-ProductSales;

הפונקציה מחזירה את ' Year ' של ערכי התאריך של השדה "DateofSale".

בחר DatePart ("q", [DateofSale]) כNewDate מ-ProductSales;

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

בחר DatePart ("y", [DateofSale]) כNewDate מ-ProductSales;

הפונקציה מחזירה את ' יום השנה ' (1 עד 365) של ערכי התאריך של השדה "DateofSale".

בחר DatePart ("d", [DateofSale]) כNewDate מ-ProductSales;

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

בחר DatePart ("w", [DateofSale]) כNewDate מ-ProductSales;

הפונקציה מחזירה את ' יום חול ' (מ-1 עד 7 כאשר 1 מייצג את יום ראשון) של ערכי התאריך של השדה "DateofSale".

בחר DatePart ("ww", [DateofSale]) כNewDate מ-ProductSales;

הפונקציה מחזירה את ' מספר השבוע ' (מ-1 עד 52) של ערכי התאריך של השדה "DateofSale".

בחר DatePart ("h", [DateTime]) כNewDate מ-ProductSales;

הפונקציה מחזירה את הערך ' שעה ' של ערכי התאריך של השדה "DateTime".

בחר DatePart ("n", [DateTime]) כNewDate מ-ProductSales;

הפונקציה מחזירה את ' דקות ' של ערכי התאריך של השדה "DateTime".

בחר DatePart ("s", [DateTime]) כNewDate מ-ProductSales;

הפונקציה מחזירה את ' שניות ' של ערכי התאריך של השדה "DateTime".

דוגמה של VBA

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.

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

Dim TheDate As Date    ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date:")
Msg = "Quarter: " & DatePart("q", TheDate)
MsgBox Msg

למידע נוסף

בחירת פונקציית התאריך המתאימה

שפר את הכישורים שלך ב- Office
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×