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

Вниз

Формат даты для "разных стран"   Найти похожие ветки 

 
DimonNew   (2005-12-08 11:40) [0]

Привет, подскажите пожалуста, можно ли средставми Дельфи вывести формат даты, чтобы например, если формат вида "mmmm,dd,yy" название месяца можно было выводить либо на русском языке, либо на английском. На русском то выводит, а вот как на английском или немецком?


 
Плохиш ©   (2005-12-08 11:44) [1]

Хм, зачем для немца выводить дату по-русски?


 
DimonNew   (2005-12-08 11:52) [2]

вот я и спрашивая, как, а не зачем?


 
Плохиш ©   (2005-12-08 12:00) [3]

Дата будет выведена на языке установленном в системе.


 
DimonNew   (2005-12-08 12:16) [4]

Это верно, не спорю, но я формирую документ в русской системе для немца.


 
Плохиш ©   (2005-12-08 12:30) [5]

Поставь в "настройках страны" "Стандарты и форматы" немецкий(Германия)


 
MU ©   (2005-12-08 13:01) [6]

uses Windows, ...
function LocaleDate(const DT : TDateTime; const LocaleID : LCID; const sFormat : String = "d MMMM yyyy") : string;
var
 TempSysTime: TSystemTime;
 FineDate: array[0..100] of Char;
begin
 DateTimeToSystemTime(DT,TempSysTime); // ïðèâîäèì ê ñèñòåìíîìó âèäó
 GetDateFormat(LocaleID,// locale for which date is to be formatted
              DATE_USE_ALT_CALENDAR, // flags specifying function options
              @TempSysTime, // date to be formatted
              PChar(sFormat), // date format string
              @FineDate, // buffer for storing formatted string
              100 // size of buffer
 );
 Result :=  FineDate; //
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 LangID : Word;
 LocaleID : Cardinal;
begin
 LangID :=   (SUBLANG_GERMAN shl 10) or LANG_GERMAN;
 LocaleID := (SORT_DEFAULT shl 16) or LangID;
 ShowMessage(LocaleDate(Now, LocaleID, "MMMM dd yyyy"));
 ShowMessage(LocaleDate(Now, LOCALE_SYSTEM_DEFAULT, "MMMM dd yyyy"));
end;


 
DimonNew   (2005-12-08 14:05) [7]

Большое спасибо MU ©



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

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
4-1130855969
jeka_t
2005-11-01 17:39
2006.01.08
Можно ли PRN-файлы (бинарный файл) показать в PreviewPrinter?


8-1122757793
ASDQWE
2005-07-31 01:09
2006.01.08
Есть ли в delphi 7 что-то типа sound,delay,nosound как turbo pasc


14-1134380249
Piter
2005-12-12 12:37
2006.01.08
Умер Роберт Шекли


5-1120679553
SpyBoy
2005-07-06 23:52
2006.01.08
Разбиение ListBox а


14-1134623082
begin...end
2005-12-15 08:04
2006.01.08
С Днём рождения! 15 декабря