delphi获取当前日期是星期几功能函数

delphi获取当前日期是星期几功能函数使用FromatDate格式化函数s:=FormatDateTime('dddd', Now); 返回 星期xx 如 星期二或s:=FormatDateTime('ddd', Now);

delphi获取当前日期是星期几功能函数


使用FromatDate格式化函数

s:=FormatDateTime('dddd', Now);  返回 星期xx 如 星期二

s:=FormatDateTime('ddd', Now);   返回 周xx 如 周二


使用GetLocalTime函数

返回数值 wDayOfWeek 

function getWeek: string;

var

  d: SYSTEMTIME;

begin

  GetLocalTime(d);

  case d.wDayOfWeek of

    0: Result:= '星期天';

    1: Result:= '星期一';

    2: Result:= '星期二';

    3: Result:= '星期三';

    4: Result:= '星期四';

    5: Result:= '星期五';

    6: Result:= '星期六';

  end;

end;






相关推荐

[!--temp.pl--]