DELPHI怎么样得到星期几

Question

在DELPHI中怎么才能得到当天是星期几

Answer 1

function DayOfWeek(Date: TDateTime): Integer;

Answer 2

var
  Present: TDateTime;
  Year, Month, Day: Word;
  days: array[1..7] of string;
  days[1] := '日';
  days[2] := '一';
  days[3] := '二';
  days[4] := '三';
  days[5] := '四';
  days[6] := '五';
  days[7] := '六';
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := IntToStr(Year) + '年'
                  + IntToStr(Month) + '月'
                  + IntToStr(Day) + '日'
                  + ' 星期'+days[DayOfWeek(Present)] + ' ';

Answer 3

uses 
  DateUtils;  DayOfWeek(Date);
  
  DayOfWeek()返回一个1－7的数值，1代表周一，7是周日

Answer 4

uses
  SysUtils
  
  DayOfWeek(Date);    返回一个1－7的数值，1代表周日，2代表周一，依次...Delphi7

Answer 5

楼上的高明,把DELPHI帮助汉化了.

Answer 6

procedure TForm1.FormCreate(Sender: TObject);
const
cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
label1.caption:= cWeekCn[DayOfWeek(Now)];
end;