تاریخ و زمان - DateِDiff در اکسل

تابع DateDiff () اختلاف فاصله زمانی مشخص بین دو تاریخ ارائه شده را برمی گرداند.

قالب: DateDiff (فاصله ، تاریخ 1 ، تاریخ 2 [، اولین روز از هفته [، اول هفته آینده]])

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

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

     Date1
         اجباری
         نوع: تاریخ
         Date1 ، یکی از تاریخ هایی که باید تفاوت آن محاسبه شود

     Date2
         اجباری
         نوع: تاریخ
         Date2 ، یکی از تاریخ هایی که باید تفاوت آن محاسبه شود

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

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 FnDateDiff()
    Dim strDateOne
    Dim strDateTwo
    strDateOne = CDate("June 24, 2012")
    strDateTwo = CDate("June 25, 2013")
    strDayDiff = "Days difference is " & DateDiff("d", strDateOne, strDateTwo)
    strMonthDiff = "Months difference is " & DateDiff("m", strDateOne, strDateTwo)
    strYearDiff = "Years difference is " & DateDiff("yyyy", strDateOne, strDateTwo)
    strQuaterDiff = "Quaters difference is " & DateDiff("q", strDateOne, strDateTwo)
    strHoursDiff = "Hours difference is " & DateDiff("n", strDateOne, strDateTwo)
    strMintuesDiff = "Minutes difference is " & DateDiff("n", strDateOne, strDateTwo)
    strSecondsDiff = "Seconds difference is " & DateDiff("s", strDateOne, strDateTwo)
    MsgBox strDayDiff & vbCrLf & strMonthDiff & vbCrLf & strYearDiff & vbCrLf & strQuaterDiff & vbCrLf & strHoursDiff & vbCrLf & strMintuesDiff & vbCrLf & strSecondsDiff
End Function