calendar 的年,月,日,要如何分開,個別顯示

Uses
DateUtils;
其中的 YearOf, MonthOf, DayOf 函式可以滿足你的需求～
===================引 用 文 章===================
calendar 的年,月,日,要如何分開,個別顯示

uses
DateUtils;
procedure TForm1.FormCreate(Sender: TObject);
begin
Memo1.Clear;
Memo1.Lines.Add(IntToStr(YearOf(Now)));
Memo1.Lines.Add(IntToStr(MonthOf(Now)));
Memo1.Lines.Add(IntToStr(DayOf(Now)));
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

打錯了, 是datetimepicker 下如何把年月日分開個別顯示.

您用哪一版 Delphi ? Datetimepicker 是標準的元件? 還是 3rd Party 元件 ?
小弟在 Delphi 7 Enterprise 中按下 F1 沒有相關說明, 去 Windows SDK 中找也沒有
用 Google 查到點資料
Datetimepicker1.date:=now;
datetimepicker2.Time:=now;
-----------------------------------
在一個QUERY中放入代碼
insert into table1(date1)
values(:date1)

然後在程序中這様做
with query do
begin
parambyname('date1').asdatetime:=datetimepicker1.datetime;
prepare;
execsql;
end;
Top
-----------------------------------
用fomatdatetime(datetimepicker1.value,'yyyy-mm-dd');

===================引 用 文 章===================
打錯了, 是datetimepicker 下如何把年月日分開個別顯示.

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

感謝各位, 以想到解決方法