| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Дни недели [D6, D7, Win95/98, Win2k, WinXP]

spoyler ©   (2004-08-21 21:51:00) 

Возник интересный вопрос. В программе нужно получить список дней недели. С определением по дате проблем нет, зато возникает уже другой вопрос.
Вроде как в стандартных средствах Delphi вроде TMonthCalendar день недели использует уже настройки локализации Windows, то есть день недели пишется уе на локальном языке.
Как же определить день недели через API без использования массивов их наименованиями? И вдогонку: отобразить формат даты по выбранному в ОС формату?

---

Woolen   (2004-08-30 14:04:00) [1]

> Вроде как в стандартных средствах Delphi вроде TMonthCalendar
> день недели использует уже настройки локализации Windows,
> то есть день недели пишется уе на локальном языке.
> Как же определить день недели через API без использования
> массивов их наименованиями?


> А мне нужно как раз по этому индексу получить стринг с днем
> недели.

Я, навреное, чего-то не понимаю... Так ты хочешь наименование дня или его порядковый номер? Если наименование, так почему тебе не нужно наименование? Если номер, так почему тебе тогда и он не нужен? Или ты хочешь получить в русской винде наименование дня на бенгальском?

---

_sulent   (2004-08-27 08:14:00) [2]

 
 R.RootKey:=HKEY_CURRENT_USER;
 If R.OpenKey('\Control Panel\International', false) then
  Begin
   sDecimal:=R.ReadString('sDecimal');
   if sDecimal<>'.' then
    begin
      if MessageDlg('Warning! Value "Decimal separator" in registry not equal "." ! '+
                       'Current value: "'+sDecimal+'". Exchange this key?', mtError,[mbYes, mbNo],0)=mrYes then
        R.WriteString('sDecimal', '.');
    end;

   IF R.ValueExists('sShortDate') then
    Begin
     sShortDate:=R.ReadString('sShortDate');
     if sShortDate<>'dd.MM.yy' then
      begin
        if MessageDlg('Warning! Value "Short date format" in registry not equal "dd.MM.yy" ! '+
                         'Current value: "'+sShortDate+'". Exchange this key?', mtError,[mbYes, mbNo],0)=mrYes then
         begin
          R.WriteString('sShortDate', 'dd.MM.yy');
          R.CloseKey;
         end;
      end;
    end;
  end;

 R.Free;

что-то типа того

---

QuasiLamo   (2004-08-26 21:45:00) [3]

HKEY_USERS\.DEFAULT\Control Panel\International
sShortDate

---

GuAV   (2004-08-23 00:56:00) [4]

GetLocaleInfo
LOCALE_SABBREVDAYNAME1, ...

PS: Ctrl+Click - rulezz.

---

Юрий Зотов   (2004-08-22 22:02:00) [5]

FormatDateTime
или
DateTimeToSystemTime + GetDateFormat

Можно получить что угодно, включая и день недели в стринговом виде.

---

spoyler   (2004-08-22 21:51:00) [6]

Если есть в реестре, значит, есть функции API, позволяющие все это получить.
З.Ы. Regedit по поиску ничего не выдает. ;(

---

spoyler   (2004-08-22 21:49:00) [7]

Dayofweek возвращает индекс в массиве дней недели, заполнять его надо ручками. Или я не прав?
<-- -->
DayOfWeek returns the day of the week of the specified date as an integer between 1 and 7, where Sunday is the first day of the week and Saturday is the seventh.
<-- -->
А мне нужно как раз по этому индексу получить стринг с днем недели.

---

QuasiLamo   (2004-08-21 21:55:00) [8]

Dayofweek не подходит разве?

---

QuasiLamo   (2004-08-21 21:55:00) [9]

>  вдогонку: отобразить формат даты по выбранному в ОС
> формату?

это хранится в реестре где то в виде строки

---

Наверх