日付を指定してその月の第一日曜日を求める方法として,計算式で調べる方法とDPLプログラムで調べる方法を解説します。
$指定月:=[日付], |
構造 | コマンド | パラメータ |
---|---|---|
ダイアログ | '第1日曜日を求めたい年月を入力してください。!n例 「98/3」「98/3」',種別=入力,タイトル='月の指定' | |
IF $$BUTTON = 1 THEN | 代入 | $指定月 := #日付($$INPUTSTR) |
代入 | $月初曜日 := #曜日(#日付(#年($指定月),#月($指定月),1)) | |
代入 | $第一日曜 := #日付(#年($指定月),#月($指定月),#剰余(7−$月初曜日,7)+1) | |
ENDIF | ||
ダイアログ | #文字列($指定月,'yy年m月')+'の第一日曜日は'+ #文字列($第一日曜,'d日')+'です!',種別=了解,タイトル='第一日曜日' |