Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Функция Month() / 5 сообщений из 5, страница 1 из 1
08.05.2007, 15:18
    #34513003
Alberto
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция Month()
Как вывести текущий месяц в символьном виде, например "Июль"
...
Рейтинг: 0 / 0
08.05.2007, 15:26
    #34513031
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция Month()
Код: 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
08.05.2007, 15:27
    #34513034
Sergey Sizov.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Функция Month()
Код: plaintext
?Cmonth(Date())

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


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