| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

---|Ветка была без названия|---

Гена ©   (2002-05-14 04:43:00) 

Подскажите как узнать день и месяц и записать их в стринг.

---

DeMoN-777   (2002-05-14 08:28:00) [1]

или так, цифрами

Label1.Text := FormatDateTime("dd.mm.yyyy", now);

---

BAHO   (2002-05-14 05:33:00) [2]


var
day,month,resultat:string;
begin
DateTimeToString(day,"d",date);
DateTimeToString(month,"m",date);
case strtoint(month)
of
1:month:="Января";
2:month:="Февраля";
3:month:="Марта";
4:month:="Апреля";
5:month:="Мая";
6:month:="Июня";
7:month:="Июля";
8:month:="Августа";
9:month:="Сентября";
10:month:="Октября";
11:month:="Ноября";
12:month:="Декабря";
end;
case dayofweek(now)
of
2:resultat:=day+" "+month+" "+"Понедельник";
3:resultat:=day+" "+month+" "+"Вторник";
4:resultat:=day+" "+month+" "+"Среда";
5:resultat:=day+" "+month+" "+"Четверг";
6:resultat:=day+" "+month+" "+"Пятница";
7:resultat:=day+" "+month+" "+"Суббота";
1:resultat:=day+" "+month+" "+"Воскресенье";
end;
В переменной resultat будет примерно следующее "15 Мая Среда"

---

Наверх