Okuduğunuz kurallara uyarsanız, uygulamanız büyüdükçe daha rahat edersiniz.
Kod:
Private Sub başlama_saat_AfterUpdate()
Bitis_Hesapla
End Sub
Private Sub başlama_tarih_AfterUpdate()
Bitis_Hesapla
End Sub
Private Sub termin_süresi_AfterUpdate()
Bitis_Hesapla
End Sub
Private Sub Bitis_Hesapla()
Dim EklenecekSaat, EklenecekDakika
Dim BaslangicZamani As Date, BitisZamani As Date
If IsNull(Me.[başlama tarih]) Or IsNull(Me.[başlama saat]) Or IsNull(Me.[termin süresi]) Then
Me.[bitiş tarih] = Null
Me.[bitiş saat] = Null
Else
EklenecekSaat = Hour(Me.[termin süresi])
EklenecekDakika = Minute(Me.[termin süresi])
BaslangicZamani = CVDate((Me.[başlama tarih]) + (Me.[başlama saat]))
BitisZamani = DateAdd("h", EklenecekSaat, BaslangicZamani)
BitisZamani = DateAdd("n", EklenecekDakika, BitisZamani)
Me.[bitiş tarih] = DateValue(BitisZamani)
Me.[bitiş saat] = TimeValue(BitisZamani)
End If
End Sub
