delphi取星期几

在Delphi编程环境中，你可以使用内置的`DateUtils`单元中的`WeekDay`函数来获取当前日期对应的星期几。这个函数会返回一个范围在1到7之间的整数，其中1代表星期一，2代表星期二，依此类推，直到7代表星期日。

例如，下面是一个简单的示例：

uses DateUtils;

var
  DayOfWeek: TDayOfWeek;
begin
  DayOfWeek := WeekDay; // 获取当前日期的星期
  case DayOfWeek of
    wdSunday: WriteLn('今天是星期天');
    wdMonday..wdSaturday: WriteLn('今天是工作日');
  end;
end;

如果你想直接得到字符串表示的星期几，可以使用`DaysOfTheWeek`枚举，配合`OrdinalToWeekday`函数：

var
  DayOfWeekStr: string;
begin
  DayOfWeekStr := OrdinalToWeekday(WeekDay);
  WriteLn('今天是' + DayOfWeekStr);
end;

相关问题

根据日期取星期 delphi7

要根据日期取星期，我们可以使用Delphi7中的TDateTimePicker组件和DateUtils单元来实现。

首先，在Delphi7窗体上放置一个TDateTimePicker组件，并设置其日期格式为短日期格式。然后在代码中引入DateUtils单元。

接下来，我们可以在某个按钮的点击事件中编写代码来实现。

我们首先将TDateTimePicker组件的日期值转换为TDate类型的变量。然后通过使用DayOfWeek函数来获取该日期对应的星期几的整数值，整数值从1（周日）到7（周六）。

最后，我们可以使用DateToStr函数将整数值转换为星期几的字符串进行显示。

下面是代码示例：

procedure TForm1.Button1Click(Sender: TObject);
var
selectedDate: TDate;
weekDay: Integer;
weekDayStr: string;
begin
selectedDate := DateTimePicker1.Date;
weekDay := DayOfWeek(selectedDate);

case weekDay of
1: weekDayStr := '星期日';
2: weekDayStr := '星期一';
3: weekDayStr := '星期二';
4: weekDayStr := '星期三';
5: weekDayStr := '星期四';
6: weekDayStr := '星期五';
7: weekDayStr := '星期六';
end;

ShowMessage('选择的日期是：' + DateToStr(selectedDate) + '，对应的星期是：' + weekDayStr);
end;

通过上述代码，我们就可以根据日期取出相应的星期。当点击按钮时，会弹出一个消息框，显示选择的日期和对应的星期。