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

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

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

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


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


вот нету, или я не могу найти
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2006, 14:09
    #33965181
Noskov
Noskov
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дата в строку с спряжением месяцев
DateTimeToSystemTime + GetDateFormat
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2006, 14:13
    #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:18
    #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, 16:08
    #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:17
    #33965836
Denis Lee
Denis Lee
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дата в строку с спряжением месяцев
сенкс
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.09.2006, 16:18
    #33965841
Voffkin79
Voffkin79
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дата в строку с спряжением месяцев
Dispose в конце - подразумеваецца :-)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
26.11.2018, 21:48
    #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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дата в строку с спряжением месяцев / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 464ms
Закрыть
start [/forum/topic.php?fid=58&mobile=1&tid=2040075]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 105ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 60ms
get tp. blocked users:
 2ms
others: 237ms
total:  464ms
x
x
Закрыть


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