powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Определение формата даты
8 сообщений из 8, страница 1 из 1
Определение формата даты
    #32305034
Free2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет!
Я сталкивался следующей проблемой
Как определить формат системной даты, который устанавливается Control Panel?
Спосибо!
...
Рейтинг: 0 / 0
Определение формата даты
    #32305050
viceroy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
формат системной даты прописан в реестре: в ХР, например - HKEY_CURRENT_USER\Control Panel\International. ....Может от этого и стоит отталкиваться.
...
Рейтинг: 0 / 0
Определение формата даты
    #32305061
Free2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А как в нем разбиратся?
a ведь там

(Default) (value not set)
locate "00000419"
...
Рейтинг: 0 / 0
Определение формата даты
    #32305111
viceroy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
??? не знаю.... у меня вот такое
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
[HKEY_CURRENT_USER\Control Panel\International]
 "iCountry" = "7 "
 "iCurrDigits" = "2 "
 "iCurrency" = "1 "
 "iDate" = "1 "
 "iDigits" = "2 "
 "iLZero" = "1 "
 "iMeasure" = "0 "
 "iNegCurr" = "5 "
 "iTime" = "1 "
 "iTLZero" = "0 "
 "Locale" = "00000419 "
 "s1159" = ""
" s2359 "="  "
" sCountry "=" Россия "
" sCurrency "=" р. "
" sDate "=" . "
" sDecimal "=" , "
" sLanguage "=" RUS "
" sList "=" ; "
" sLongDate "=" d MMMM yyyy 'г.' "
" sShortDate "=" dd.MM.yyyy "
" sThousand "="   "
" sTime "=" : "
" sTimeFormat "=" H:mm:ss "
" iTimePrefix "="  0  "
" sMonDecimalSep "=" , "
" sMonThousandSep "="   "
" iNegNumber "="  1  "
" sNativeDigits "="  0123456789  "
" NumShape "="  1  "
" iCalendarType "="  1  "
" iFirstDayOfWeek "="  0  "
" iFirstWeekOfYear "="  0  "
" sGrouping "="  3 ; 0  "
" sMonGrouping "="  3 ; 0  "
" sPositiveSign "="  "
" sNegativeSign "=" - "

[HKEY_CURRENT_USER\Control Panel\International\Geo]
" Nation "="  203 "

кроме того тебе ведь не locate нужно,насколько я понял, а формат системной даты... - а это: sLongDate, sShortDate, sDate
...
Рейтинг: 0 / 0
Определение формата даты
    #32305121
viceroy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
попробуй вот так:

var
s: array[1..100] of AnsiChar;
begin
GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SLONGDATE, @s, SizeOf(s));
ShowMessage(s);
end;
.....
по моему, это то что тебе надо!
...
Рейтинг: 0 / 0
Определение формата даты
    #32305204
Фотография S.G.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можно просто из программы посмотреть значения системных переменных:
LongDateFormat;
ShortDateFormat;
DateSeparator и т.д
...
Рейтинг: 0 / 0
Определение формата даты
    #32307065
Free2003
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну должен же быт какое небудь решение?
...
Рейтинг: 0 / 0
Определение формата даты
    #32307276
§Oliver
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
автор писал:Как определить формат системной даты, который устанавливается Control Panel?

Как раз эта инфа и находится в
[HKEY_CURRENT_USER\Control Panel\International]

GetLocaleInfo - как раз выдаст тебе инфу......

В чем проблема сообственно!!!!!!
..не...может ты не веришь - то открой хелп по Win32 Developer"s References и найди Locale Information:
автор писал:
....LOCALE_IDEFAULTCODEPAGE

Original equipment manufacturer (OEM) code page associated with the country. The maximum number of characters allowed for this string is 6.

LOCALE_SLIST

Character(s) used to separate list items. For example, a comma is used in many locales.

LOCALE_IMEASURE

System of measurement. This value is 0 if the metric system (Systéme International d'Unités, or S.I.) is used and 1 if the U.S. system is used. The maximum number of characters allowed for this string is 2.

LOCALE_SDECIMAL

Character(s) used as the decimal separator...............

...или может я не правильно понял что тебе надо - так объясни поподробнее!!
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Определение формата даты
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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