ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Названия месецов по русски
31 сообщений из 31, показаны все 2 страниц
  все  
Названия месецов по русски
    #38078832
Mihail3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail3
Гость
Здравствуйте. У меня такой вопрос. В отчете есть поле месяц, и он туда ставиться командой CMONTH(DATE()), но название месяца отображается по английски, как сделать так что бы оно было русским? Помню как то давно месяца 3-4 назад я это уже делал, но как я совершено не помню.
...
Рейтинг: 0 / 0
14.12.2012, 07:28
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38078842
Березовский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Березовский
Участник
Поставить русский рантайм. Или использовать самописную функцию
перевода n Month в c Month
...
Рейтинг: 0 / 0
14.12.2012, 07:56
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38078853
Mihail3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail3
Гость
БерезовскийПоставить русский рантайм. А как можно поподробнее, как мне помниться я это делал без подключения чего либо.
...
Рейтинг: 0 / 0
14.12.2012, 08:16
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38078862
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
tanglir
Участник
Mihail3, vfp9rrus.dll кинуть в папку с программой.
...
Рейтинг: 0 / 0
14.12.2012, 08:37
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38078867
Mihail3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail3
Гость
tanglir, Спасибо, а другого способа нет?, я как то по другому делал просто. Но в любом случае спасибо за помощь)
...
Рейтинг: 0 / 0
14.12.2012, 08:44
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38078870
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Mihail3tanglir, Спасибо, а другого способа нет?, я как то по другому делал просто. Но в любом случае спасибо за помощь)Ну держи UDF :)
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
FUNCTION P_Month
LPARAMETERS nM
PRIVATE mMn
DIMENSION mMn(12)
mMn(1)='Январь'
mMn(2)='Февраль'
mMn(3)='Март'
...
mMn(12)='Декабрь'
RETURN mMn(nM)
ENDFUNC
...
Рейтинг: 0 / 0
14.12.2012, 08:49
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38078872
Mihail3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail3
Гость
Jonny540, Спасиб)
...
Рейтинг: 0 / 0
14.12.2012, 08:50
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38079722
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Jonny540Mihail3tanglir, Спасибо, а другого способа нет?, я как то по другому делал просто. Но в любом случае спасибо за помощь)Ну держи UDF :)
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
FUNCTION P_Month
LPARAMETERS nM
PRIVATE mMn
DIMENSION mMn(12)
mMn(1)='Январь'
mMn(2)='Февраль'
mMn(3)='Март'
...
mMn(12)='Декабрь'
RETURN mMn(nM)
ENDFUNC


Я бы еще добавил чтоб ошибок не возникало:
Код: sql
1.
return iif(between(nM, 1, 12), mMn(nM), 'МАРТОБРЬ')
...
Рейтинг: 0 / 0
14.12.2012, 16:33
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38079749
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Dima TJonny540пропущено...
Ну держи UDF :)
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
FUNCTION P_Month
LPARAMETERS nM
PRIVATE mMn
DIMENSION mMn(12)
mMn(1)='Январь'
mMn(2)='Февраль'
mMn(3)='Март'
...
mMn(12)='Декабрь'
RETURN mMn(nM)
ENDFUNC


Я бы еще добавил чтоб ошибок не возникало:
Код: sql
1.
return iif(between(nM, 1, 12), mMn(nM), 'МАРТОБРЬ')

Ну уж если совсем по большому счету, то и
Код: plsql
1.
2.
3.
if type('nM')#'N'
  return 'С Новым Годом! Пошел на фиг!'
endif
...
Рейтинг: 0 / 0
14.12.2012, 16:46
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38079983
BMJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BMJ
Гость
Мартобря это то что надо, особенно при склонении.... или спряжении....вобщем не в пятницу вопрос.. вот опохмелимся....
...
Рейтинг: 0 / 0
14.12.2012, 18:50
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38081469
ArgonS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ArgonS
Гость
BMJ,

самый простой способ: SET DATE LONG
только, желательно, не забывать возвращать значение на исходное
...
Рейтинг: 0 / 0
17.12.2012, 09:47
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38082896
Mihail3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail3
Гость
ArgonS, о да чудо)))
...
Рейтинг: 0 / 0
18.12.2012, 07:43
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38083167
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
ArgonSсамый простой способ: SET DATE LONG
Как только автор поставит свое приложение на англоязычной Windows у него снова появится тот же самый вопрос. Это еще не считая необходимости дополнительно "выковыривать" название месяца из полученной строки.

