تاریخ و زمان - DatePart در اکسل

تابع DatePart بخشی از تاریخ معین را بر اساس پارامترهای ارائه شده برمی گرداند.

قالب: DatePart (فاصله ، تاریخ [، نخستین روزه [، اولین هفته]])

استدلال:
     فاصله
         اجباری
         نوع: عبارت رشته
         بازه زمانی که شما می خواهید بخشی از تاریخ معین باشد

Setting	Description
Yyyy	Year
Q	Quarter
M	Month
Y	Day of year
D	Day
W	Weekday
Ww	Week
H	Hour
N	Minute
S	Second

      تاریخ
         اجباری
         نوع: تاریخ
         تاریخ کدام قسمت محاسبه می شود

     نخستین روز
         اختیاری
         نوع: عددی ، متن
         روز اول هفته را به طور پیش فرض مشخص کنید: یکشنبه

Constant	Value	Description
vbUseSystem	0	Use the NLS API setting.
vbSunday	1	Sunday (default)
vbMonday	2	Monday
vbTuesday	3	Tuesday
vbWednesday	4	Wednesday
vbThursday	5	Thursday
vbFriday	6	Friday
vbSaturday	7	Saturday

اول هفته
     اختیاری
     نوع: عددی ، متن
     هفته اول هفته را مشخص کنید.

Constant	Value	Description
vbUseSystem	0	Use the NLS API setting.
vbFirstJan1	1	Start with week in which January 1 occurs (default).
vbFirstFourDays	2	Start with the first week that has at least four days in the new year.
vbFirstFullWeek	3	Start with first full week of the year.

Function FnDatePart()
    Dim strDate    
    strDate = Now    
    strDayPart = "Days Part of current date time is " & DatePart("d", strDate)
    strMonthPart = "Months Part of current date time is " & DatePart("m", strDate)
    strYearPart = "Years Part of current date time is " & DatePart("yyyy", strDate)
    strQuaterPart = "Quaters Part of current date time is " & DatePart("q", strDate)
    strHoursPart = "Hours Part of current date time is " & DatePart("h", strDate)
    strMintuesPart = "Minutes Part of current date time is " & DatePart("n", strDate)
    strSecondsPart = "Seconds Part of current date time is " & DatePart("s", strDate)
    MsgBox strDayPart & vbCrLf & strMonthPart & vbCrLf & strYearPart & vbCrLf & strQuaterPart & vbCrLf & strHoursPart & vbCrLf & strMintuesPart & vbCrLf & strSecondsPart      
End Function