کدنمایش ماه(Month)

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

تابع Month با دریافت یک مقدار از نوع تاریخ، عددی بین 0تا12 را که بیانگرشماره ماه تاریخ مربوط است، باز میگرداند.

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

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

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

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