ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дата в строку с спряжением месяцев
12 сообщений из 12, страница 1 из 1
Дата в строку с спряжением месяцев
    #33965034
Фотография Denis Lee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis Lee
Участник
Вопрос возможно, глупый, но мне очень интересно есть ли какая нибудь системная реализация.

Меня немного напрягает

1 август 2006 -> хочу 1 августа 2006
и так далее

июнь -> июня

написать непроблема
как вариает я бы зделал вот так
Код: plaintext
1.
2.
3.
4.
5.
6.
 LongMonthNames[ 1 ]:='января';
  // здесь другие месяцы 
  // здесь другие месяцы 
                       //ниже пример с январём 
 Edit1.Text:=FormatDateTime('d MMMM yyyy', StrToDate('20.1.2006'));
  // здесь востанавливаю LongMonthNames


Я уверен что есть в системе стандартная фича или как или где , например наводя курсор на дату в ввинде я вижу всё в правильном падеже....
...
Рейтинг: 0 / 0
05.09.2006, 13:29
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965051
Карабас Барабас
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Карабас Барабас
Участник
Сделай список названий месяцев в правильных падежах по порядку чисел даты
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
05.09.2006, 13:32
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965060
Карабас Барабас
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Карабас Барабас
Участник
тьфу, отставить, не вчитался в вопрос :)
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
05.09.2006, 13:34
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965063
Карабас Барабас
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Карабас Барабас
Участник
По сабжу - уверен, что в поиске есть ответ
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
05.09.2006, 13:35
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965101
Фотография Denis Lee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis Lee
Участник
Ответа на данном форму я не нашёл, гугл тож что то не сильно подсказывает.
Реализовать как я показал непроблема но хотелось бы знать как реализовать классно, вместо 14 сток, 2-мя.

мне всё названия месяцов нужны только в родительном падеже, я могу их заменить вот так, но думаю что есть нормальный подход

LongMonthNames[1]:='января';
LongMonthNames[1]:='февраля';

Надеюсь вы поняли...


Карабас Барабас
По сабжу - уверен, что в поиске есть ответ


вот нету, или я не могу найти
...
Рейтинг: 0 / 0
05.09.2006, 13:46
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965181
Noskov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Noskov
Гость
DateTimeToSystemTime + GetDateFormat
...
Рейтинг: 0 / 0
05.09.2006, 14:09
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965191
Фотография Denis Lee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis Lee
Участник
Нижеприведённая лажа тож нефурычит
{$EXTERNALSYM CAL_SMONTHNAME9}
CAL_SMONTHNAME9 = 29; { native name for September }


Код: plaintext
1.
2.
3.
4.
5.
 Var  DefaultLCID: LCID;
 begin 
 DefaultLCID := GetThreadLocale;
 Edit1.Text:=GetLocaleStr(DefaultLCID, CAL_SMONTHNAME9, '');
 end ;

---------
неужели никто не парился этим ворпосм ???
...
Рейтинг: 0 / 0
05.09.2006, 14:13
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965217
Фотография Denis Lee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis Lee
Участник
Пошарился в локализации его вообще нет, а откудова же в родительном когда я навожу на дату в ПУСКЕ-е :) пишет

так шарился, потома в редактор и поиском
Код: plaintext
1.
2.
3.
4.
5.
 DefaultLCID := GetThreadLocale;
  for  i:= 0   to   65000   do 
         try 
          Memo1.Lines.Add(GetLocaleStr(DefaultLCID, i, ''));
         except   end ;
...
Рейтинг: 0 / 0
05.09.2006, 14:18
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965789
Voffkin79
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Voffkin79
Гость
Как это происходит в систем трее (там где часики :-))

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
 var 
  ST: psystemtime;
  pp: pchar;
 begin 
  New(pp);
  New(St);
  GetLocalTime(ST^);
  GetDateFormat($ 419 ,  0 , ST, 'd MMMM yyyy',pp, 255 );
  Showmessage(pp);
 end ;

впринципе можешь задать маску 'ddMMMM' и обрезать первые два символа, и будет тебе щастье :-)
...
Рейтинг: 0 / 0
05.09.2006, 16:08
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965836
Фотография Denis Lee
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis Lee
Участник
сенкс
...
Рейтинг: 0 / 0
05.09.2006, 16:17
| Ответить | Цитировать | Написать  
Дата в строку с спряжением месяцев
    #33965841
Voffkin79
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Voffkin79
Гость
Dispose в конце - подразумеваецца :-)
...
Рейтинг: 0 / 0
05.09.2006, 16:18
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Дата в строку с спряжением месяцев
    #39738815
ZardoZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ZardoZ
Участник
Дата в родительном падеже.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
function GetGenitiveDate(ADate: TDate): string;
var
  St: SystemTime;
  DateShotString: array[Byte] of Char;
begin
  DateTimeToSystemTime(ADate, St);
  GetDateFormat(LOCALE_USER_DEFAULT,DATE_USE_ALT_CALENDAR, @st, 'dd MMMM yyyy', @DateShotString, 255);
  Result := DateShotString;
end;
...
Рейтинг: 0 / 0
26.11.2018, 21:48
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дата в строку с спряжением месяцев
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=33965181&tid=2040075]:
 0ms
get settings:
 7ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 201ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 67ms
get tp. blocked users:
 1ms
others: 198ms
total:  515ms
созд. / загр.: 515ms
x
x
Закрыть


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