根据日期值怎么得到是星期几?

Question

delphi的datatime变量怎么得到是星期几啊还有,两个datatime变量相减 得到的是什么? 怎么把这个值变成天数搞过日期换算的哥们帮帮忙!

Answer 1

uses SysUtils;
procedure TForm1.Button1Click(Sender: TObject);var
  ADate: TDateTime;
  days: array[1..7] of string;
begin
  days[1] := 'Sunday';
  days[2] := 'Monday';
  days[3] := 'Tuesday';
  days[4] := 'Wednesday';
  days[5] := 'Thursday';
  days[6] := 'Friday';
  days[7] := 'Saturday';
  ADate := StrToDate(Edit1.Text);
  ShowMessage(Edit1.Text + ' 是' + days[DayOfWeek(ADate)];
end;

Answer 2

DayOfTheWeek
Returns the day of the week represented by a TDateTime value.uses DateUtilsfunction DayOfTheWeek(const AValue: TDateTime): Word;const
  DayMonday = 1;
  DayTuesday = 2;
  DayWednesday = 3;
  DayThursday = 4;
  DayFriday = 5;
  DaySaturday = 6;

Answer 3

两个datatime变量相减得到extended值,整数部分也就是两日期之间天数。
还可以function DaysBetween(const ANow, AThen: TDateTime): Integer;得到两日期自己的间隔天数。
但注意uses DateUtils

Answer 4

>>还有,两个datatime变量相减 得到的是什么? 怎么把这个值变成天数
function DaysBetween(const ANow, AThen: TDateTime): Integer;

Answer 5

procedure TfrmMain.Timer1Timer(Sender: TObject);
var DT:TDatetime;DW:Integer;s:string;
begin
DT:=now;
DW:=Dayofweek(DT);
case DW of
     1:s:='星期日';
     2:s:='星期一';
     3:s:='星期二';
     4:s:='星期三';
     5:s:='星期四';
     6:s:='星期五';
     7:s:='星期六';
     
   end;
 StatusBar1.Panels[2].Text:=datetimetostr(now)+'  '+s;
end;

Answer 6

日期差取天数：
trunc(datetime1-datetime2)
dayofweek(now)