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)));

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值