powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция Month()
5 сообщений из 5, страница 1 из 1
Функция Month()
    #34513003
Alberto
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как вывести текущий месяц в символьном виде, например "Июль"
...
Рейтинг: 0 / 0
Функция Month()
    #34513031
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: 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.
funct mon
para e
do case
   case e= 1 
        w="январь"
   case e= 2 
        w="февраль"
   case e= 3 
        w="март"
   case e= 4 
        w="апрель"
   case e= 5 
        w="май"
   case e= 6 
        w="июнь"
   case e= 7 
        w="июль"
   case e= 8 
        w="август"
   case e= 9 
        w="сентябрь"
   case e= 10 
        w="октябрь"
   case e= 11 
        w="ноябрь"
   case e= 12 
        w="декабрь"
   otherwise 
        w=""
endcase
return w
...
Рейтинг: 0 / 0
Функция Month()
    #34513034
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
?Cmonth(Date())

В русском рантайме будет писать по-русски, в среде разработки - по-английски.
...
Рейтинг: 0 / 0
Функция Month()
    #34513039
Фотография Владимир СА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Написать собственную функцию типа CMONTH().
...
Рейтинг: 0 / 0
Функция Month()
    #34513053
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
Function fNameMonth
Parameter fnMonth
Return GetWordNum('Январь,Февраль,Март,Апрель,Май,Июнь,Июль,Август,Сентябрь,Октябрь,Ноябрь,Декабрь',fnMonth,',')
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция Month()
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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