DateAdd

[priorix]

DateAdd koduyla ilgili bi sorun yaşıyorum.

gün=ihtiyac/verim
If g&#252;n <= 0 Then
&#246;nertarih = DateAdd("d", 2, Now)
&#246;nertarih = [E2]
Else
&#246;nertarih = DateAdd("d", g&#252;n + 2, Now)
&#246;nertarih = [E2]
End If

g&#252;n de&#287;eri s&#305;f&#305;rdan k&#252;&#231;&#252;k ve e&#351;it olursa bug&#252;n&#252;n tarihine 2 g&#252;n eklesin ve &#246;yle yazs&#305;n, s&#305;f&#305;rdan b&#252;y&#252;kse bug&#252;n&#252;n tarihine g&#252;n de&#287;eri + 2 g&#252;n eklesin istiyorum. ama olmuyor yard&#305;mc&#305; olursan&#305;z sevinirim.

 

[veyselemre]

gün=ihtiyac/verim
If gün <= 0 Then gün=0
önertarih = DateAdd("d", gün + 2, Now)

[E2]=önertarih 'bulduğunuz sonuç E2 ye yazılır, sizin yazdığınız şekilde önertarih kısmına yeniden E2 deki değeri atıyorsunuz.

 

[hamitcan]

Aşağıdaki gibi bir şey mi?

Sub tarih()
ihtiyac = 0
verim = 1
gün = ihtiyac / verim
If gün <= 0 Then
[E2] = DateSerial(Year(Now), Month(Now), 2)
Else
[E2] = DateSerial(Year(Now), Month(Now), Day(Now) + 2)
End If
End Sub

 

[priorix]

teşekkürler arkadaşlar hallettim..