delphi - TDateTimePicker delphi 获取年月

Question

我有一个内置 SQL 的 SP，它有 2 个参数，一个是年，另一个是月。

在 delphi 中，我在框架上添加了一个 TDateTimePicker，以便让用户选择月份和年份。

如何从 TDateTimePicker 中重试年/日的值？

我试过 DateTimePicker2.Date; 但这给了我一个格式为“xx/xx/xxxx”的日期

我想得到实际的年/月

类似

int year ;
year :=  DateTimePicker2.Date.Year;

有什么方法可以实现吗？

Answer 1

正如 TLama 所说，您可以像这样使用 DecodeDate 函数:-

Var
  lDay,
  lMonth,
  lYear : Word;
Begin
  DecodeDate(DateTimePicker2.Date, lDay, lMonth, lYear);
  MyStoredProc.Params[0].AsInteger := lDay;
  MyStoredProc.Params[1].AsInteger := lMonth;
  MyStoredProc.Execute;
End;