タイムトラベルとはパリを訪ねるようなもの。 ガイドを読むだけじゃなく、そこに足を踏み入れなければならない。 ご飯を食べて、動詞の使い方を間違えたり、2 倍の料金を請求されたり、見ず知らずの人とキスするものさ。
ドクター
これから時空を超えた旅をしましょう。未来と過去の日付を見て、様々なフォーマットで計算する方法を説明します。 ターディスは待ちません。コントロールに就いてしっかりつかまりましょう。
明日へ向かおう
前回の記事で見たように、内部フォーマットの日付は 1841 年 1 月 1 日からの日数と 00:00 時間からの秒数に分けられています。
日にちを増やす場合は、日付の部分に値を追加するかそれから差し引けば... すでに時間を旅している...と考えられます。
SET Today = $ZDATE($HOROLOG,4)
SET InternalDate = $ZDATEH(Today, 4)
SET Future = InternalDate + 2
SET FutureDate = $DATE(Future, 4)
WRITE "Today: "_Today,!,"Internal date: "_InternalDate,!,"Future: "_Future,!,"Future date: "_FutureDate
> Today: 02/09/2022 Internal date: 66149 Future: 66151 Future date: 04/09/2022
とても簡単です。日にちを移動する方法はわかっていますが、 ただし、次の月に移動するとなると、こうはいきません。 カレンダーには、毎月同じ日数があるわけではないため、日付に 30 日を足しても意味がありません。 時間の加算と減算を行うコマンドをご紹介いたしましょう。
T-SQL ユーザーであれば、DATEADD と言うコマンドに聞きなれていることでしょう。
これは $SYSTEM.SQL.Functions ライブラリに含まれています。
バック・トゥ・ザ・フューチャー
月数、日数、年数を追加したり、指定された日付から除外したりできます。
SET InternalDate = $ZDATEH("09/02/2022", 4)
SET Future = $SYSTEM.SQL.DATEADD("mm",1,InternalDate)
WRITE "InternalDate "_InternalDate,!,"Future: "_Future
InternalDate: 66149 Future: 2022-03-09 00:00:00
日数、月数、年数を除外する場合は、部分ごとにそれぞれ個別に行う必要があります。
Set InternalDate = $ZDATEH("09/02/2022", 4)
Set PastDays = $SYSTEM.SQL.DATEADD("dd",12,InternalDate)
Set PastMonths = $SYSTEM.SQL.DATEADD("mm",8,PastDays)
Set PastYears = $SYSTEM.SQL.DATEADD("yy",-7,PastMonths)
WRITE PastYears
2015-10-21 00:00:00
Mc FLY、居るのか～？？
今、僕の誕生日...じゃない？
知ろうとしていることが、2 つの日付の差であれば、DATEDIFF コマンドを使用します。
Set internalDate = $ZDATEH("09/02/2022", 4)
Set myBirthday = $ZDATEH("01/02/2023", 4)
Set days = $SYSTEM.SQL.DATEDIFF("dd",internalDate, myBirthday)
WRITE !days," days left until my birthday"
> 357 days left until my birthday
上手くいきましたね... 2 つの日付の差を日数、月数、年数などで見る方法が分かりました。
コロンブスのアメリカ大陸発見に居合わせたい
前にも言ったように、時間フォーマットの値 1 は 01/01/1841 ですが、コロンブスがアメリカ大陸に上陸したのは 1492 年 10 月 12 日でした。そこで、「1 の日付から 1492 年にさかのぼって負の値を付ければいい！」なんて考えるでしょうね。
WRITE $ZDATE(-1)
<VALUE OUT OF RANGE>
おっと... ヒューストン、問題が発生しました。 負の値を使って 1841 年より前の日付を取得することはできません。 でも、テキストの日付から内部フォーマットへの変換を行って、戻り値を見てみましょう。
WRITE $ZDATEH("12/10/1492",4) // European format
<VALUE OUT OF RANGE>
ムムムムムム!!! 競ってくれるのはありがたいですが、正しい答えではありません。
どうやって解決できるでしょうか？
これは、日付に、それ以上にならないように最低値が定義されているためで、したがって mindata パラメーターを使用すると、内部フォーマットで負の値を使用できるようになります。
WRITE $ZDATEH("12/10/1492",4,,,,,-672045)
> -127184
パラメーターの 7 番目の位置にある値は最低許容値が -672045 となることを示しており、好奇心を満たすために言えば、これは 01/01/0001 に対応する値です。また、ここで使用できる最低値でもあります。
「カンマ」を数えてこのパラメーターを追加する際に混乱してしまった場合は、各国語サポート（NLS）を構成してアクティブのままにするとよいでしょう。
SET originalValue= ##class(%SYS.NLS.Format).GetFormatItem("DateMinimum")
WRITE originalValue,!
DO ##class(%SYS.NLS.Format).SetFormatItem("DateMinimum", -672045)
WRITE $ZDATEH("12/10/1492", 4),!
DO ##class(%SYS.NLS.Format).SetFormatItem("DateMinimum", originalValue) // Return to the minimum value originally established
> 0
-127184
すると、問題なく時間を超えた旅を行えるようになります。
次回の記事: 世界時
謝辞
負の $Horolog に関する記事を執筆していただいた @Robert Cemper に感謝します。この記事を書き上げる上で役立ちました。参考記事は次のリンクでご覧ください。
https://community.intersystems.com/post/date-dec1840-negative-horolog