么意思博客

哈哈，今天做软件。 需要获取星期几，网上找来的代码！ 已测试过，非常好用!

哈哈，今天做软件。
需要获取星期几，网上找来的代码！
已测试过，非常好用!

function GetWeek: string;
begin
  case SysUtils.DayOfWeek(now)  of
  begin
    1: Result := '星期天';
    2: Result := '星期一';
    3: Result := '星期二';
    4: Result := '星期三';
    5: Result := '星期四';
    6: Result := '星期五';
    7: Result := '星期六';
  end;
  end;
end;