델파이 날짜 시간 유틸 함수모음

델파이 날짜 시간 유틸 함수모음

 

 

 uses DateUtils

 

델파이에 날짜함수를 모아둔 DateUtils.pas 가 있습니다.

머... 다들 알고있겠지만...^^

DateUtils.pas의 내용이 정리된게 없는거 같아서 나름 정리해서 올립니다.

있는지 몰라서 만들어 쓰던 함수들이 ... 여기 몇몇 보이더군요.

왠만한 날짜 처리는 다 될것 같고...

담에 또- 다른 SysUtils.pas를 정리해서 올리겠습니다. ^^

 

//일자를 추출한다.

function DateOf(const AValue: TDateTime): TDateTime;

 

//시간을 추출한다.

function TimeOf(const AValue: TDateTime): TDateTime;

 

//평년,윤년을 구분하다.

function IsInLeapYear(const AValue: TDateTime): Boolean;

 

//오전,오후를 구분한다.

function IsPM(const AValue: TDateTime): Boolean;

 

//Word형의 년,월,일 파라메타의 유효성을 체크한다.

function IsValidDate(const AYear, AMonth, ADay: Word): Boolean;

 

//Word형의 시,분,초,밀리초 파라메타의 유효성을 체크한다.

function IsValidTime(const AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;

 

//Word형의 년,월,일,시,분,초,밀리초 파라메타의 유효성을 체크한다.

function IsValidDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): Boolean;

 

//ex) IsValidDateDay(2006,45) : 2006년의 45번째날이 유효한지를 체크한다.

function IsValidDateDay(const AYear, ADayOfYear: Word): Boolean;

 

//ex) IsValidDateWeek(2006,42) : 2006년의 42주차가 유효한지를 체크한다.

function IsValidDateWeek(const AYear, AWeekOfYear, ADayOfWeek: Word): Boolean;

 

//년,월,월의주차,요일 이 유효한지를 체크한다.

//ex) IsValidDateMonthWeek(2006,2,1,2) : 2006년 2월의 1주차의 화요일이 유효한지를 체크한다.

function IsValidDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): Boolean;

 

//ex) WeeksInYear(Today) : 오늘이 년의 몇주차인지 리턴한다.

function WeeksInYear(const AValue: TDateTime): Word;

function WeeksInAYear(const AYear: Word): Word;

 

//ex) DaysInYear(Today) : 오늘이 년의 몇일째인지 리턴한다.

function DaysInYear(const AValue: TDateTime): Word;

function DaysInAYear(const AYear: Word): Word;

 

//ex) DaysInMonth(Today) : 오늘이 월의 몇일째인지 리턴한다.

function DaysInMonth(const AValue: TDateTime): Word;

function DaysInAMonth(const AYear, AMonth: Word): Word;

 

//오늘-

function Today: TDateTime;

 

//어제-

function Yesterday: TDateTime;

 

//내일-

function Tomorrow: TDateTime;

 

//AValue의 값이 오늘이면 True를 리턴한다.

function IsToday(const AValue: TDateTime): Boolean;

 

//AValue, ABasis 같은날이면 True를 리턴한다.

function IsSameDay(const AValue, ABasis: TDateTime): Boolean;

 

//년을 추출한다.

function YearOf(const AValue: TDateTime): Word;

 

//월을 추출한다.

function MonthOf(const AValue: TDateTime): Word;

 

//년의 몇주차인지를 추출한다.

function WeekOf(const AValue: TDateTime): Word;

 

//일자만 추출한다.

//ex) DayOf(StrToDate('2006-06-27')) : 27을 리턴한다.

function DayOf(const AValue: TDateTime): Word;

 

//시간을 추출한다(24시간단위)

function HourOf(const AValue: TDateTime): Word;

 

//분을 추출한다.

function MinuteOf(const AValue: TDateTime): Word;

 

//초를 추출한다.

function SecondOf(const AValue: TDateTime): Word;

 

//밀리초를 추출한다.

function MilliSecondOf(const AValue: TDateTime): Word;

 

//년도의 시작일

function StartOfTheYear(const AValue: TDateTime): TDateTime;

function StartOfAYear(const AYear: Word): TDateTime;

 

//년도의 마지막일

function EndOfTheYear(const AValue: TDateTime): TDateTime;

function EndOfAYear(const AYear: Word): TDateTime;

 

//월의 시작일

