Kod:
Dim Tarih1 As Date
Dim Mesaj As String
Kod:
Tarih1 = "01.01.2009"
Kod:
Tarih2 = "11.01.2009"
Kod:
Mesaj = DateDiff("ww", Tarih1, Tarih2)
Msg penceresi ile tarih1'den tarih2'ye kadar olan haftaları saydıralım ve ekrana getirelim.
Kod:
MsgBox Mesaj & "Haftadır."
Görmedim. Sayın eşrefigit çok daha kolay bir yöntemle yapmış. Ama benim örnekte tarih aralığı saydırıldığı için belki farklı amaçlarda işe yarayabilir. Mesela farklı yıllardan tarihler yazsanız da arada kaç haftsa olduğunu sayacaktır. Belki o da başka bir işe yarar..