کد نمایش ثانیه های گذشته از نیمه شب

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

به وسیله این تابع میتوان تعداد ثانیه هایی را که از نیمه شب میگذرد را محاسبه کرد.این تابع هیچ آرگومانی ندارد و نوع داده بازگشتی آن نیز از نوع Single(اعشاری) میباشد.

روی Form یک Label و یک Command قرار دهید و کد را داخل ماژول کد Command به این صورت بنویسید:

()  Private Sub Command1_Click

Label1.caption=timer

End Sub