/
563.txt
101 lines (71 loc) · 3.99 KB
/
563.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
[15]
[TIME[1601-01-01]]が [N[1]] の[[整数日付系]]。
[13] [CITE[[[Federal Information Processing Standards]] Publication: programming language - intrinsic function module for COBOL - fipspub21-3.pdf]], [TIME[2017-12-04T15:49:55.000Z]], [TIME[2021-01-16T10:06:54.545Z]] <https://nvlpubs.nist.gov/nistpubs/Legacy/FIPS/fipspub21-3.pdf#page=28>
[14] [[グレゴリオ暦]]の[TIME[1601-01-01]]が選ばれたのは、
[[整数日付]] [N[1]]
が
[[DAY-OF-WEEK]] [N[1]]
たる[[月曜日]]に一致させるためでした。
[SRC[>>13]]
[1] [CITE@ja[IBM Knowledge Center - CEECBLDY - 日付から COBOL 整数形式への変換]]
([TIME[2017-01-09 16:34:39 +09:00]])
<http://www.ibm.com/support/knowledgecenter/ja/SSQ2R2_9.5.0/com.ibm.etools.cbl.win.doc/topics/rpsrv03.htm>
[2] [CITE@ja[IBM Knowledge Center - CEECBLDY - 日付から COBOL 整数形式への変換]]
([TIME[2017-01-09 16:35:17 +09:00]])
<http://www.ibm.com/support/knowledgecenter/ja/SSLTBW_2.2.0/com.ibm.zos.v2r2.ceea300/clccbld.htm>
[3] [CITE@ja[IBM Knowledge Center - CEECBLDY - 日付から COBOL 整数形式への変換]]
([TIME[2017-01-09 16:35:42 +09:00]])
<http://www.ibm.com/support/knowledgecenter/ja/SSLTBW_2.2.0/com.ibm.zos.v2r2.ceea300/clccbld.htm>
[FIG(quote)[
[FIGCAPTION[
[4] [CITE@ja-jp[日付に関する制限事項]]
([TIME[2017-01-09 16:36:28 +09:00]])
<http://www.ibm.com/support/knowledgecenter/ja/SSLTBW_2.2.0/com.ibm.zos.v2r2.ceea200/datlim.htm?view=embed>
]FIGCAPTION]
> COBOL 整数日付の開始 (ANSI COBOL 組み込み関数)
> COBOL 規格に従った COBOL 整数日付範囲の開始日 は、1600 年 12 月 31 日です。この日より前の COBOL 整数日付は定義されていません。COBOL 整数日付範囲は、次のとおりです。
> ゼロ日目は、1600 年 12 月 31 日 00:00:00 にあたる。
> 1 日目は、1601 年 1 月 1 日 00:00:00 にあたる。
> 有効な COBOL 整数日付は、すべて 1601 年 1 月 1 日 00:00:00 以降でなければなりません。
]FIG]
[FIG(quote)[
[FIGCAPTION[
[5] [CITE[INTEGER-OF-DATE関数]]
([TIME[2013-06-03 01:21:31 +09:00]])
<http://itdoc.hitachi.co.jp/manuals/3020/3020378270/LANG0235.HTM>
]FIGCAPTION]
> 関数値は,引数1で表される日付けに等価な通日を表す整数とする。通日は,グレゴリオ暦の1601年1月1日を第1日とする。
]FIG]
[FIG(quote)[
[FIGCAPTION[
[6] [CITE@JA[JDとその「亜種」]]
([TIME[2007-06-22 15:13:31 +09:00]])
<http://members.jcom.home.ne.jp/ino-kei/jdtoasyu.htm>
]FIGCAPTION]
> ANSI Date
> 1601年1月1日を第1日とする通日である。これはCOBOLの日付の原点である。
> 1601年から1999年までは4年に1回閏年が規則正しく入るユリウス暦法の置閏法がそのまま使える期間である。
]FIG]
[FIG(quote)[
[FIGCAPTION[
[7] [CITE[>>>プログラムの定義]]
([TIME[2017-01-09 16:50:59 +09:00]])
<http://www.microfocus.co.jp/manuals/SE/books/lrpdf7.htm>
]FIGCAPTION]
> 日付変換関数では、グレゴリオ歴を使用している。1601年1月1日を開始日とする。この日は月曜日であるので、開始日からの通算日と曜日の関係がとらえやすくなっている。
]FIG]
[8] [CITE[日付や時刻を取得するACCEPT文]]
([TIME[2017-10-17 03:55:23 +09:00]])
<http://itdoc.hitachi.co.jp/manuals/3000/30003D0820/GD080173.HTM>
[9] [CITE@ja-JP[IBM Knowledge Center]]
([TIME[2019-09-12 11:19:22 +09:00]])
<https://www.ibm.com/support/knowledgecenter/ja/ssw_ibm_i_72/rzase/wwddt.htm>
[10] [CITE[COBOL]]
([TIME[2005-06-10 02:15:11 +09:00]])
<http://www16.plala.or.jp/hiyokogumi/dic/a_accept.html>
[11] [CITE@ja[9桁文字列型日付を7桁数値型日付に変換するCOBOLソース例|せじ|note]]
([TIME[2019-09-12 11:27:38 +09:00]])
<https://note.mu/sejiijes/n/n7a635144d09c>
[12] [CITE[サルでもわかるCOBOL入門 【ひよこグミ】]]
([TIME[2005-06-10 02:13:56 +09:00]])
<http://www16.plala.or.jp/hiyokogumi/5/580.html>