function StartOfTheMonth(const AValue: TDateTime): TDateTime;

function StartOfAMonth(const AYear, AMonth: Word): TDateTime;

 

//월의 마지막일

function EndOfTheMonth(const AValue: TDateTime): TDateTime;

function EndOfAMonth(const AYear, AMonth: Word): TDateTime;

 

//주의 시작일

function StartOfTheWeek(const AValue: TDateTime): TDateTime;

 

//주의 시작일(기준요일을 정할수 있다.)

//1:월요일, 2:화요일, 3:수요일, 4:목요일 ,5:금요일 , 6:토요일 ,7:일요일

function StartOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 1): TDateTime;

 

//주의 마지막일

function EndOfTheWeek(const AValue: TDateTime): TDateTime;

 

//주의 마지막일(기준요일을 정할수 있다.)

//1:월요일, 2:화요일, 3:수요일, 4:목요일 ,5:금요일 , 6:토요일 ,7:일요일

function EndOfAWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 7): TDateTime;

function StartOfTheDay(const AValue: TDateTime): TDateTime;

function StartOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;

function StartOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;

function EndOfTheDay(const AValue: TDateTime): TDateTime;

function EndOfADay(const AYear, AMonth, ADay: Word): TDateTime; overload;

function EndOfADay(const AYear, ADayOfYear: Word): TDateTime; overload;

 

//ex) MonthOfTheYear(Today) : 오늘일자를 Word형으로 리턴한다.

function MonthOfTheYear(const AValue: TDateTime): Word;

 

//ex) WeekOfTheYear(Today) : 오늘일자가 몇주차인지를 Word형으로 리턴한다.

function WeekOfTheYear(const AValue: TDateTime): Word; overload;

function WeekOfTheYear(const AValue: TDateTime; var AYear: Word): Word; overload;

 

//ex) DayOfTheYear(Today) : 오늘일자가 올해의 몇일째인지를 Word형으로 리턴한다.

function DayOfTheYear(const AValue: TDateTime): Word;

 

//년의 시작일부터 해당일자까지의 시간을 모두 더해서 Word형으로 리턴한다.

function HourOfTheYear(const AValue: TDateTime): Word;

 

//년의 시작일부터 해당일자까지의 분을 모두 더해서 Word형으로 리턴한다.

function MinuteOfTheYear(const AValue: TDateTime): LongWord;

 

//년의 시작일부터 해당일자까지의 초을 모두 더해서 Word형으로 리턴한다.

function SecondOfTheYear(const AValue: TDateTime): LongWord;

 

//년의 시작일부터 해당일자까지의 밀리초을 모두 더해서 Word형으로 리턴한다.

function MilliSecondOfTheYear(const AValue: TDateTime): Int64;

 

//이달의 몇번째주 인지를 리턴한다.

function WeekOfTheMonth(const AValue: TDateTime): Word; overload;

function WeekOfTheMonth(const AValue: TDateTime; var AYear, AMonth: Word): Word; overload;

 

//이달의 몇일째인지를 리턴한다.

function DayOfTheMonth(const AValue: TDateTime): Word;

 

//월의 시작일부터 해당일자까지의 시간의 합을 리턴한다.

function HourOfTheMonth(const AValue: TDateTime): Word;

 

//월의 시작일부터 해당일자까지의 분의 합을 리턴한다.

function MinuteOfTheMonth(const AValue: TDateTime): Word;

 

//월의 시작일부터 해당일자까지의 초의 합을 리턴한다.

function SecondOfTheMonth(const AValue: TDateTime): LongWord;

//월의 시작일부터 해당일자까지의 밀리초의 합을 리턴한다.

function MilliSecondOfTheMonth(const AValue: TDateTime): LongWord;

 

//해당일의 요일을 리턴한다.

//1:월요일, 2:화요일, 3:수요일, 4:목요일 ,5:금요일 , 6:토요일 ,7:일요일

function DayOfTheWeek(const AValue: TDateTime): Word;

 

//AValue날짜의 주의 시작일부터 AValue날짜까지의 시간의 합을 계산한다.

function HourOfTheWeek(const AValue: TDateTime): Word;

 

//AValue날짜의 주의 시작일부터 AValue날짜까지의 분의 합을 계산한다.

function MinuteOfTheWeek(const AValue: TDateTime): Word;

 

//AValue날짜의 주의 시작일부터 AValue날짜까지의 초의 합을 계산한다.

