Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Период от выбранного месяца / 7 сообщений из 7, страница 1 из 1
26.12.2006, 10:14
    #34224288
nova
nova
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Период от выбранного месяца
Добрый день!
Есть меню с выбором месяца. При выборе месяца двум переменным необходимо присвоить начало месяца и конец месяца соответственно, учитывая, что есть высокосный год. Есть ли простое решение или надо создавать свою функцию?
Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2006, 10:27
    #34224326
Maltsev Max
Maltsev Max
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Период от выбранного месяца
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
VibMonth= 3 
VibYear= 2006 

Dt_Top=CToD('01.'+Padl(AllTrim(Str(VibMonth)), 2 ,'0')+'.'+Str(VibYear, 4 ))

Dt_End=Dt_Top+ 32 
Dt_End=Ctod('01.'+Padl(AllTrim(Str(Month(Dt_End))), 2 ,'0')+'.'+Str(Year(Dt_End), 4 ))- 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2006, 10:31
    #34224342
alex11100
alex11100
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Период от выбранного месяца
изв. не пробую код, но прибл. так

Код: plaintext
1.
2.
3.
4.
5.
6.
set date british
local lnMonth, lnYear, ldStartDate, ldEndDate
lnMonth =  10 
lnYear   =  2006 
ldStartDate = ctod('01/'+allt(str(lnMonth))+'/'+allt(str(lnYear)))
ldEndDate   = gomonth(ldStartDate, 1 )- 1

удачи
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2006, 10:39
    #34224373
Maltsev Max
Maltsev Max
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Период от выбранного месяца
gomonth()
:-))
А я вечно все через .... делал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2006, 10:45
    #34224394
ВладимирМ
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Период от выбранного месяца
Начиная с версии VFP6 можно сформировать значение даты через функцию Date(). Вне зависимости от текущих настроек SET DATE.

Код: plaintext
1.
2.
3.
4.
5.
local lnMonth, lnYear, ldStartDate, ldEndDate
lnMonth =  10 
lnYear   =  2006 
ldStartDate = DATE(m.lnYear, m.lnMonth,  1 )
ldEndDate   = gomonth(m.ldStartDate, 1 )- 1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2006, 11:05
    #34224477
Urri
Urri
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Период от выбранного месяца
Почему-то никто не вспомнил:
Код: plaintext
1.
2.
ldStartDate = Date()
ldStartDate = ldStartDate - Day(ldStartDate) +  1 
ldEndDate = Gomonth(ldStartDate,  1 ) -  1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.12.2006, 14:59
    #34225335
КонецЦикла
КонецЦикла
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Период от выбранного месяца
Буквально вчера делал....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Период от выбранного месяца / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 326ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1590096]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 40ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 207ms
total:  326ms
x
x
Закрыть


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