Самый правильный способ в данном случае - это именно собственная функция. Решение проблемы через настройки и внешние библиотеки - не надежно.
...
Рейтинг: 0 / 0
18.12.2012, 11:45
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38100186
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
Вроде на функцию не тянет:
#DEFINE ENUM_MONTH 'Январь,Февраль,Март,Апрель,Май,Июнь,Июль,Август,Сентябрь,Октябрь,Ноябоь,Декабрь'
RETURN GETWORDNUM(ENUM_MONTH,tnMonth,',')
...
Рейтинг: 0 / 0
04.01.2013, 18:16
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38100264
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
Mihail3Здравствуйте. У меня такой вопрос. В отчете есть поле месяц, и он туда ставиться командой CMONTH(DATE()), но название месяца отображается по английски, как сделать так что бы оно было русским? Помню как то давно месяца 3-4 назад я это уже делал, но как я совершено не помню.

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
public array mes(12) && в голове программы
mes[1]='Январь'
mes[2]='Февраль'
mes[3]='Март'
mes[4]='Апрель'
mes[5]='Май'
mes[6]='Июнь'
mes[7]='Июль'
mes[8]='Август'
mes[9]='Сентябрь'
mes[10]='Октябрь'
mes[11]='Ноябрь'
mes[12]='Декабрь'

FUNCTION AllowMes && пишется где-то в головном модуле
PARAM indate
LOCAL m2
m2=MONTH(INDATE)
RETURN mes[m2]



В отчёте вместо СMONTH(DATE()) проставить ALLOWMES(DATE()).
...
Рейтинг: 0 / 0
04.01.2013, 20:34
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38100414
Людмila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Людмila
Участник
GETWORDNUM('январь февраль март апрель май июнь июль август сентябрь октябрь ноябрь декабрь',MONTH(дата))
по-моему сама элегантность. Дарю!
...
Рейтинг: 0 / 0
05.01.2013, 07:26
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38133304
Mihail3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail3
Гость
Людмila, ага красивый код
...
Рейтинг: 0 / 0
01.02.2013, 10:48
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38133312
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Mihail3Людмila, ага красивый кодТолько вот не для всех версий...
...
Рейтинг: 0 / 0
01.02.2013, 10:56
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38133836
Mihail3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail3
Гость
нашел подобное в книге visual foxpro в подлинике

Код: sql
1.
2.
3.
4.
procedure c_month  
  parameters m.data  
  return GetWordNum('январь февраль март апрель май июнь июль август сентябрь октябрь ноябрь декабрь',Month(m.Data))
? Month(m.Data)
...
Рейтинг: 0 / 0
01.02.2013, 15:11
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134139
BMJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BMJ
Гость
Я опять о том, что писал. Как сегодня с прописью? т.е не 01 февраль, а февралЯ 2013. Тут не хватит, правда, красивого кода, еще напильник нужен.
...
Рейтинг: 0 / 0
01.02.2013, 17:35
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134243
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
BMJЯ опять о том, что писал. Как сегодня с прописью? т.е не 01 февраль, а февралЯ 2013. Тут не хватит, правда, красивого кода, еще напильник нужен.

Напишите строку 'января, февраля ...'
...
Рейтинг: 0 / 0
01.02.2013, 18:52
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134385
BMJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BMJ
Гость
sg12BMJЯ опять о том, что писал. Как сегодня с прописью? т.е не 01 февраль, а февралЯ 2013. Тут не хватит, правда, красивого кода, еще напильник нужен.

Напишите строку 'января, февраля ...'

Разумеется, но теряется универсальность, например отчёт за "январь", а данные на 15 января. Я к этому подводил.
...
Рейтинг: 0 / 0
01.02.2013, 21:29
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134590
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
BMJ... теряется универсальность, например отчёт за "январь", а данные на 15 января. Я к этому подводил.Кто мешает немного подправить эту 13862384 процедуру?
Например, так:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
? c_month(m.Data)

procedure c_month  
parameters m.data, nMode  
do case
  case nMode=1
    return GetWordNum('январь февраль март апрель май июнь июль август сентябрь октябрь ноябрь декабрь',Month(m.Data))
  case nMode=2
    return GetWordNum('января февраля марта апреля мая июня июля августа сентября октября ноября декабря',Month(m.Data))
  otherwise
  return " "
