Kod:
<%
IsleminBaslamaTarihi = #7/9/2001#
BirOcak = #1/1/2001#
BirOcakGunu = WeekdayName(Weekday(BirOcak))
IlkPazartesi = BirOcak
For a = 0 To 7
If BirOcakGunu = "Monday" Or BirOcakGunu = "Pazartesi" Then
BaslangicGunumuz = IlkPazartesi
Exit For
End If
IlkPazartesi = BirOcak + a
Next
GunFarki = IsleminBaslamaTarihi - IlkPazartesi
KacPazartesiGerideKaldi = GunFarki \ 7
HerPazartesiArtacakOlanDegiskenimiz = KacPazartesiGerideKaldi
Response.Write HerPazartesiArtacakOlanDegiskenimiz
%>