Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Вниз
День недели Найти похожие ветки
← →
Skin (2002-08-12 21:30) [0]Уважаемые мастера, подскажите пожалуйста как мне сделать чтобы форма показывала какой сегодня день недели?
← →
TAlex (2002-08-12 21:35) [1]ShowMessage(FormatDateTime("dddd",Now))
Правда день недели будет с маленькой буквы. Но это поправимо.
← →
rhf (2002-08-12 23:07) [2]или так
dayOfWeek(now) // из sysUtils
вернет порядковый номер текущего дня недели - отсчет ведеться с воскресения
dayOfTheWeek(now) // из DateUtils
аналагично, но отчет ведется с понедельника
названия дней можно придумать самому :)
ЗЫ ну или можно самому по алгоритмам высчитать день недели
← →
Tornado (2002-08-13 08:44) [3]Еще как вариант:
var days: array[1..7] of string;
ADate: TDateTime;
begin
days[1] := "Воскресенье";
days[2] := "Понедельник";
days[3] := "Вторник";
days[4] := "Среда";
days[5] := "Четверг";
days[6] := "Пятница";
days[7] := "Суббота";
ADate := Date();
Label1.Caption := Datetostr(Date()) + " " + days[DayOfWeek(ADate)];
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c