05/09/2009, 16:31
Puletin
Bu kodu İlgili alanlara yazarak bir deneyiniz Lütfen
PHP Kod:
On Error Resume Next
Dim SURE As Date
SURE = DateAdd("n", -15, Bitiş_Zamanı)
Me.Aktif_Süre = Me.Başlangıç_Zamanı - SURE
Exit Sub
End Sub