endcase
endproc

Для ранних версий - двумерный массив.
...
Рейтинг: 0 / 0
02.02.2013, 05:25
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134602
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
Jonny540BMJ... теряется универсальность, например отчёт за "январь", а данные на 15 января. Я к этому подводил.Кто мешает немного подправить эту 13862384 процедуру?
Например, так:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
? c_month(m.Data)

procedure c_month  
parameters m.data, nMode  
do case
  case nMode=1
    return GetWordNum('январь февраль март апрель май июнь июль август сентябрь октябрь ноябрь декабрь',Month(m.Data))
  case nMode=2
    return GetWordNum('января февраля марта апреля мая июня июля августа сентября октября ноября декабря',Month(m.Data))
  otherwise
  return " "
endcase
endproc

Для ранних версий - двумерный массив.

А теперь вопрос на засыпку.
Что мешает добавить в эту процедуру еще и дни недели: "Понедельник,Вторник, ..."?
...
Рейтинг: 0 / 0
02.02.2013, 09:04
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134611
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
sg12,

Не изобретайте сущностей свех необходимости
Особенно круто названия дней недели будут смотреться в процедуре именования месяцев...
С третьей стороны, как представлю себе, когда это может понадобиться:
"Сего дня, втарога четверга котября месяца..."
...
Рейтинг: 0 / 0
02.02.2013, 09:37
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134617
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
AndreTM

Вот вы и засыпались.
...
Рейтинг: 0 / 0
02.02.2013, 09:54
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134642
Людмila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Людмila
Участник
Mihail3нашел подобное в книге visual foxpro в подлинике
приобрела данную книгу лет 5 назад - увидела в ней данный код! Чуть не лопнула от досады.
Думала, что я одна такая умничка!
Шучу.
...
Рейтинг: 0 / 0
02.02.2013, 11:12
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134676
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Redrik
Участник
sg12Что мешает добавить в эту процедуру еще и дни недели: "Понедельник,Вторник, ..."?
Увидел родное универсальное CASE?
...
Рейтинг: 0 / 0
02.02.2013, 12:18
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134688
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
Redriksg12Что мешает добавить в эту процедуру еще и дни недели: "Понедельник,Вторник, ..."?
Увидел родное универсальное CASE?

Не все же при виде этого слова инсульт зарабатывают ...
Но бывают и такие, судя по всему.
...
Рейтинг: 0 / 0
02.02.2013, 12:41
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134831
sg12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sg12
Участник
Jonny540Для ранних версий - двумерный массив.

С такими строками можно работать еще примерно так, только эти функции нужно отладить:

Через MLINE(), заменив разделители на CHR(13).
MLINE(CHRTRAN('янв,февр,март',',',CHR(13)),i)
Или через SUBSTR(), удлинив названия месяцев пробелами до одинаковой длины.
ALLTRIM(SUBSTR('янв фев март ',(i-1)*5+1,4))
Можно так:
ALLTRIM(RIGHT("LEFT('янв фев март ',i*5),5))
В VFP9 возможна и такая функция:
STREXTRACT(',янв,февр,март,',',',',',i)
...
Рейтинг: 0 / 0
02.02.2013, 17:59
| Ответить | Цитировать | Написать  
Названия месецов по русски
    #38134861
wert1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wert1
Гость
sg12эти функции нужно отладить:

Через MLINE(), заменив разделители на CHR(13).
MLINE(CHRTRAN('янв,февр,март',',',CHR(13)),i)
Или через SUBSTR(), удлинив названия месяцев пробелами до одинаковой длины.
ALLTRIM(SUBSTR('янв фев март ',(i-1)*5+1,4))
Можно так:
ALLTRIM(RIGHT("LEFT('янв фев март ',i*5),5))
В VFP9 возможна и такая функция:
STREXTRACT(',янв,февр,март,',',',',',i)Это уже диагноз: "шизофрения, как и было сказано"
...
Рейтинг: 0 / 0
02.02.2013, 18:38
| Ответить | Цитировать | Написать  
31 сообщений из 31, показаны все 2 страниц
  все  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Названия месецов по русски
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=41&tid=1583182]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 13ms
total:  165ms
созд. / загр.: 165ms
x
x
Закрыть


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