عملکرد ماه به عنوان یک پارامتر طول می کشد و یک عدد را بین 1 تا 12 باز می گرداند ، یعنی همان تاریخ ارائه شده است.
قالب : Month(strDate)
استدلال:
StrDate
اجباری
نوع: تاریخ
تاریخ ، که ماه آنها نیاز به محاسبه دارد.
Function FnMonth() Dim strDate strDate = "15-July-2013" MsgBox "Month of the " & strDate & " is -> " & Month(strDate) End Function
تابع MonthName مقدار عددی را به عنوان پارامتر در نظر گرفته و نام ماه را برمی گرداند.
قالب: MonthName (intMonth [، blnAbbreviate])
قالب: MonthName (intMonth [، blnAbbreviate])
Day
اجباری
نوع: عددی
مقدار 1 تا 12 ، که نام ماه آن باید محاسبه شود. مانند MonthName (3) "مارس" برمی گردد
اجباری
نوع: عددی
مقدار 1 تا 12 ، که نام ماه آن باید محاسبه شود. مانند MonthName (3) "مارس" برمی گردد
blnAbbreviate
اختیاری
نوع: بولی
مقدار واقعی نام ماه را به طور خلاصه ارائه می دهد ، برای مثال "ژوئیه" به اختصار "ژوئیه" خلاصه می شود. مقدار پیش فرض نادرست است
اختیاری
نوع: بولی
مقدار واقعی نام ماه را به طور خلاصه ارائه می دهد ، برای مثال "ژوئیه" به اختصار "ژوئیه" خلاصه می شود. مقدار پیش فرض نادرست است
Function FnMonthName() Dim strDate Dim strResult strDate = "15-07-2013" strResult = "Full Month Name of the " & strDate & " is -> " & MonthName(Month(strDate)) & vbCrLf strResult = strResult & "Abbriviated Month Name of the " & strDate & " is -> " & MonthName(Month(strDate), True) MsgBox strResult End Function
تابع Year به عنوان یک پارامتر از تاریخ استفاده می کند و یک عدد را نشان می دهد که سال را نشان می دهد.
قالب: Year (StrDate)
استدلال:
StrDate
اجباری
نوع: تاریخ
تاریخ ، که سال نیاز به محاسبه دارد.
استدلال:
StrDate
اجباری
نوع: تاریخ
تاریخ ، که سال نیاز به محاسبه دارد.
Function FnYear() Dim strDate strDate = "15-July-2013" MsgBox "Year of the " & strDate & " is -> " & Year(strDate) End Function
ورود به سایت