function SecondOfTheWeek(const AValue: TDateTime): LongWord;

 

//AValue날짜의 주의 시작일부터 AValue날짜까지의 밀리초의 합을 계산한다.

function MilliSecondOfTheWeek(const AValue: TDateTime): LongWord;

 

//ex) HourOfTheDay(Time) : 24시간 단위로 Time까지의 시간의 합을 계산한다.

function HourOfTheDay(const AValue: TDateTime): Word;

 

//ex) MinuteOfTheDay(Time) : 24시간 단위로 Time까지의 분의 합을 계산한다.

function MinuteOfTheDay(const AValue: TDateTime): Word;

 

//ex) SecondOfTheDay(Time) : 24시간 단위로 Time까지의 초의 합을 계산한다.

function SecondOfTheDay(const AValue: TDateTime): LongWord;

 

//ex) MilliSecondOfTheDay(Time) : 24시간 단위로 Time까지의 밀리초의 합을 계산한다.

function MilliSecondOfTheDay(const AValue: TDateTime): LongWord;

 

//ex) MinuteOfTheHour(13:28:43:345) : 시간을 기준으로 분의 합을계산한다.

function MinuteOfTheHour(const AValue: TDateTime): Word;

 

//ex) SecondOfTheHour(13:28:43:345) : 시간을 기준으로 초의 합을계산한다.

function SecondOfTheHour(const AValue: TDateTime): Word;

 

//ex) MilliSecondOfTheHour(13:28:43:345) : 시간을 기준으로 밀리초의 합을계산한다.

function MilliSecondOfTheHour(const AValue: TDateTime): LongWord;

 

//ex) SecondOfTheMinute(13:28:43:345) : 분을 기준으로 초의 합을 계산한다.

function SecondOfTheMinute(const AValue: TDateTime): Word;

 

//ex) SecondOfTheMinute(13:28:43:345) : 초을 기준으로 밀리초의 합을 계산한다.

function MilliSecondOfTheMinute(const AValue: TDateTime): LongWord;

function MilliSecondOfTheSecond(const AValue: TDateTime): Word;

 

{ Range checking functions }

 

function WithinPastYears(const ANow, AThen: TDateTime;

const AYears: Integer): Boolean;

function WithinPastMonths(const ANow, AThen: TDateTime;

const AMonths: Integer): Boolean;

function WithinPastWeeks(const ANow, AThen: TDateTime;

const AWeeks: Integer): Boolean;

function WithinPastDays(const ANow, AThen: TDateTime;

const ADays: Integer): Boolean;

function WithinPastHours(const ANow, AThen: TDateTime;

const AHours: Int64): Boolean;

function WithinPastMinutes(const ANow, AThen: TDateTime;

const AMinutes: Int64): Boolean;

function WithinPastSeconds(const ANow, AThen: TDateTime;

const ASeconds: Int64): Boolean;

function WithinPastMilliSeconds(const ANow, AThen: TDateTime;

const AMilliSeconds: Int64): Boolean;

 

{ Range query functions }

 

//두날짜(시간) 사이에 년수를 리턴한다.

function YearsBetween(const ANow, AThen: TDateTime): Integer;

 

//두날짜(시간) 사이의 월수를 리턴한다.

function MonthsBetween(const ANow, AThen: TDateTime): Integer;

 

//두날짜(시간) 사이의 주수를 리턴한다.

function WeeksBetween(const ANow, AThen: TDateTime): Integer;

 

//두날짜(시간) 사이의 일수를 리턴한다.

function DaysBetween(const ANow, AThen: TDateTime): Integer;

 

//두날짜(시간) 사이의 시간을 리턴한다.

function HoursBetween(const ANow, AThen: TDateTime): Int64;

 

//두날자(시간) 사이의 분을 리턴한다.

function MinutesBetween(const ANow, AThen: TDateTime): Int64;

 

//두날짜(시간) 사이의 초를 리턴한다.

function SecondsBetween(const ANow, AThen: TDateTime): Int64;

 

//두날짜(시간) 사이의 밀리초를 리턴한다.

function MilliSecondsBetween(const ANow, AThen: TDateTime): Int64;

 

//두날짜(시간) 사이를 Double형으로 리턴한다.

function YearSpan(const ANow, AThen: TDateTime): Double;

function MonthSpan(const ANow, AThen: TDateTime): Double;

function WeekSpan(const ANow, AThen: TDateTime): Double;

