Tarihe istenilen sayıda iş günü eklemek...

[turgaykadiroglu]

Merhaba,
Varolan bir tarihe istenilen sayıda iş günü ilave ettiğimde elde edilecek yeni tarihi form üzerinde görüntülemek istiyorum. Fonksiyonlarla çözmeye çalışıyorum, şimdiden teşekkürler.

Örnek:
Tarih
19.11.2007

eklenecek iş günü
8

sonuç

29.11.2007

 

[turgaykadiroglu]

VBA Çözüm

fonksiyon yazarak problemi çözdüm. Ancak varolan fonksiyonlarla çözümünü bilen varsa harika olur ..

--------------------------------

Public Function calismagunleri(ilk_tarih As Date, artim As Long)
Dim yeni_tarih As Date

yeni_tarih = ilk_tarih

Do While (artim > 0)
yeni_tarih = DateAdd("d", 1, yeni_tarih)
artim = artim - 1
If (Weekday(yeni_tarih, vbMonday) = 6) Then
yeni_tarih = DateAdd("d", 2, yeni_tarih)

ElseIf (Weekday(yeni_tarih, vbMonday) = 7) Then
yeni_tarih = DateAdd("d", 1, yeni_tarih)
End If
Loop
calismagunleri = yeni_tarih
End Function

------------------------------------