[Delphi] 修正ユリウス通日と年月日の変換: プログラミングの覚え書き
uses Math; //年月日から修正ユリウス通日へ function YMD2MJD(y,m,d:Integer):Integer; begin if (m = 1) or (m = 2) then begin y:=y-1; m:=m+12; end; //フリーゲルの公式 Result:=Floor(365.25*y) + (y div 400) - (y div 100) + Floor(30.59*(m-2)) + d -678912; end; //修正ユリウス通日から年月日へ procedure MJD2YMD(mjd:Integer; var y,m,d:Integer); var k:Integer; begin y := Floor( (mjd - 15078.2) / 365.25 ); m := Floor((mjd - 14956.1 - Floor(y*365
![[Delphi] 修正ユリウス通日と年月日の変換: プログラミングの覚え書き](https://cdn-ak-scissors.b.st-hatena.com/image/square/74a9a3ba634f4197500c8c44c9cb6f76ff0d1cd3/height=288;version=1;width=512/http%3A%2F%2Fkwikwi.cocolog-nifty.com%2F.shared-pleasy%2Fnifty_managed%2Fimages%2Fweb%2Fogp%2Fdefault.png)
グレゴリオ暦／ユリウス暦 ⇔ ユリウス日 (または一般の通算日数) 変換アルゴリズム
●お知らせ グレゴリオ暦／ユリウス暦計算用Ｃ言語のソースコード・ ライブラリ Calendrier を販売しています． (\1,000 (個人用ライセンス) ほか) Calendrier リファレンス (Ver.1.0) 公開しました． このページの主な更新は Blog でお知らせします． このページでは， グレゴリオ暦またはユリウス暦の日付と，ユリウス日などの通算日数 (通日) を相互変換するアルゴリズムについて説明する． これらは1989年頃に自分で考えたアルゴリズムを再度整理したものである． 一応「ユリウス日」と書いてはいるが，これは通算日数の代表として挙げているだけであり， 基準日注１ (通算日数の第０日とする日付，epoch) は自由に選択できるので，ユリウス日 (Julian Day，JD) や 修正ユリウス日 (Modified JD, MJD) 以外にもさまざまな通算日数を
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
