کد نمایش دقیقه(Minute)

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

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

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

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

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

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

توجه کنید که در هنگام اجرای برنامه داخل Text Box مقدار زمان را قرار دهید. مثل:

23:30:59

که در هنگام نمایش عدد 30 به عنوان دقیقه  مشاهده میشود.