کد نمایش ساعت(Hour)

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

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

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

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

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

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

توجه کنید که در هنگام اجرای برنامه داخل Text Box مقدار زمان را قرار دهید. مثل:
23:30:59
که در هنگام نمایش عدد 23 به عنوان ساعت مشاهده میشود.