کد نمایش سال(Year)

با استفاده از تابع Year

این تابع یک عبارت رشته ای، تاریخی، عددی یا ترکیبی(Variant) را که حاوی داده ای از نوع تاریخ است،دریافت کرده و مقدار سال را به صورت یک عدد صحیح بازگشت میدهد.

در Form یک Command ,یک Label ,و یک Text Box قرار دهید و کد زیر ا در ماژول کد Command بنویسید:

Private Sub Command1_Click()
e = Text1.Text
r = Year(e)
Label1.Caption = (r)
End Sub

و یا با استفاده از دستور Print کد را به صورت زیر تغییر دهید:

Private Sub Command1_Click()
e = Text1.Text
r = Year(e)
Print r
End Sub