//キム・ラーセンは、週の判定日の日付に基づいて計算されます
ボイドCalculateWeekDay （int型Y、INT M、INT d）は{
IF（M == 1 || M == 2）M + = 12、y--。
INT iWeek =（D + 2 * M + 3 *（M + 1）/ 5 + Y +のY / 4-Y / 100 + Y / 400）％7。
スイッチ（iWeek）{
ケース0：のprintf（"月曜日\ N-"）; BREAK;
ケース1：のprintf（"火曜日\ N-"）; BREAK;
ケース2：のprintf（"水曜日\ N-"）; BREAK;
ケース3：のprintf（"木曜日\ N-"）; BREAK;
ケース4：のprintf（"金曜日\ N-"）; BREAK;
ケース5：のprintf（"土曜日\ N-"）; BREAK;
ケース6：のprintf（"日曜日\ N-"）; BREAK;
}
}
それはその後、2004年1月10日に変換されている場合：：どこで：1月と2月3月4月で10と11のように、昨年例えば2003-13-10式に代入します