日付/時刻ルーチン - Delphi プログラミング

Peopleimages/E+/ゲッティイメージズ

2 つの TDateTime 値を比較します (「小さい」、「等しい」、または「大きい」を返します)。両方の値が同じ日に「該当する」場合、時刻の部分は無視されます。

CompareDateTime 関数

2 つの TDateTime 値を比較します (「小さい」、「等しい」、または「大きい」を返します)。

宣言：
タイプ TValueRelationship = -1..1
関数 CompareDateTime( 定数 ADate、BDate: TDateTime) : TValueRelationship

説明：
2 つの TDateTime 値を比較します (「小さい」、「等しい」、または「大きい」を返します)。

TValueRelationship は、2 つの値の間の関係を表します。 3 つの TValueRelationship 値のそれぞれに、「好きな」記号定数があります。
-1 [LessThanValue] 最初の値が 2 番目の値より小さい。
0 [EqualsValue] 2 つの値は等しい。
1 [GreaterThanValue] 最初の値が 2 番目の値より大きい。

CompareDate の結果は次のとおりです。

ADate が BDate より前の場合は LessThanValue。
ADate と BDate の両方の日付と時刻の部分が同じ場合は EqualsValue
ADate が BDate より遅い場合は GreaterThanValue。

例：

|_+_|

CompareTime 関数

2 つの TDateTime 値を比較します (「小さい」、「等しい」、または「大きい」を返します)。両方の値が同時に発生する場合、日付部分は無視されます。

宣言：
タイプ TValueRelationship = -1..1
関数 CompareDate( 定数 ADate、BDate: TDateTime) : TValueRelationship

説明：
2 つの TDateTime 値を比較します (「小さい」、「等しい」、または「大きい」を返します)。両方の値が同時に発生する場合、時間の部分は無視されます。

TValueRelationship は、2 つの値の間の関係を表します。 3 つの TValueRelationship 値のそれぞれに、「好きな」記号定数があります。
-1 [LessThanValue] 最初の値が 2 番目の値より小さい。
0 [EqualsValue] 2 つの値は等しい。
1 [GreaterThanValue] 最初の値が 2 番目の値より大きい。

CompareDate の結果は次のとおりです。

ADate が BDate で指定された日の前に発生した場合は、LessThanValue。
ADate と BDate の両方の時間部分が同じ場合は EqualsValue で、日付部分は無視されます。
ADate が BDate で指定された日の後半に発生する場合は GreaterThanValue。

例：

|_+_|

日付機能

現在のシステム日付を返します。

宣言：
タイプ TDateTime = タイプ ダブル;

関数 日付: TDateTime;

説明：
現在のシステム日付を返します。

TDateTime 値の整数部分は、1899 年 12 月 30 日から経過した日数です。 TDateTime 値の小数部は、経過した 24 時間の 1 日のうちの小数部です。

2 つの日付の間の端数を求めるには、単純に 2 つの値を引きます。同様に、日付と時刻の値を特定の小数の日数だけインクリメントするには、小数を日付と時刻の値に追加するだけです。

例： ShowMessage('今日は ' + DateToStr(Date));

DateTimeToStr 関数

TDateTime 値を文字列 (日付と時刻) に変換します。

宣言：
タイプ TDateTime = タイプ ダブル;

関数 DayOfWeek (日付: TDateTime): 整数;

説明：
指定された日付の曜日を返します。

DayOfWeek は、1 から 7 までの整数を返します。日曜日が週の最初の日で、土曜日が 7 番目の曜日です。
DayOfTheWeek は、ISO 8601 標準に準拠していません。

例：

|_+_|

DaysBetween 関数

指定された 2 つの日付の間の日数を返します。

宣言：
関数 DaysBetween(const ANow, AThen: TDateTime): 整数;

説明：
指定された 2 つの日付の間の日数を返します。

関数は丸一日のみをカウントします。これが意味することは、05/01/2003 23:59:59 と 05/01/2003 23:59:58 の差の結果として 0 を返すということです - 実際の差は 1 *全体* 日から 1 秒を引いたものです.

例：

|_+_|

DateOf 関数

Time 部分を 0 に設定して、TDateTime 値の Date 部分のみを返します。

宣言：
関数 DateOf(日付: TDateTime) : TDateTime

説明：
Time 部分を 0 に設定して、TDateTime 値の Date 部分のみを返します。

DateOf は、時刻部分を 0 に設定します。これは午前 0 時を意味します。

例：

|_+_|

DecodeDate 関数

Year、Month、および Day 値を TDateTime 値から分離します。

宣言：
手順 DecodeDate(日付: TDateTime; だった 年、月、日: Word);;

説明：
Year、Month、および Day 値を TDateTime 値から分離します。

指定された TDateTime 値がゼロ以下の場合、年、月、日の戻りパラメーターはすべてゼロに設定されます。

例：

|_+_|

EncodeDate 関数
Year、Month、および Day 値から TDateTime 値を作成します。

宣言：
関数 EncodeDate(年、月、日: ワード): TDateTime

説明：
Year、Month、および Day 値から TDateTime 値を作成します。

年は 1 から 9999 の間でなければなりません。有効な月の値は 1 から 12 です。有効な日の値は、月の値に応じて 1 から 28、29、30、または 31 です。
関数が失敗した場合、EncodeDate は EConvertError 例外を発生させます。

例：

|_+_|

FormatDateTime 関数
TDateTime 値を文字列にフォーマットします。

宣言：
関数 FormatDateTime( 定数 Fmt: 文字列;値: TDateTime): ストリング ;

説明：
TDateTime 値を文字列にフォーマットします。

FormatDateTime は、Fmt パラメータで指定された形式を使用します。サポートされている形式指定子については、Delphi ヘルプ ファイルを参照してください。

例：

|_+_|

IncDay 関数

日付値から指定された日数を加算または減算します。

宣言：
関数 IncDay(ADate: TDateTime; 日: 整数 = 1) : TDateTime;

説明：
日付値から指定された日数を加算または減算します。

Days パラメータが負の場合、返される日付は

例：

|_+_|

今機能

現在のシステムの日付と時刻を返します。

宣言：
タイプ TDateTime = タイプ ダブル;

関数 現在: TDateTime;

説明：
現在のシステムの日付と時刻を返します。

TDateTime 値の整数部分は、1899 年 12 月 30 日から経過した日数です。 TDateTime 値の小数部は、経過した 24 時間の 1 日のうちの小数部です。

2 つの日付の間の端数を求めるには、単純に 2 つの値を引きます。同様に、日付と時刻の値を特定の小数の日数だけインクリメントするには、小数を日付と時刻の値に追加するだけです。

例： ShowMessage('現在' + DateTimeToStr(現在));

YearsBetween関数

指定された 2 つの日付の間の年数を返します。

宣言：
関数 年の間( 定数 SomeDate、AnotherDate: TDateTime): 整数;

説明：
指定された 2 つの日付の間の年数を返します。

YearsBetween は、年間 365.25 日という仮定に基づく概算を返します。

例：

|_+_|