1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
| // Вот и наша процедура :)
procedure TForm1.MonthCalendar1DblClick(Sender: TObject);
VAR
DataCalendar: string[10]; // это для даты, которую выбирает пользователь.
DataMonth, // переменная для месяца.
DataDay: integer; // переменная для дня.
BEGIN
// Для начала определимся, что из себя представляет дата.
// Для меня это - строка из 10 символов:
// ДД.ММ.ГГГГ - первые два символа - день, 4 и 5 символы - месяц, а год нам
// и не нужен-то особо...
// получаем сегодняшнюю дату с помощью функции DateToStr.
DataCalendar:= DateToStr(MonthCalendar1.Date);
// получаем месяц этой даты. Это 4 и 5 символ в строке даты.
DataMonth:= StrToInt( DataCalendar[4] + DataCalendar[5] );
// получаем день этой даты. Это 1 и 2 символы в строке даты.
DataDay:= StrToInt( DataCalendar[1] + DataCalendar[2] );
// а теперь - банальные условия на даты Знаков Зодиака.
// Я считал, что мы смотрим на "западную" дату. Ну если вы изучали зодиаки,
// то вы понимаете, о чем я говорю.
// Сначала - Водолей. (21 января - 19 февраля).
IF ((DataDay >= 21) and (DataMonth = 1))
OR ((DataDay <= 19) and (DataMonth = 2)) THEN
begin
// тут будут ваши события. Например - исчезают все надписи на этой форме,
// и появляются надписи, посвященные Водолею. Ну, вы меня поняли.
// в конце перечисления этих появлений, я бы написал exit. На всякий случай :)
end;
// Далее - Рыбы. (20 февраля - 20 марта)
IF ((DataDay >= 20) and (DataMonth = 2))
OR ((DataDay <= 20) and (DataMonth = 3)) THEN
begin
// и появляются надписи, посвященные Рыбам.
end;
// Овен. (21 марта - 20 апреля)
IF ((DataDay >= 21) and (DataMonth = 3))
OR ((DataDay <= 20) and (DataMonth = 4)) THEN
begin
// и появляются надписи, посвященные Овену.
end;
// Телец. (21 апреля - 21 мая)
IF ((DataDay >= 21) and (DataMonth = 4))
OR ((DataDay <= 21) and (DataMonth = 5)) THEN
begin
// и появляются надписи, посвященные Тельцам.
end;
// Близнецы. (22 мая - 21 июня)
IF ((DataDay >= 22) and (DataMonth = 5))
OR ((DataDay <= 21) and (DataMonth = 6)) THEN
begin
// и появляются надписи, посвященные Близнецам.
end;
// Рак. (22 июня - 23 июля)
IF ((DataDay >= 22) and (DataMonth = 6))
OR ((DataDay <= 23) and (DataMonth = 7)) THEN
begin
// и появляются надписи, посвященные Ракам.
end;
// Лев. (24 июля - 23 августа)
IF ((DataDay >= 24) and (DataMonth = 7))
OR ((DataDay <= 23) and (DataMonth = 8)) THEN
begin
// и появляются надписи, посвященные Львам.
end;
// Дева (24 августа - 23 сентября)
IF ((DataDay >= 24) and (DataMonth = 8))
OR ((DataDay <= 23) and (DataMonth = 9)) THEN
begin
// и появляются надписи, посвященные Девам.
end;
// Весы. (24 сентября - 23 октября)
IF ((DataDay >= 24) and (DataMonth = 9))
OR ((DataDay <= 23) and (DataMonth = 10)) THEN
begin
// и появляются надписи, посвященные Весам.
end;
// Скорпион (24 октября - 22 ноября)
IF ((DataDay >= 24) and (DataMonth = 10))
OR ((DataDay <= 22) and (DataMonth = 11)) THEN
begin
// и появляются надписи, посвященные Скорпионам.
end;
// Стрелец (23 ноября - 21 декабря)
IF ((DataDay >= 23) and (DataMonth = 11))
OR ((DataDay <= 21) and (DataMonth = 12)) THEN
begin
// и появляются надписи, посвященные Стрельцам.
end;
// Козерог. (22 декабря - 20 января)
IF ((DataDay >= 22) and (DataMonth = 12))
OR ((DataDay <= 20) and (DataMonth = 1)) THEN
begin
// и появляются надписи, посвященные Козерогам.
end;
END; |
(
Сообщение было отмечено как решение
