delphi获取星期函数

//delphi获取星期函数

function GetWeek: string;
var
mytime:SYSTEMTIME;
begin
GetLocalTime(mytime);
case mytime.wDayOfWeek of
0: Result:='星期日';
1: Result:='星期一';
2: Result:='星期二';
3: Result:='星期三';
4: Result:='星期四';
5: Result:='星期五';
6: Result:='星期六';
end;
end;

在 delphi 的 DateUtils 单元文件里（Delphi XE版本是 System.DateUtils），提供了一系列的日期函数，根据指定日期获取是星期几的函数，可以使用 DayOfTheWeek，其函数原型定义如下：

●function DayOfTheWeek(const Avalue: TDateTime): Word; 描述：

描述：DayOfTheWeek函数返回日期在一个星期中的索引值。
1 = Monday

2 = Tuesday
3 = Wednesday
4 = Thursday

5 = Friday

6 = Saturday

7 = Sunday

备注：DayOfTheWeek是服从ISO8601标准的，因为它用Monday 作为星期的开始。
DayOfWeek是不服从ISO8601的，它把Sunday作为星期的开始。
varmyDate : TDateTime;
day : array[1..7] of string;begin// 不能使用LongDayNames -因为它开始于Sunday
day[1] := 'Monday';
day[2] := 'Tuesday';
day[3] := 'Wednesday';
day[4] := 'Thursday';
day[5] := 'Friday';
day[6] := 'Saturday';
day[7] := 'Sunday';
myDate := EncodeDate(2002, 12, 25);

对于给定的TDateTime类型的日期时间，使用 DayOfTheWeek 函数能得到该日期是该星期的第几天。DayOfTheWeek 函数的返回数值为 1 到 7，其中 1 表示星期一，而 7 表示星期日。注意：DayOfTheWeek 是 ISO 8601 标准的（此标准为星期一是一周的第一天）。对于一周的第一天是星期日的标准，如果想获得星期数，请使用 DayOfWeek 函数。

  ShowMessage(IntToStr(DayOfTheWeek(Now)));

delphi获取星期函数

猜你喜欢