Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Например есть дата 01.07.2002 есть ли стандартная функция [D5, D6]

dimanew © (2002-07-01 09:26:00)
которая напишет 1 июля 2002

vedmed (2002-07-01 11:46:00) [1]
function WinDateToStr(AFormat: string; ADate: TDateTime): string;
var
t: TSystemTime;
l: Integer;
Locale: Cardinal;
begin
Locale := ((SUBLANG_NEUTRAL shl 16) or LANG_RUSSIAN);
FillChar(t, SizeOf(t), 0);
DecodeDate(ADate, t.wYear, t.wMonth, t.wDay);
l := GetDateFormat(
Locale,//LOCALE_SYSTEM_DEFAULT,
0,
@t,
PChar(AFormat),
nil,
0);
SetLength(Result, l);
GetDateFormat(
Locale,//LOCALE_SYSTEM_DEFAULT,
0,
@t,
PChar(AFormat),
PChar(Result),
l);
end;

с форматом "dd MMMMM yyyy"

tovSuhov (2002-07-01 10:38:00) [2]
DateSeparator := " ";
ShortDateFormat := "dd MMMM YYYY";
Label1.Caption = DateToStr(MyDate);

dimanew (2002-07-01 09:40:00) [3]
а может есть каканибудь API функция, ведь если мышой навести
в трэе на часы то там пишется 1 июля 2002

tovSuhov (2002-07-01 09:32:00) [4]
IMHO, это регулируется переменной LongDateFormat

XShura (2002-07-01 09:32:00) [5]
Есть глобальная переменная var LongMonthNames: array[1..12] of string; но тама в именительном падеже, если тебе надо в другом падеже, то ручками выправи

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »