Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Вниз

---|Ветка была без названия|---   Найти похожие ветки 

← →
Гена   (2002-05-14 04:43) [0]

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

---

← →
BAHO   (2002-05-14 05:33) [1]


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 Мая Среда"

---

← →
DeMoN-777   (2002-05-14 08:28) [2]

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

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.05.23;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.037 c