Delphi : DateUtils.pas 날짜함수 정리

http://www.delmadang.com/community/bbs_view.asp?bbsNo=21&bbsCat=0&indx=209893&page=41

델파이에 날짜함수를 모아둔 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 Sec