Скачать: CL | DM;

Какой сегодня день недели?   Найти похожие ветки 

← →
Dr. Genius   (2004-10-11 09:39) [0]

Вопрос, думаю, из оригинальных. Меня не устраивает то, что функции TimeToStr, DateToStr и DateTimeToStr выводят дату и время в неудобочитаемом формате. Поэтому я написал функцию, которая выводит дату в следующем виде: 11 октября 2004 г. Но я ещё хочу сделать, чтобы выводился день недели. Итак, как можно узнать день недели (понедельник, вторник, среда...)?

---

← →
КаПиБаРа ©   (2004-10-11 09:42) [1]

Dr. Genius   (11.10.04 9:39)
F1 - DayOfWeek, FormatDateTime

---

← →
KSergey ©   (2004-10-11 09:47) [2]

> [1] КаПиБаРа ©   (11.10.04 09:42)

+ case of

---

← →
MBo ©   (2004-10-11 09:49) [3]

>которая выводит дату в следующем виде: 11 октября 2004 г.
GetDateFormat

---

← →
КаПиБаРа ©   (2004-10-11 09:49) [4]

KSergey ©   (11.10.04 9:47) [2]
Зачем case of?
ArrayDaysOfWeek!

---

← →
KSergey ©   (2004-10-11 09:51) [5]

> [4] КаПиБаРа ©   (11.10.04 09:49)
> Зачем case of?
> ArrayDaysOfWeek!

Я сначала написал - потом подумал... Но было поздно ;)

---

← →
MBo ©   (2004-10-11 09:58) [6]

function DateFormatStr(ADate: TDate; AFormat: String): String;
var
 st: TSystemTime;
 buffer: array [0..$FFF] of Char;
begin
 DateTimeToSystemTime(ADate, st);
 Win32Check(GetDateFormat( LOCALE_USER_DEFAULT,
                           0,
                           @st,
                           Pointer(AFormat),
                           buffer,
                           SizeOf(buffer)) > 0);
 Result := buffer;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption := DateFormatStr(Date, LongDateFormat+", dddd");
end;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c