Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.23;
Скачать: CL | DM;

Вниз

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

 
Гена   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-73100
ДЖИН
2002-05-12 18:19
2002.05.23
Как записать изображение в буфер???


7-73410
Dmitry V. Averuanov
2002-02-25 18:47
2002.05.23
Как выключить ATX под DOS-ом ?


7-73416
Hokum
2002-02-18 16:39
2002.05.23
Скрыть элементы рабочего стола


1-73136
Art1
2002-05-13 16:03
2002.05.23
Как получить управление программой?


4-73446
SuperIgor
2002-03-19 05:10
2002.05.23
Как свернуть все окна???