function DaySpan(const ANow, AThen: TDateTime): Double;

function HourSpan(const ANow, AThen: TDateTime): Double;

function MinuteSpan(const ANow, AThen: TDateTime): Double;

function SecondSpan(const ANow, AThen: TDateTime): Double;

function MilliSecondSpan(const ANow, AThen: TDateTime): Double;

 

//AValue일자에서 ANumberOfYears만큼의 년도를 증가한다.

function IncYear(const AValue: TDateTime; const ANumberOfYears: Integer = 1): TDateTime;

 

//AValue일자에서 ANumberOfWeeks만큼의 주를 증가한다.

function IncWeek(const AValue: TDateTime; const ANumberOfWeeks: Integer = 1): TDateTime;

 

//AValue일자에서 ANumberOfDays만큼의 일를 증가한다.

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1): TDateTime;

 

//AValue일자(시간)에서 ANumberOfHours만큼의 시간를 증가한다.

function IncHour(const AValue: TDateTime; const ANumberOfHours: Int64 = 1): TDateTime;

 

//AValue일자(시간)에서 ANumberOfMinutes만큼의 분를 증가한다.

function IncMinute(const AValue: TDateTime; const ANumberOfMinutes: Int64 = 1): TDateTime;

 

//AValue일자(시간)에서 ANumberOfSeconds만큼의 초를 증가한다.

function IncSecond(const AValue: TDateTime; const ANumberOfSeconds: Int64 = 1): TDateTime;

 

//AValue일자(시간)에서 ANumberOfMilliSeconds만큼의 밀리초를 증가한다.

function IncMilliSecond(const AValue: TDateTime; const ANumberOfMilliSeconds: Int64 = 1): TDateTime;

 

//년,월,일,시,분,초,밀리초 ---> 날짜(시간)형으로 리턴한다.

function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;

 

//날짜(시간)형 ---> 년,월,일,시,분,초,밀리초 Word형으로 리턴한다.

procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);

 

//ex) EncodeDateWeek(2006,25,2) : 2006년 25주차의 첫번째 화요일의 날자를 리턴한다.

function EncodeDateWeek(const AYear, AWeekOfYear: Word; const ADayOfWeek: Word = 1): TDateTime;

 

//ex) DecodeDateWeek(Today) : 오늘은 몇년 몇째주의 무슨요일인지를 리턴한다.

procedure DecodeDateWeek(const AValue: TDateTime; out AYear, AWeekOfYear, ADayOfWeek: Word);

 

//AYear년의 ADayOfYear번째일이 며칠인지 리턴한다.

function EncodeDateDay(const AYear, ADayOfYear: Word): TDateTime;

 

//AValue일자가 몇년의 몇일째인지를 구한다.

procedure DecodeDateDay(const AValue: TDateTime; out AYear, ADayOfYear: Word);

 

//년,월,월의몇주차,화요일 의 날짜를 리턴한다.

function EncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word): TDateTime;

 

//AValue의 년,월,월의몇주차, 요일 구한다.

procedure DecodeDateMonthWeek(const AValue: TDateTime; out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);

 

//년,월,일,시,분,초,밀리초의 유효성을 체크하고 날짜를 구한다.

function TryEncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AValue: TDateTime): Boolean;

 

//AYear년의 AWeekOfYear주에 ADayOfWeek요일에 유효성을 체크하고 날짜를 리턴한다.

function TryEncodeDateWeek(const AYear, AWeekOfYear: Word; out AValue: TDateTime; const ADayOfWeek: Word = 1): Boolean;

 

//AYear년의 ADayOfYear번째날에 유효성을 체크하고 날짜를 구한다.

function TryEncodeDateDay(const AYear, ADayOfYear: Word; out AValue: TDateTime): Boolean;

 

//AYear(년) AMonth(월) AWeekOfMonth(월의주차) ADayOfWeek(요일) 유효성을 체크하고 날짜를 구한다.

function TryEncodeDateMonthWeek(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word; var AValue: TDateTime): Boolean;

 

function RecodeYear(const AValue: TDateTime; const AYear: Word): TDateTime;

function RecodeMonth(const AValue: TDateTime; const AMonth: Word): TDateTime;

function RecodeDay(const AValue: TDateTime; const ADay: Word): TDateTime;

function RecodeHour(const AValue: TDateTime; const AHour: Word): TDateTime;

