delphi,取选择日期的年份

在 Delphi 中，可以使用 TDateTimePicker 控件来选择日期。要获取选择日期的年份，可以使用以下代码：

var
  selectedDate: TDateTime;
  selectedYear: Word;
begin
  selectedDate := DateTimePicker1.Date; // DateTimePicker1 是 TDateTimePicker 控件
  selectedYear := YearOf(selectedDate);
  ShowMessage(IntToStr(selectedYear)); // 显示选择日期的年份
end;

其中，YearOf 函数可用于获取给定日期的年份。

相关问题

根据日期取星期 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;

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

delphi7定义日期

在 Delphi 7 中，可以使用 TDateTime 类型来表示日期和时间。TDateTime 类型实际上是一个双精度浮点数，它的整数部分表示日期，小数部分表示时间。Delphi 7 中的日期是从 1899 年 12 月 30 日开始计算的。

可以使用以下方法来定义日期：

1. 直接赋值日期常量，例如：`var DateValue: TDateTime; DateValue := 43900;`，43900 表示从 1899 年 12 月 30 日开始的第 43900 天。

2. 使用 `EncodeDate` 函数来生成日期，例如：`var DateValue: TDateTime; DateValue := EncodeDate(2021, 8, 18);`，这将生成 2021 年 8 月 18 日的日期。

3. 使用 `StrToDate` 函数将字符串转换为日期，例如：`var DateValue: TDateTime; DateValue := StrToDate('2021-08-18');`，这将生成 2021 年 8 月 18 日的日期。

注意，在 Delphi 7 中使用日期时，需要使用 DateUtils 单元来进行日期的计算和处理。