powered by simpleCommunicator - 2.0.41     © 2025 Programmizd 02
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Проблема с проверкой даты
10 сообщений из 10, страница 1 из 1
Проблема с проверкой даты
    #37379150
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте всем!

Будьте добры подскажите пожалуйста ответ на следующий вопрос:
мне нужно определить по системной дате (текущей дате) какой сейчас квартал.

kid = date()


if (kid <{01.04.2011} and kid >={01.01.2011}
Thisform1.Label1.Caption.Value = "1 квартал"
endif

if (kid <{01.07.2011} and kid >={01.04.2011}
Thisform1.Label1.Caption.Value = "2 квартал"
endif

if (kid <{01.10.2011} and kid >={01.07.2011}
Thisform1.Label1.Caption.Value = "3 квартал"
endif

if (kid <{01.01.2012} and kid >={01.10.2011}
Thisform1.Label1.Caption.Value = "4 квартал"
endif

Возникает у меня следующие вопросы:

1.Я не правильно использую конструкцию if - синтаксис не верен, как я понимаю а как правильно подскажите пожалуйста сравнивать даты или проверку не так надо делать?

2. Если все же так можно подскажите пожалуйста как записывается вернее это и в конце надо пойти на первый квартал но уже нового года, а как это сделать?

спасибо большое заранее за помощь.
...
Рейтинг: 0 / 0
Проблема с проверкой даты
    #37379169
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Thisform1.Label1.Caption.Value = IIF(MONTH(DATE()) < 4, "1", IIF(MONTH(DATE()) < 7, "2", IIF(MONTH(DATE()) < 10, "3", "4"))) + " квартал"
...
Рейтинг: 0 / 0
Проблема с проверкой даты
    #37379183
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
kid = date()
Thisform.Label1.Caption = str((MONTH(kid) +  1 ) /  3  ,  1 ) + " квартал"
...
Рейтинг: 0 / 0
Проблема с проверкой даты
    #37379216
demon03
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
? STR(ceiling(MONTH(DATE())/3)) + " квартал"
...
Рейтинг: 0 / 0
Проблема с проверкой даты
    #37379227
demon03
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
? STR(ceiling(MONTH(DATE())/3)) + " квартал"
...
Рейтинг: 0 / 0
Проблема с проверкой даты
    #37379267
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть такая функция Quarter(), которая как раз и возвращает номер квартала

Код: plaintext
Thisform1.Label1.Caption.Value = Textmerge("<<Quarter(kid),2)>> квартал"

Для записи констант типа Date используется специальная нотация вида: {^YYYY-MM-DD}. В качестве разделителя фрагментов можно использовать также точку или наклонную черту (символ деления). В данном случае

Код: plaintext
if kid < {^ 2011 - 04 - 01 } and kid >= {^ 2011 - 01 - 01 }
...
Рейтинг: 0 / 0
Проблема с проверкой даты
    #37379270
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ошибся в синтаксисе. Надо так

Код: plaintext
Thisform1.Label1.Caption.Value = Textmerge("<<Quarter(kid)>> квартал")
...
Рейтинг: 0 / 0
Проблема с проверкой даты
    #37379284
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ВладимирМОшибся в синтаксисе. Надо так

Код: plaintext
Thisform1.Label1.Caption.Value = Textmerge("<<Quarter(kid)>> квартал")
...
Рейтинг: 0 / 0
Проблема с проверкой даты
    #37380030
dima_18
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Здравствуйте всем!

Большое спасибо за присланные ответы. Очень приятно, что много вариантов - сейчас я буду пробовать.

Еще раз большое спасибо за помощь!
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Проблема с проверкой даты
    #40140758
dima2025
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Уважаемые пользователи, все добрый день!

Подскажите пожалуйста, ответ на следующий вопрос.
Мне нужно сравнить даты :
одна дата введенная, а другая системная.
Т.е. допустим я ввел дату 05.05.2025 и запись в таблице занесена. Захожу завтра ,(06.05.2025) если я отметку не ставлю о выполнении этой записи, то она ставится желтым, если я спустя четыре дня не закрыл запись, то она ставится зеленым, и наконец, если через 7 дней не закрыл запись, то она ставится красным.

Подскажите, пожалуйста как мне лучше это сделать.
Сравнение дат, ведь не происходит правильно, как с числами?

И еще, я на interactivechange хочу навесить следующее: то есть если я правильно сравню даты, то я в таблице в переменную (ind )запишу так:
либо она принимает значение 1, либо 2, либо 3.
Ну и в зависимости от этих значений у меня будет разукрашивание!
Все правильно?

thisformset.form1.GridPerson.Column1.DynamicForeColor = "if(an_chel1.ind = 1,rgb(255,0,0))"
thisformset.form1.GridPerson.Column1.DynamicForeColor = "if(an_chel2.ind = 1,rgb(0,255,0))"
thisformset.form1.GridPerson.Column1.DynamicForeColor = "if(an_chel2.ind = 1,rgb(0,0,255))"

Я к примеру выбрал так цвета.

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


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