powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FormatDateTime
7 сообщений из 7, страница 1 из 1
FormatDateTime
    #32180023
-=Extreme=-ShamaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пишу:
Код: plaintext
FormatDateTime('"Date:" ddd, dd mmm yyyy hh:mm:ss "+0300"', Now))
Выдаёт:
Код: plaintext
Пн,  09  июн  2003   22 : 46 : 35  + 0300 

Хочется:
Код: plaintext
Mon,  09  Jun  2003   22 : 06 : 36  + 0300 


Как это сделать без использования массивов строк для месяцев и дней недели???
...
Рейтинг: 0 / 0
FormatDateTime
    #32180045
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
... поменять locale settings своей системы.
...
Рейтинг: 0 / 0
FormatDateTime
    #32180047
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а чтоб не извращаца - посмотреть сорцы и поменять ShortDateFormat и по моему LongDateFormat.... - короче переменные там есть такие которые при ините системы заберают инфу об етом ... и вааще - все в сырцах есть - поглади там все вроде понятно ...
...
Рейтинг: 0 / 0
FormatDateTime
    #32180054
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
гы.. поковырямшись на сон грядущий - нашел - DateTimeToString (то чо юзается твоей функциклой) в SysUtils - смотрите дальше и дышите глубжее....
и вааще юзайте сырцы - там в отличие от vs - все толково, сухо, по деловому и понятно... ))) гы вот я умный то после бутылки водки и десятка пиваса
...
Рейтинг: 0 / 0
FormatDateTime
    #32180435
-=Extreme=-ShamaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ничего того, что указывало на формат даты я не нашел, что можно было бы легко изменить.
Я понимаю, что делать надо так:
Код: plaintext
1.
2.
SysLocale.DefaultLCID :=  1033 ;
 FormatDateTime('"Date:" ddd, dd mmm yyyy hh:mm:ss "+0300"', Now);

Но это тоже не помогает!!!
Если в системе (WinXP Pro English) сменить Standarts and Formats на English (U.S.), FormatDateTime возвращает нужную строку:
Код: plaintext
Mon,  09  Jun  2003   22 : 06 : 36  + 0300 


Почему не работает SysLocale - я не понимаю! Помогите, плиз, только без "извращений"! :)
...
Рейтинг: 0 / 0
FormatDateTime
    #32180924
Dikobrazz
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Глубже надо смотреть, глубже! Вот я, покопавшись немного в исходниках, понял, как это сделать. А именно - вот так:
Код: plaintext
1.
2.
  SetThreadLocale( 1033 );
  GetFormatSettings();
  Edit1.Text:=FormatDateTime('"Date:" ddd, dd mmm yyyy hh:mm:ss "+0300"', Now);
...
Рейтинг: 0 / 0
FormatDateTime
    #32181084
-=Extreme=-ShamaN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Видать не доглядел я....
Огромное спасибо, работает :)
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / FormatDateTime
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]