arkadaşlar öncelikle teşekkürler çok yardımcı oluyorsunuz, örnek programı ekte gönderiyorum, yardımcı olursanız memnun olurum, ACİLLLL
If Me.HacizTarihi >= DateAdd("d", CInt(İtirazSüresi), Me.ÖdemeEmriTebliğTarihi) Then
Me.KesinHacizTarihi = Me.HacizTarihi
Else
Me.KesinHacizTarihi = DateAdd("d", CInt(İtirazSüresi), Me.ÖdemeEmriTebliğTarihi)
End If
uygulaması ile;
Dim TarihBelirle As Date
Dim GunBelirle As Integer
TarihBelirle = Me.ÖdemeEmriTebliğTarihi + İtirazSüresi
Gun
|