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

Вниз

Время в местном формате   Найти похожие ветки 

 
igor-567   (2005-09-14 04:14) [0]

Кто-нибудь знает, как получить время в местном формате?
Например «9 сентября 2005 года», а не как дает DateTimeToString «9 сентябрь 2005».
Но я имею ввиду не только русский формат, а формат юзера.


 
Джо ©   (2005-09-14 04:46) [1]

В таком духе:

procedure TForm1.Button1Click(Sender: TObject);
var
 Buf: PChar;
 Sz: Integer;
begin
 Sz := GetDateFormat(LOCALE_USER_DEFAULT,DATE_LONGDATE,nil,nil,Buf,0);
 if Sz = 0 then
   RaiseLastOSError;
 GetMem (Buf,Sz);
 try
   GetDateFormat(LOCALE_USER_DEFAULT,DATE_LONGDATE,nil,nil,Buf,Sz);
   ShowMessage(Buf);
 finally
   FreeMem (Buf);
 end;
end;

Может, где и описался, уже глаза слипаются, но вроде работает.


 
igor-567   (2005-09-14 22:50) [2]

РАБОТАЕТ!!!!!!!!!!!!!!!!!!!
БОООООООООООООЛЬШОЕ  СПАСИБО!!!!!!!!!!!!!!!!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.033 c
3-1124792958
Juice
2005-08-23 14:29
2005.10.09
Что в FIBPlus-компонентах вызывать вместо first, prior ?


2-1124995883
rts111
2005-08-25 22:51
2005.10.09
Как програмно создать простую таблицу *.xls?


6-1118755977
Vulko
2005-06-14 17:32
2005.10.09
Получить картинку (файл) с сервера...


5-1102363739
FunkyByte
2004-12-06 23:08
2005.10.09
Помогите найти (или сделать) StringGrid с необычными свойствами


14-1127127222
pazitron_brain
2005-09-19 14:53
2005.10.09
Кто-нибудь слышал/использовал xoops?