کد نمایش روز(Day)

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

تابع Day یک مقدار از نوع تاریخ را دریافت کرده و یک عدد بین 1تا31 به عنوان شماره روز باز میگرداند.

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

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

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

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