[Reference] System.SysUtils.DecodeDate

System.SysUtils.DecodeDate

Delphi

procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word);

C++

extern PACKAGE void __fastcall DecodeDate(const System::TDateTime DateTime, System::Word &Year, System::Word &Month, System::Word &Day);

Properties

Type	Visibility	Source	Unit	Parent
procedure function	public	System.SysUtils.pas System.SysUtils.hpp	System.SysUtils	System.SysUtils

Description

Returns Year, Month, and Day values for a TDateTime value.

The DecodeDate procedure breaks the value specified as the Date parameter into Year, Month, and Day values.

If the given TDateTime value has a negative (BC) year, the year, month, and day return parameters are all set to zero.

 

TDateTime 값의 년, 월, 일 값을 반환합니다.

DecodeDate 프로시저는 Date 매개변수로 지정된 값을 연도, 월 및 일 값으로 나눕니다.

주어진 TDateTime 값이 음수 (BC) 인 경우 연, 월, 일 반환 매개변수는 모두 0으로 설정됩니다.

 

Example

uses   System.SysUtils;   var   Today: TDateTime;   Year, Month, Day: Word;   begin   // 2013년 3월 22일 기준   Today := Now();   DecodeDate(Today, Year, Month, Day);     // 결과: 오늘 날짜: 2017-03-22, 연: 2017, 월: 3, 일: 22   Writeln(Format('오늘 날짜: %s, 연: %d, 월: %d, 일: %d', [DateToStr(Today), Year, Month, Day]));   Readln; end.

 

출처: http://docwiki.embarcadero.com/Libraries/XE2/en/System.SysUtils.DecodeDate