کد نمایش ثانیه(Second)

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

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

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

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

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

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

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

23:30:59

که در هنگام نمایش عدد 59 به عنوان ثانیه مشاهده میشود.