Q&A 17

ある月の第 1 日曜日が何日か調べる方法


日付を指定してその月の第一日曜日を求める方法として,計算式で調べる方法とDPLプログラムで調べる方法を解説します。

日付型項目に計算式を設定して調べる

計算式の例
$指定月:=[日付],
$月初曜日:=#曜日(#日付(#年($指定月),#月($指定月),1)),
#日付(#年($指定月),#月($指定月),#剰余(7−$月初曜日,7)+1)
説明

上記の式を応用したDPLプログラムを使って調べる

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