フリーソフト

« [Delphi] 起動引数を取得する | トップページ | [Delphi] 修正ユリウス通日と年月日の変換 »

[Delphi] 日付から曜日を計算する方法

y年m月d日の曜日(日曜が0、...、土曜が6)を求める方法です。
1月、2月は前年の13月、14月として計算します。

begin
 if (m = 1) or (m = 2) then begin
  y:=y-1;
  m:=m+12;
 end;
 Result:=(y + (y div 4) - (y div 100) + (y div 400) +((13*m+8) div 5) + d) mod 7;
end;

この式はZellerの公式というものです。
1582年10月15日(グレゴリオ暦施行日)以前については有効ではありませんのでご注意ください。

« [Delphi] 起動引数を取得する | トップページ | [Delphi] 修正ユリウス通日と年月日の変換 »

C++Builder」カテゴリの記事

日付時刻の処理」カテゴリの記事

コメント

この記事へのコメントは終了しました。