怎样知道某一天是星期几？

DayOfWeek(EncodeDate(2002, 3, 8));

解决方案 »

  1.   

    DayOfWeek()
    UnitSysutilsCategorydate/time routinesextern PACKAGE int __fastcall DayOfWeek(System::TDateTime Date);DescriptionDayOfWeek returns the day of the week of the specified date as an integer between 1 and 7, where Sunday is the first day of the week and Saturday is the seventh.
      

  2.   

    楼上朋友的回答已经很清楚了，调用该函数，根据返回值判断是星期几
    1为星期天，以此类推，可以很简单的生成一个函数如下：function GetWeek(Nowdate:TDate):string;
    var
      nowday:integer;
      weekname:array [1..7] of string;
    begin
      weekname[1]:='Sun';
      weekname[2]:='Mon';
      weekname[3]:='Tue';
      weekname[4]:='Wes';
      weekname[5]:='Thu';
      weekname[6]:='Fri';
      weekname[7]:='Sat';
      Result:=Weekname[DayofWeek(Nowdate)];
    end;当然还可以利用其他更多的数据类型来方便地处理，如使用枚举，请参看有关枚举类型的使用方式 。