１日から３１日までの任意の日付をｎ日とします。ただし、１日を火曜日とします。
今までは、順処理（順番に実行する手順）の１行だけのプログラムです。
今度のプログラムは一行ではできません。２行ないし３行の順処理になるでしょう。
１日が"火曜日"ですから２日は"水"、３日は"木"、４日は"金"、５日は"土"、６日は
"日"、７日は"月"となります。
したがって、n日目を７で割った時の余り（０から６）を使う事が考えられます。
そこで、次のようなマクロを書きます。
① function prog5(n as integer) as variant
② dim ri as integer
dim wk as variant
③ wk="月火水木金土日"
④ ri = n mod 7
⑤ prog5=mid(wk,ri+1,1)
⑥ end function
②は余りを計算するための変数です。n日を７で割った時の余りは、０から６までの整数（integer）の値をとります。
③は曜日の文字列（variant）です。④はnを７で割った時の余り（mod関数）を求めます。⑤は曜日の文字列からri+１
番目から１文字抽出(mid関数)します。nが１日だったらriは１、mid(wk,1+1,1)となり、"火"を文字列から抽出します。
日付と曜日の対応は１日から７日までは
(1,2,3,4,5,6,7:火,水,木,金,土,日,月)で、８日から１４日は
(8,9,10,11,12,13,14:火,水,木,金,土,日,月)となり、この繰り返しです。そこで、曜日の文字列"火水木金土日月"に注目して
ひ日と曜日の対応を考えてみましょう。そうです、１日から７日までは曜日の文字列の１番目から７番目に対応しています。
それでは、８日から１４日まではどうでしょう。１週間は７日目ごとの繰り返しですから、８日から１４日を７で割った余り
は1,2,3,4,5,6,0となり、初めの１日、２日、…、７日までと同じになります。