تحلیل الگوریتم یه برنامه

['برنامه نویس']

سلام بچه ها .
برنامه زیر طوری عمل میکنه که با گرفتن سال و ماه و روز مورد نظر(شمسی)میگه که اون تاریخ چند شنبه است.البته برنامه به زبن ویبی اسکریپته ولی برای من مهم اینه که الگوریتم و نحوه کلی ان را بفهمم. لطفا اگه سر در اوردید ازش به ما هم بگید چه جوری کار میکنه.با تشکر.

<SCRIPT language=vbscript id=clientEventHandlersVBS>
<!--

Sub Button1_onclick
y=text1.value
m=text2.value
d=text3.value
l = y Mod 28
f = ((l \ 4) + l + 1) Mod 7
If m<7 Then
 s = ((((m - 1) * 31) + d) Mod 7) + f - 1
Else
 s = ((((m - 7) * 30) + d + 4) Mod 7) + f - 1
End If
q = (s + 7) Mod 7
if q=0 then
MsgBox "شنبه"
end if
if q=1 then
MsgBox "يك شنبه"
end if
if q=2 then
MsgBox "دو شنبه"
end if
if q=3 then
MsgBox "سه شنبه"
end if
if q=4 then
MsgBox "چهار شنبه"
end if
if q=5 then
MsgBox "پنج شنبه"
end if
if q=6 then
MsgBox "جمعه"
end if
End Sub

-->
</SCRIPT>

اینم وبلاگه اون اقاست:
http://chandshanbeh.blogfa.com