Форум: "Основная";
Текущий архив: 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