1 - "KALAN ZAMAN" metin kutusu silin
yeni bir metin kutusu oluşturun
adını KALAN_ZAMAN yapın
adı dışında hiç bir özelliğini değiştirmeyin
2 - formu seçin --> olaylar sekmesi
süre ölçer aralığı=1000
zaman dolduğunda olayına aşağıdaki kodu yazın
TSaniye = DateDiff("s", Time(), [BİTİŞ SAATİ])
LngSaniye = TSaniye Mod 60
LngDakika = (TSaniye \ 60) Mod 60
Lngsaat = (TSaniye \ 3600) Mod 60
Me.KALAN_ZAMAN = IIf(Lngsaat > 0, Lngsaat & " Saat ", "") & _
IIf(LngDakika > 0, LngDakika & " Dakika ", "") & _
IIf(LngSaniye > 0, LngSaniye & " Saniye", "") & " kaldı"