это форма главная в ней время генерируется сл.образом
procedure
TForm1
.
FormCreate(Sender: TObject);
begin
Day:=
1
; Mes:=
1
; God:=
2009
;
end
;
procedure
TForm1
.
FormShow(Sender: TObject);
begin
Panel1
.
Caption:=IntToStr(Day);
if
Mes=
1
then
Panel2
.
Caption:=
'январь'
;
if
Mes=
2
then
Panel2
.
Caption:=
'февраль'
;
if
Mes=
3
then
Panel2
.
Caption:=
'март'
;
if
Mes=
4
then
Panel2
.
Caption:=
'апрель'
;
if
Mes=
5
then
Panel2
.
Caption:=
'май'
;
if
Mes=
6
then
Panel2
.
Caption:=
'июнь'
;
if
Mes=
7
then
Panel2
.
Caption:=
'июль'
;
if
Mes=
8
then
Panel2
.
Caption:=
'август'
;
if
Mes=
9
then
Panel2
.
Caption:=
'сентябрь'
;
if
Mes=
10
then
Panel2
.
Caption:=
'октябрь'
;
if
Mes=
11
then
Panel2
.
Caption:=
'ноябрь'
;
if
Mes=
12
then
Panel2
.
Caption:=
'декабрь'
;
Panel3
.
Caption:=IntToStr(God);
end
;
procedure
TForm1
.
BitBtn1Click(Sender: TObject);
Label
A;
begin
Day:=
0
;
repeat
Day:=Day+
1
;
if
Mes=
1
then
begin
if
Day=
32
then
begin
Day:=
1
; Mes:=
2
;
Goto
A;
end
;
end
;
if
Mes=
2
then
begin
if
Day=
29
then
begin
Day:=
1
; Mes:=
3
;
Goto
A;
end
;
end
;
if
Mes=
3
then
begin
if
Day=
32
then
begin
Day:=
1
; Mes:=
4
;
Goto
A;
end
;
end
;
if
Mes=
4
then
begin
if
Day=
31
then
begin
Day:=
1
; Mes:=
5
;
Goto
A;
end
;
end
;
if
Mes=
5
then
begin
if
Day=
32
then
begin
Day:=
1
; Mes:=
6
;
Goto
A;
end
;
end
;
if
Mes=
6
then
begin
if
Day=
31
then
begin
Day:=
1
; Mes:=
7
;
Goto
A;
end
;
end
;
if
Mes=
7
then
begin
if
Day=
32
then
begin
Day:=
1
; Mes:=
8
;
Goto
A;
end
;
end
;
if
Mes=
8
then
begin
if
Day=
32
then
begin
Day:=
1
; Mes:=
9
;
Goto
A;
end
;
end
;
if
Mes=
9
then
begin
if
Day=
31
then
begin
Day:=
1
; Mes:=
10
;
Goto
A;
end
;
end
;
if
Mes=
10
then
begin
if
Day=
32
then
begin
Day:=
1
; Mes:=
11
;
Goto
A;
end
;
end
;
if
Mes=
11
then
begin
if
Day=
31
then
begin
Day:=
1
; Mes:=
12
;
Goto
A;
end
;
end
;
if
Mes=
12
then
begin
if
Day=
32
then
begin
Day:=
1
; Mes:=
1
; God:=God+
1
;
Goto
A;
end
;
end
;
A:
Panel1
.
Caption:=IntToStr(Day);
if
Mes=
1
then
Panel2
.
Caption:=
'январь'
;
if
Mes=
2
then
Panel2
.
Caption:=
'февраль'
;
if
Mes=
3
then
Panel2
.
Caption:=
'март'
;
if
Mes=
4
then
Panel2
.
Caption:=
'апрель'
;
if
Mes=
5
then
Panel2
.
Caption:=
'май'
;
if
Mes=
6
then
Panel2
.
Caption:=
'июнь'
;
if
Mes=
7
then
Panel2
.
Caption:=
'июль'
;
if
Mes=
8
then
Panel2
.
Caption:=
'август'
;
if
Mes=
9
then
Panel2
.
Caption:=
'сентябрь'
;
if
Mes=
10
then
Panel2
.
Caption:=
'октябрь'
;
if
Mes=
11
then
Panel2
.
Caption:=
'ноябрь'
;
if
Mes=
12
then
Panel2
.
Caption:=
'декабрь'
;
Panel3
.
Caption:=IntToStr(God);
Application
.
ProcessMessages;
sleep(
400
);
until
God>=
2070
;
end
;
procedure
TForm1
.
Button2Click(Sender: TObject);
begin
Day:=
1
;
Panel1
.
Caption:=IntToStr(Day);
if
Mes=
1
then
begin
Mes:=
2
; Panel2
.
Caption:=
'февраль'
;
end
;
if
Mes=
2
then
begin
Mes:=
3
; Panel2
.
Caption:=
'март'
;
end
;
if
Mes=
3
then
begin
Mes:=
4
; Panel2
.
Caption:=
'апрель'
;
end
;
if
Mes=
4
then
begin
Mes:=
5
; Panel2
.
Caption:=
'май'
;
end
;
if
Mes=
5
then
begin
Mes:=
6
; Panel2
.
Caption:=
'июнь'
;
end
;
if
Mes=
6
then
begin
Mes:=
7
; Panel2
.
Caption:=
'июль'
;
end
;
if
Mes=
7
then
begin
Mes:=
8
; Panel2
.
Caption:=
'август'
;
end
;
if
Mes=
8
then
begin
Mes:=
9
; Panel2
.
Caption:=
'сентябрь'
;
end
;
if
Mes=
9
then
begin
Mes:=
10
; Panel2
.
Caption:=
'октябрь'
;
end
;
if
Mes=
10
then
begin
Mes:=
11
; Panel2
.
Caption:=
'ноябрь'
;
end
;
if
Mes=
11
then
begin
Mes:=
12
; Panel2
.
Caption:=
'декабрь'
;
end
;
if
Mes=
12
then
begin
Mes:=
1
; Panel2
.
Caption:=
'январь'
;
God:=StrToInt(panel3
.
Caption);
God:=God+
1
;
Panel3
.
Caption:=IntToStr(God);
end
;
end
;
procedure
TForm1
.
Button3Click(Sender: TObject);
Label
A;
begin
if
Mes=
1
then
begin
Day:=
1
; Mes:=
2
;
Goto
A;
end
;
if
Mes=
2
then
begin
Day:=
1
; Mes:=
3
;
Goto
A;
end
;
if
Mes=
3
then
begin
Day:=
1
; Mes:=
4
;
Goto
A;
end
;
if
Mes=
4
then
begin
Day:=
1
; Mes:=
5
;
Goto
A;
end
;
if
Mes=
5
then
begin
Day:=
1
; Mes:=
6
;
Goto
A;
end
;
if
Mes=
6
then
begin
Day:=
1
; Mes:=
7
;
Goto
A;
end
;
if
Mes=
7
then
begin
Day:=
1
; Mes:=
8
;
Goto
A;
end
;
if
Mes=
8
then
begin
Day:=
1
; Mes:=
9
;
Goto
A;
end
;
if
Mes=
9
then
begin
Day:=
1
; Mes:=
10
;
Goto
A;
end
;
if
Mes=
10
then
begin
Day:=
1
; Mes:=
11
;
Goto
A;
end
;
if
Mes=
11
then
begin
Day:=
1
; Mes:=
12
;
Goto
A;
end
;
if
Mes=
12
then
begin
Day:=
1
; Mes:=
1
; God:=God+
1
;
Goto
A;
end
;
A:
Panel1
.
Caption:=IntToStr(Day);
if
Mes=
1
then
Panel2
.
Caption:=
'январь'
;
if
Mes=
2
then
Panel2
.
Caption:=
'февраль'
;
if
Mes=
3
then
Panel2
.
Caption:=
'март'
;
if
Mes=
4
then
Panel2
.
Caption:=
'апрель'
;
if
Mes=
5
then
Panel2
.
Caption:=
'май'
;
if
Mes=
6
then
Panel2
.
Caption:=
'июнь'
;
if
Mes=
7
then
Panel2
.
Caption:=
'июль'
;
if
Mes=
8
then
Panel2
.
Caption:=
'август'
;
if
Mes=
9
then
Panel2
.
Caption:=
'сентябрь'
;
if
Mes=
10
then
Panel2
.
Caption:=
'октябрь'
;
if
Mes=
11
then
Panel2
.
Caption:=
'ноябрь'
;
if
Mes=
12
then
Panel2
.
Caption:=
'декабрь'
;
Panel3
.
Caption:=IntToStr(God);
end
;
procedure
TForm1
.
Button1Click(Sender: TObject);
begin
Day:=
1
; Mes:=
1
; God:=
2009
;
Panel1
.
Caption:=IntToStr(Day);
if
Mes=
1
then
Panel2
.
Caption:=
'январь'
;
Panel3
.
Caption:=IntToStr(God);
end
;
<font color="Red">Admin:</font> Учимся пользоваться тегами!
время выводится в виде
3
панелей, на
1
=число, на
2
=месяц и
3
= год.