掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphiにて祭日を取得するには？ (ID：11218)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
成人の日 １月の第２月曜日 春分の日 春分日 海の日 ７月の第３月曜日 敬老の日 ９月の第３月曜日 秋分の日 秋分日 体育の日 １０月の第２月曜日 祝日が固定されていないのは上記６日と、 「第３条 「国民の祝日」は、休日とする。 ２ 「国民の祝日」が日曜日にあたるときは、その翌日を休日とする。 ３ その前日及び翌日が「国民の祝日」である日（その日が日曜日にあたる日及び前項に規定する休日にあたる日を除く。）は、休日とする。」 に該当する日ですね（５月４日と秋分日が水曜日ならば、前日の火曜日。かな？）。 春分日と秋分日は下記で計算できるようです。参考まで。 //---------------------------------------------- //春分日の計算(2099年まで) function TForm1.Shunbun(Y: integer): integer; var S1,S2:single; begin S1:=(Y-2000)*0.242194; S2:=trunc((Y-2000)/4); result:=trunc(20.69115+S1-S2); end; //---------------------------------------------- //秋分日の計算(2099年まで) function TForm1.Shubun(Y: integer): integer; var S1,S2:single; begin S1:=(Y-2000)*0.242194; S2:=trunc((Y-2000)/4); result:=trunc(23.09+S1-S2); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.