powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определить високосный год или нет.
10 сообщений из 10, страница 1 из 1
Определить високосный год или нет.
    #37629358
Здравствуйте! Помогите, пожалуйста. У меня в программе юзер вводит дату начала периода в textbox1, дату окончания периода в textbox2. Мне нужно выбрать все записи из таблицы table1, где поле data_pr больше даты начала периода и меньше даты окончания периода, а также где поле data_rogd меньше, чем дата начала периода не более, чем на год. Такой вариант
Код: sql
1.
2.
3.
nach_per = CTOD(THISFORM.text1.Value)
end_per = CTOD(THISFORM.text2.Value)
select * from table1 where data_pr >= nach_per and data_pr <= nach_per and data_rogd - end_per <= 365


не подходит, т.к. в нем слишком большая погрешность, ведь в високосном году 366 дней.
Читал, что, если год делится на 400 - год високосный, делится на 100 - год не високосный, делится на 4 - год високосный, не делится на 4 - год не високосный. Теперь как это реализовать? Наверняка с подобной проблемой кто-то сталкивался. Поделитесь опытом, пожалуйста.
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37629420
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: sql
1.
end_per <= gomonth(nach_per, 12)
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37629522
BMJ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
BMJ
Гость
А если проверять на наличие 29/02 текущего года?
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37629742
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ОлегОлегОлег...data_pr больше даты начала периода и меньше даты окончания периода,
...data_rogd меньше, чем дата начала периода не более, чем на год.
1) between(data_pr,nach_pr,end_pr)
2) все-таки _начала_ периода или _окончания_? Судя по вашему коду - окончания...
data_rog>=gomonth(end_pr,-12)
Или вы должны определиться, что такое "не больше, чем на год". Дайте хотя бы пример, когда в выборку не попадут нужные данные...
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37629931
XAndy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ОлегОлегОлег,

есть изящная проверка года на високосность
Код: sql
1.
!empty(date(<год>, 2, 29))
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37630205
Все, спасибо за помощь. Окончания периода конечно. Ошибся)
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37631088
Чтоб новую тему не создавать. Что не так? Делал подобный запрос. Норм работал. А сейчас ошибка: invalid subscript reference
Код: sql
1.
2.
3.
4.
5.
6.
Local File1,  File2																			
	file1 = "s_serbas.dbf"
	file2 = "registr.dbf"
SELECT  f1.reg_nom, f1.p_data, f1.diagnoz_o, f2.data_rogd;
	FROM FROM (FILE1) f1 INNER JOIN (FILE2) f2 ON f1.REG_NOM = f2.REG_NOM;
	into CURSOR main


Где копать, подскажите?.
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37631112
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ОлегОлегОлег,

два раза FROM
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37631116
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
IgorNG,

да и в переменных .dbf ни к чему
...
Рейтинг: 0 / 0
Определить високосный год или нет.
    #37631138
IgorNG,

ахахаххахахаххахахах))) 40 минут мучений)) извините за глупый вопрос)
...
Рейтинг: 0 / 0
10 сообщений из 10, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Определить високосный год или нет.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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