菜鸟求助！！如何去日期中的年月日！简单点的！谢谢了！

Question

如2005-5-5或2005-05-05如何取得年月日，就是2005，5，5啊！！
谢谢各位大侠了！

Answer 1

YourOf (now);
MonthOf (now);
DayOf (now);

Answer 2

var
  y,m,d : WORD;
begin
  DecodeDate (now,y,m,d);
end;

Answer 3

var
  present:TDateTime;
  year:word;
  month:word;
  day:word;
begin
  present := Now;
  decodedate(present,year,month,day);
end;

Answer 4

showmessage(formatdatetime('yyyy-mm-dd',now));
Date-Time Format Strings
~~~~~~~~~~~~~~~~~~~~~~~~~~
Specifier Displays
c Displays the date using the format given by the ShortDateFormat global variable, followed by the time using the format given by the LongTimeFormat global variable. The time is not displayed if the date-time value indicates midnight precisely.
d Displays the day as a number without a leading zero (1-31).
dd Displays the day as a number with a leading zero (01-31).
ddd Displays the day as an abbreviation (Sun-Sat) using the strings given by the ShortDayNames global variable.
dddd Displays the day as a full name (Sunday-Saturday) using the strings given by the LongDayNames global variable.
ddddd Displays the date using the format given by the ShortDateFormat global variable.
dddddd Displays the date using the format given by the LongDateFormat global variable.
m Displays the month as a number without a leading zero (1-12). If the m specifier immediately follows an h or hh specifier, the minute rather than the month is displayed.
mm Displays the month as a number with a leading zero (01-12). If the mm specifier immediately follows an h or hh specifier, the minute rather than the month is displayed.
mmm Displays the month as an abbreviation (Jan-Dec) using the strings given by the ShortMonthNames global variable.
mmmm Displays the month as a full name (January-December) using the strings given by the LongMonthNames global variable.
yy Displays the year as a two-digit number (00-99).
yyyy Displays the year as a four-digit number (0000-9999).
h Displays the hour without a leading zero (0-23).
hh Displays the hour with a leading zero (00-23).
n Displays the minute without a leading zero (0-59).
nn Displays the minute with a leading zero (00-59).
s Displays the second without a leading zero (0-59).
ss Displays the second with a leading zero (00-59).
z Displays the millisecond without a leading zero (0-999).
zzz Displays the millisecond with a leading zero (000-999).
t Displays the time using the format given by the ShortTimeFormat global variable.
tt Displays the time using the format given by the LongTimeFormat global variable.
am/pm Uses the 12-hour clock for the preceding h or hh specifier, and displays 'am' for any hour before noon, and 'pm' for any hour after noon. The am/pm specifier can use lower, upper, or mixed case, and the result is displayed accordingly.
a/p Uses the 12-hour clock for the preceding h or hh specifier, and displays 'a' for any hour before noon, and 'p' for any hour after noon. The a/p specifier can use lower, upper, or mixed case, and the result is displayed accordingly.
ampm Uses the 12-hour clock for the preceding h or hh specifier, and displays the contents of the TimeAMString global variable for any hour before noon, and the contents of the TimePMString global variable for any hour after noon.
/ Displays the date separator character given by the DateSeparator global variable.
: Displays the time separator character given by the TimeSeparator global variable.
'xx'/"xx" Characters enclosed in single or double quotes are displayed as-is, and do not affect formatting.

Answer 5

建议先好好看看书
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text:=FormatDatetime('yyyy',date);
  edit2.Text:=FormatDatetime('mm',date);
  edit3.Text:=FormatDatetime('dd',date);
end;

Answer 6

procedure TForm1.Button1Click(Sender: TObject);var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '
    + IntToStr(Month) + ' of Year ' + IntToStr(Year);
  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '
    + IntToStr(Hour);
end;

Answer 7

Edit1.Text:=FormatDatetime('yyyy',date);
Edit2.Text:=FormatDatetime('mm',date);
Edit3.Text:=FormatDatetime('dd',date);
ShowMessage(FormatDatetime('yyyy,mm,dd',date));//结果为：2005，1，17

Answer 8

Edit1.Text:=FormatDatetime('yyyy',date);
Edit2.Text:=FormatDatetime('mm',date);
Edit3.Text:=FormatDatetime('dd',date);
======================================
比较简单点。