Zaman fonksiyonlarını kullanarak geliştirilmiş kucuk bir Visual basic uygulamasıdır. Uygulama başalama ve bitiş zamanını gosteren ve bunların arasındaki farkı bulan bir programdır. Visual Basic'de yeni bir proje başlatın. Form uzerine 2 tane buton yerleştirin. Bunlardan birinin başlatma ve digerinide sonlandırma olarak kullanacağız. Ekran uzerinede 3 tane textbox yerleştirelimki bunlarda da başlangıc , bitiş ve gecen zamanı gosterebilelim. From'un general declarations kısmında aşağıdaki kodu girin.


Dim BasAni As Variant
Dim durAni As Variant
Dim GecenSure As Variant

Yukarıda programda kullancağımız değişkenleri tanımlıyoruz.

Daha sonra başlat dugmesinin click event'ine aşağıdaki kodu giriniz.

Private Sub DugBas_Click()
BasAni = Now
metBas.Text = Format(BasAni, "hh:mm:ss")
metDur.Text = ""
metSure = ""
End Sub


Durdur dugmesinin click event'ine aşağıdaki kodu giriniz.

Private Sub DugDur_Click()
durAni = Now
GecenSure = durAni - BasAni
metDur.Text = Format(durAni, "hh:mm:ss")
metSure.Text = Format(GecenSure, "hh:mm:ss")
End Sub
__________________