function RecodeMinute(const AValue: TDateTime; const AMinute: Word): TDateTime;

function RecodeSecond(const AValue: TDateTime; const ASecond: Word): TDateTime;

function RecodeMilliSecond(const AValue: TDateTime; const AMilliSecond: Word): TDateTime;

function RecodeDate(const AValue: TDateTime; const AYear, AMonth, ADay: Word): TDateTime;

function RecodeTime(const AValue: TDateTime; const AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;

function RecodeDateTime(const AValue: TDateTime; const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word): TDateTime;

function TryRecodeDateTime(const AValue: TDateTime; const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; out AResult: TDateTime): Boolean;

 

//A.날짜(시간) B.날짜(시간) 을 비교한다. A=B(0) , A>B(1) , A

function CompareDateTime(const A, B: TDateTime): TValueRelationship;

function CompareDate(const A, B: TDateTime): TValueRelationship;

function CompareTime(const A, B: TDateTime): TValueRelationship;

 

//A.날짜(시간) B.날짜(시간) 을 비교한다

function SameDateTime(const A, B: TDateTime): Boolean;

function SameDate(const A, B: TDateTime): Boolean;

function SameTime(const A, B: TDateTime): Boolean;

 

//오늘이 이달의 몇번째주인지 리턴한다.

function NthDayOfWeek(const AValue: TDateTime): Word;

 

//AValue날이 몇년,몇월,월의몇번째주,무슨요일 인지를 구한다.

procedure DecodeDayOfWeekInMonth(const AValue: TDateTime; out AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word);

 

//AYear(년), AMonth(월), ANthDayOfWeek(월의몇번째주), ADayOfWeek(요일) ----> 해당일자를 리턴한다.

function EncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word): TDateTime;

 

//AYear(년), AMonth(월), ANthDayOfWeek(월의몇번째주), ADayOfWeek(요일) 의 유효성을 체크하고 날짜를 구한다.

function TryEncodeDayOfWeekInMonth(const AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word; out AValue: TDateTime): Boolean;

 

procedure InvalidDateTimeError(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word; const ABaseDate: TDateTime = 0);

procedure InvalidDateWeekError(const AYear, AWeekOfYear, ADayOfWeek: Word);

procedure InvalidDateDayError(const AYear, ADayOfYear: Word);

procedure InvalidDateMonthWeekError(const AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);

procedure InvalidDayOfWeekInMonthError(const AYear, AMonth, ANthDayOfWeek, ADayOfWeek: Word);

 

//날짜를 Double형으로 리턴한다.

//0001년01월01일 ---> 1721425

function DateTimeToJulianDate(const AValue: TDateTime): Double;

 

//Double형을 날짜로 리턴한다.

//1721425 ---> 0001년01월01일

function JulianDateToDateTime(const AValue: Double): TDateTime;

 

//AValue의 유효성을 체크하고 날짜를 리턴한다.

function TryJulianDateToDateTime(const AValue: Double; out ADateTime: TDateTime): Boolean;

 

//날짜를 Double형으로 리턴한다.

//0001년01월01일 ---> ( -678575 )

function DateTimeToModifiedJulianDate(const AValue: TDateTime): Double;

 

//Double형을 날짜로 리턴한다.

//( -678575 ) ---> 0001년01월01일

function ModifiedJulianDateToDateTime(const AValue: Double): TDateTime;

 

//AValue의 유효성을 체크하고 날짜를 리턴한다.

function TryModifiedJulianDateToDateTime(const AValue: Double; out ADateTime: TDateTime): Boolean;

function DateTimeToUnix(const AValue: TDateTime): Int64;

function UnixToDateTime(const AValue: Int64): TDateTime;

-갠적으로 만든 시간차 구하기-

 

>>> 함수

Function TForm1.DataTimeCalculate(SDateTime,EDateTime:TDateTime;

var Hour,Min,Sec,Msec:Word):Boolean;

begin

DecodeTime(SDateTime-EDateTime,Hour,Min,Sec,Msec);

end;

>> 사용

procedure TForm1.Button1Click(Sender: TObject);

begin

DataTimeCalculate(StrToTime('12:00:00'),StrToTime(FormatDateTime('hh:mm:ss',now)),Hour,Min,Sec,Msec);

Label1.Caption :=inttostr(hour)+'시간'+ intToStr(Min)+'분'+inttostr(Sec)+'초';

end;