YMDToJD関数
本ページには広告が含まれています。
- 日付
- グレゴリオ暦
- ユリウス日
グレゴリオ暦をユリウス日に変換します。西暦1582年10月15日以降の日時を指定してください。
- 構文
- YMDToJD( year, month, day, hour, minute, second )
- 引数
- year
必須
- 年
- month
必須
- 月
- day
必須
- 日
- hour
省略可
- 時
- minute
省略可
- 分
- second
省略可
- 秒
- 戻り値
- ユリウス日
プログラム
プログラム実行例
月齢計算
使用関数
- DIM （1, 2, 3, 4, 7, 8, 9, 10行目）
- ローカル変数を宣言します。
- today関数 (自作関数) （1, 2, 3, 4行目）
- 今日の日付を返します。
- getYear関数 (自作関数) （2行目）
- 指定された日付の年を返します。
- getMonth関数 (自作関数) （3行目）
- 指定された日付の月を返します。
- getDay関数 (自作関数) （4行目）
- 指定された日付の日を返します。
- getEndOfMonth関数 (自作関数) （4行目）
- dateで指定された月の月末日を取得します。
- FOR-TO文 （6, 7, 8, 9, 10, 11, 12行目）
- 条件が真の間、処理を繰り返し実行します。途中でループを抜けたいときはBREAK文を使います。
- saku関数 (自作関数) （7行目）
- 指定したユリウス日の直前の朔を求めます。
- YMDToJD関数 （7行目）
- グレゴリオ暦をユリウス日に変換します。
- JDToYMD関数 (自作関数) （8行目）
- ユリウス日をグレゴリオ暦に変換します。
- text関数 (自作関数) （9, 10行目）
- 数値を表示書式に基づいて変換した文字列を返します。
- PRINT文 （11行目）
- UWSC.LOGにログを出力します。
- ROUND関数 （11行目）
- 指定した位置で偶数丸めした値を返します。
- dateDiff関数 (自作関数) （11行目）
- 指定された２つの日付の時間間隔を返します。
指定した日付の直前の朔の日時を求める
今年の穀雨の日付を求める
穀雨は太陽黄経30度なので、翌年1月1日から直前の中気を太陽黄経が30度になるまで繰り返す。
使用関数
- GETTIME関数 （1行目）
- 日付、時間を取得します。
- DIM （2, 3, 4, 7, 8行目）
- ローカル変数を宣言します。
- REPEAT文 （6, 7, 8, 9, 10, 11, 12行目）
- ループ処理を行います。ループの終わりに条件判定を行うので、最低1度は処理が実行されます。後判定。
- ROUND関数 （12行目）
- 指定した位置で偶数丸めした値を返します。
- chuki関数 (自作関数) （7行目）
- 指定したユリウス日の直前の中気を求めます。
- YMDToJD関数 （7行目）
- グレゴリオ暦をユリウス日に変換します。
- JDToYMD関数 (自作関数) （8行目）
- ユリウス日をグレゴリオ暦に変換します。
- PRINT文 （14行目）
- UWSC.LOGにログを出力します。
- 特殊文字 （2行目）
今年の十五夜の日付を求める
使用関数
- GETTIME関数 （1行目）
- 日付、時間を取得します。
- DIM （2, 3, 4, 7, 8, 12行目）
- ローカル変数を宣言します。
- REPEAT文 （6, 7, 8, 9, 10, 11, 12, 13行目）
- ループ処理を行います。ループの終わりに条件判定を行うので、最低1度は処理が実行されます。後判定。
- saku関数 (自作関数) （7行目）
- 指定したユリウス日の直前の朔を求めます。
- YMDToJD関数 （7行目）
- グレゴリオ暦をユリウス日に変換します。
- JDToYMD関数 (自作関数) （8行目）
- ユリウス日をグレゴリオ暦に変換します。
- getKyureki関数 (自作関数) （12行目）
- 西暦から旧暦を求めます。
- RESIZE関数 (スクリプト関数) （15行目）
- 配列の上限値を取得または変更します。配列の上限値を変更する場合は第二引数に値を指定します。
- （16行目）
- 指定した配列の要素にコールバック関数を適用する。
- JOIN関数 (スクリプト関数) （17行目）
- 配列の中身を区切り文字で結合し、文字列として返します。
- PRINT文 （18行目）
- UWSC.LOGにログを出力します。
- dateAdd関数 (自作関数) （18行目）
- 日時に、指定した単位の時間を加算して返します。
- 特殊文字 （2行目）
今年の春彼岸の日付を求める
翌年1月1日の直前の太陽黄経0度の日付（春分の日）を求め、その日を中日とする前後3を合わせた7日間を求める。
使用関数
- GETTIME関数 （1行目）
- 日付、時間を取得します。
- DIM （2, 3, 4, 7, 8行目）
- ローカル変数を宣言します。
- REPEAT文 （6, 7, 8, 9, 10, 11, 12行目）
- ループ処理を行います。ループの終わりに条件判定を行うので、最低1度は処理が実行されます。後判定。
- normalizeAngle関数 (自作関数) （12行目）
- 度単位の角度を0～360度に正規化します。
- ROUND関数 （12行目）
- 指定した位置で偶数丸めした値を返します。
- chuki関数 (自作関数) （7行目）
- 指定したユリウス日の直前の中気を求めます。
- YMDToJD関数 （7行目）
- グレゴリオ暦をユリウス日に変換します。
- JDToYMD関数 (自作関数) （8行目）
- ユリウス日をグレゴリオ暦に変換します。
- RESIZE関数 (スクリプト関数) （14行目）
- 配列の上限値を取得または変更します。配列の上限値を変更する場合は第二引数に値を指定します。
- （15行目）
- 指定した配列の要素にコールバック関数を適用する。
- JOIN関数 (スクリプト関数) （16行目）
- 配列の中身を区切り文字で結合し、文字列として返します。
- PRINT文 （17, 18, 19行目）
- UWSC.LOGにログを出力します。
- dateAdd関数 (自作関数) （17, 19行目）
- 日時に、指定した単位の時間を加算して返します。
- 特殊文字 （2行目）
今年の秋彼岸の日付を求める
翌年1月1日の直前の太陽黄経180度の日付（秋分の日）を求め、その日を中日とする前後3日を合わせた7日間を求める。
使用関数
- GETTIME関数 （1行目）
- 日付、時間を取得します。
- DIM （2, 3, 4, 7, 8行目）
- ローカル変数を宣言します。
- REPEAT文 （6, 7, 8, 9, 10, 11, 12行目）
- ループ処理を行います。ループの終わりに条件判定を行うので、最低1度は処理が実行されます。後判定。
- normalizeAngle関数 (自作関数) （12行目）
- 度単位の角度を0～360度に正規化します。
- ROUND関数 （12行目）
- 指定した位置で偶数丸めした値を返します。
- chuki関数 (自作関数) （7行目）
- 指定したユリウス日の直前の中気を求めます。
- YMDToJD関数 （7行目）
- グレゴリオ暦をユリウス日に変換します。
- JDToYMD関数 (自作関数) （8行目）
- ユリウス日をグレゴリオ暦に変換します。
- RESIZE関数 (スクリプト関数) （14行目）
- 配列の上限値を取得または変更します。配列の上限値を変更する場合は第二引数に値を指定します。
- （15行目）
- 指定した配列の要素にコールバック関数を適用する。
- JOIN関数 (スクリプト関数) （16行目）
- 配列の中身を区切り文字で結合し、文字列として返します。
- PRINT文 （17, 18, 19行目）
- UWSC.LOGにログを出力します。
- dateAdd関数 (自作関数) （17, 19行目）
- 日時に、指定した単位の時間を加算して返します。
- 特殊文字 （2行目）
次の満月の日付を求める
使用関数
- GETTIME関数 （1行目）
- 日付、時間を取得します。
- DIM （2, 3, 4, 5, 8, 9, 10, 11, 12行目）
- ローカル変数を宣言します。
- YMDToJD関数 （5行目）
- グレゴリオ暦をユリウス日に変換します。
- REPEAT文 （7, 8, 9, 10, 11, 12, 13, 14行目）
- ループ処理を行います。ループの終わりに条件判定を行うので、最低1度は処理が実行されます。後判定。
- ABS関数 (スクリプト関数) （12, 13, 14行目）
- 引数の絶対値（\(|x|\)）を返します。
- （10行目）
- ユリウス世紀から太陽黄経を求めます。
- （11行目）
- ユリウス世紀から月黄経を求めます。
- JDToYMD関数 (自作関数) （16行目）
- ユリウス日をグレゴリオ暦に変換します。
- RESIZE関数 (スクリプト関数) （18行目）
- 配列の上限値を取得または変更します。配列の上限値を変更する場合は第二引数に値を指定します。
- PRINT文 （19行目）
- UWSC.LOGにログを出力します。
- JOIN関数 (スクリプト関数) （19行目）
- 配列の中身を区切り文字で結合し、文字列として返します。
- 特殊文字 （2, 3, 4行目）
- コメント （13, 14行目）
- プログラムの動作に影響しない注釈を残すことができます。プログラムの内容を説明したり、デバッグや修正のために一時的にコードを無効化ときにも使えます。
参考文献
- ユリウス日の計算
- コグノスケ
公開日:
更新日:
関連記事
- JDToYMD関数 (自作関数)
- ユリウス日をグレゴリオ暦に変換します。
- getKyureki関数 (自作関数)
- 西暦から旧暦を求めます。
- saku関数 (自作関数)
- 指定したユリウス日の直前の朔を求めます。
- chuki関数 (自作関数)
- 指定したユリウス日の直前の中気を求めます。
- dateSerial関数 (自作関数)
- 引数に指定した年、月、日の日付が表すシリアル値を返します。
- dateValue関数 (自作関数)
- 日付形式の文字列をシリアル値に変換します。
- getNthWeekday関数 (自作関数)
- 指定年月の第n週のw曜日（第nW曜日）の日付を返します。
- dateDiff関数 (自作関数)
- 指定された２つの日付の時間間隔を返します。
- dateString関数 (自作関数)
- 指定された日付を西暦から和暦に変換します。
- dateAdd関数 (自作関数)
- 日時に、指定した単位の時間を加算して返します。
