#5
Private Sub Komut12_Click()
Dim tarih, deger As Date
tarih = TedbirBaslamaTarihi
deger = TedbirSuresi
If TedbirErkenBitisTarihi.Value = Null Then
TedbirBitisTarihi = DateAdd("d", deger, tarih)
Else
TedbirBitisTarihi = TedbirErkenBitisTarihi
End If
End Sub| Bu Konudaki Yorumlar |
|
Cvp: if&else - Yazar: Coskun0559 - 11/05/2011, 18:03
Cvp: if&else - Yazar: ercansahin - 11/05/2011, 23:18
Cvp: if&else - Yazar: saslan33 - 12/05/2011, 09:42
Cvp: if&else - Yazar: erdem23 - 12/05/2011, 18:06
Cvp: if&else - Yazar: saslan33 - 12/05/2011, 20:30
Cvp: if&else - Yazar: Hayri16 - 12/05/2011, 20:43
Cvp: if&else - Yazar: saslan33 - 13/05/2011, 13:26
Cvp: if&else - Yazar: benremix - 13/05/2011, 21:32
Cvp: if&else - Yazar: ercansahin - 14/05/2011, 23:32
|
