如何显示这样的日期？(50分)

如何显示这样的日期形式，以后个月都如此，并能随年月自动更新。

2002年09月 2002年09月 2002年09月

01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

没什么难的嘛

不明白你想問什麼.

我的拿手
上面放三个DateTimePicker

下面放31个Label

每次打开窗口来个循环给Label赋上值

关键是判断是否是闰年:
var
Yr, Mnth, Day: Word;

DecodeDate(Date, Yr, Mnth, Day);
case Mnth of
1,3,5,7,8,10,12: DayNum:=31;
4,6,9,11: DayNum:=30;
2: begin
if IsLeapYear(YearOf(Date)) then
DayNum:=29
else
DayNum:=28;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
days: array[1..7] of string;
begin
days[1] :='星期日'; //'Sunday';
days[2] := '星期一';//'Monday';
days[3] := '星期二';//'Tuesday';
days[4] :='星期三';// 'Wednesday';
days[5] :='星期四';// 'Thursday';
days[6] := '星期五';//'Friday';
days[7] :='星期六';// 'Saturday';
ShowMessage('Today:' + days[DayOfWeek(Date)]);
end;

520zhuhaibo，请问DecodeDate(Date, Yr, Mnth, Day);是过程，还是函数，
写在哪？

看看delphi的控件原马，自己改就是了。
这样水平才会快速的提高

一生中最爱,怎么看控件源码？

delphi目录下有source目录，里头有。
时间控件的代码是那个，在form上增加一个控件，保存，新增的单元应该就是。
按F1，帮助中指出了在那个单元

多人接受答案了。