Delphi關於時間的函數

         use DateUtils;（此單元裡有許多關於時間的函數）。我今天就只看了這麼多了，還有許多讀者自己去看吧。
裡面有太多的關於時間的函數了，如：輸入一個時間，可以提取date或time部分，此月有多少天，比較兩個時間的’大小’,…..自己看幫助。
function CompareDate(const A, B: TDateTime): TValueRelationship;比較A，B日期哪個時間先發生？還是同時發生？
function CompareDateTime(const A, B: TDateTime): TValueRelationship
function DaysBetween(const ANow, AThen: TDateTime): Integer;兩時間相隔多少天？
function DaysInAMonth(const AYear, AMonth: Word): Word;某年某月有多少天
function DaysInAYear(const AYear: Word): Word;某年有多少天。
function DaysInMonth(const AValue: TDateTime): Word;某月有多少天
procedure DecodeDateMonthWeek(const AValue: TDateTime; out AYear, AMonth, AWeekOfMonth, ADayOfWeek: Word);對應out參數：哪年，哪月，此月的第幾周，是周幾。
function EncodeDateDay(const AYear,歡迎光臨學網,收藏本篇文章 [1] [2] [3] [4] [5]

$False$

ADayOfYear: Word): TDateTime;輸入某年，此年第幾天,out得到此天日期。
 
 
DayOfWeek(TDateTime)某個時間是星期幾？
DayOfTheYear(TDateTime)一年的第幾天。
function DayOfTheMonth(const AValue: TDateTime): Word;第幾天of the Month.
function DateOf(const AValue: TDateTime): TDateTime;提取時間部分
這個方法可以完成你的要求。用法可見幫助示例。
procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay,
                       AHour, AMinute, ASecond, AMilliSecond: Word); (注它必須引用DateUtils單元);
它把時間的各個部分都分離出來了。與之對應的函數為： 
      function EncodeDateTime(const AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word):TDateTime;
      function  IncMinute (const AValue: TDateTime; const ANumberOfMinute: Int64 = 1): TDateTime;
                例：IncMinute(now,文章整理:學網 http://www.xue5.com (本站) [1] [2] [3] [4] [5]

N);增加N分鐘在NOW的基礎上。可以為負。

 ---------------------------------------------------------------------------------------------------------------------------------------------

用於時間操作的函數

Date函數：

定義：Date: TDateTime;

作用：返回當前的日期

范例：CurrentDate := Date;
DayOfWeek函數：

定義：function DayOfWeek(Date: TDateTime): Integer;

作用：得到指定日期的星期值，返回1～7，代表周日到周六。
IncMouth函數：
定義：function IncMonth(const Date: TDateTime; NumberOfMonths: Integer): TDateTime;

作用：求給定的日期Data在NumberOfMonth 個月後的日期。

范例：Date1 := IncMonth(date,10);

如果今天是2002-5-3，則Date1就是2003-3-3

IsLeapYear函數：
定義：function IsLeapYear(Year: Word): Boolean;

作用：判斷指定的年份是否是閏年；

范例：if isLeapYear(2000) then ShowMessage(‘該年是閏年’);

Now函數：

定義：function Now: TDateTime;
作用：用於取得當前的日期時間

范例：CurrentDateTime := Now;

ReplaceDate 過程

定義：procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime);

作用：使用參數Newdate日期部分替換參數DateTime的日期部分，但不改變時間部分
ReplaceDate 過程

歡迎光臨學網,點擊這裡查看更多文章教程 [1] [2] [3] [4] [5]

定義：procedure ReplaceTime(var DateTime: TDateTime; const NewTime: TDateTime);

作用：使用參數Newdate時間部分替換參數DateTime的時間部分，但不改變日期部分。

如果上述這兩個過程一起用，就相當於賦值了。
Time函數：

定義：function Time: TDateTime;

作用：返回當前的時間

范例：CurrentTime := Time;
DateTimeToFileDate函數：

定義：DateTimeToFileDate(DateTime: TDateTime): Integer;

作用：將一個TDateTime類型的時間轉化為Dos環境中的時間，Dos環境下對時間的訪問方法和VCL中的TdateTime類型不一樣，在進行文件操作時，為了保持時間的一致性，需要使用DateTimeToFileDate函數進行轉化，返回的Integer的值就是DOS下的用於描述時間的值。

DateTimeToSystemTime 過程：

定義：procedure DateTimeToSystemTime(DateTime: TDateTime; var SystemTime: TSystemTime);

作用：將一個TDateTime類型的時間轉換為Win API函數所使用的TSystemTime類型，在使用WinApi函數操縱時間時用到。

SystemTimeToDateTime 函數：

定義：function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;

作用：將一個在WinApi函數中得到的TSysTemTime類型的數轉換為TDateTime類型。

DateTimeToTimeStamp 函數：

TimeStampToDateTime 函數：

定義：DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp;

function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime;

作用：用於在TDataTime類型與TTimeStamp之間進行互相轉換。TDataTime 用一個double描繪一個時間，而TTimeStamp則是采用兩個整形數分別描述時間。兩種類型的區別可參考文章開始處的數據類型描述部分。

EncodeDate 函數：

定義：function EncodeDate(Year, Month, Day: Word): TDateTime;

作用： 輸入年(year)，月(month)，日(day)的值，將該日期返回為TDateTime類型，文章整理:學網 http://www.xue5.com (本站) [1] [2] [3] [4] [5]

年的范圍為1-9999,月份的范圍為1-12，日期的范圍視當月的情況而定，如果輸入的值超出范圍，則將產生一個EConvertError錯誤。
DecodeDate 過程：

定義：procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

作用：輸入一個TDateTime類型的日期，將其轉為年(Year)，月(Month),日(Day)的值。如果輸入值為0或小於0，則年月日均為0，

EncodeTime 函數：

定義：EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;

作用：輸入小時(Hour),分(min),秒(Sec),微秒(MSec)的值，返回一個TDateTime類型的時間，該值為一個介於0至1之間的小數。Hour的取值范圍為0-23,Min的取值范圍為0-59,Sec的取值范圍為0-59,MSec的取值范圍為0-999，如果輸入值超出范圍，則產生一個EConvertError 錯誤。

DecodeTime 過程：

定義：procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

作用：輸入一個時間，將其轉換為小時(Hour),分(min),秒(Sec),微秒(MSec)的值。
TDateTime類型與字符串型轉換函數：

DateTimeToStr 函數：

DateToStr 函數

TimeToStr函數

定義：function DateTimeToStr(DateTime: TDateTime): string;

function TimeToStr(Time: TDateTime): string;

function TimeToStr(Time: TDateTime): string;

作用：將一個TDateTime類型的數轉換成字符串，DateTimeToStr轉換日期和時間，DateToStr只轉換日期，TimeToStr只轉換時間。轉換後的輸出效果為YYYY-M-D H：M：S

StrToDateTime函數

StrToDate函數

StrToTime函數

定義：function StrToDateTime(const S: string): TDateTime;

function StrToDate(const S: string): TDateTime;