getNthWeekday

構文
getNthWeekday( 週, 曜日, [日付] )
引数
月何週目かを数値で指定
曜日
0:日曜~6:土曜で数値を指定
日付
求めたい日付の月を指定。省略した場合当月。
戻値
指定年月の第n週w曜日の日付を返します。

プログラム

//////////////////////////////////////////////////
// 【引数】
//   週 : 月何週目かを数値で指定 
//   曜日 : 0:日曜~6:土曜で数値を指定 
//   日付 : 求めたい日付の月を指定。省略した場合当月。 
// 【戻値】
//   指定年月の第n週w曜日の日付を返します。 
//////////////////////////////////////////////////
FUNCTION getNthWeekday(n, w, date = EMPTY)
	GETTIME(0, date)
	d = 1 - G_TIME_DD
	GETTIME(d, date)
	w = w - G_TIME_WW
	d = d + w + ((w < 0) + n - 1) * 7
	GETTIME(d, date)
	RESULT = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2
FEND