ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
15 сообщений из 40, страница 2 из 2
  2  все
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863456
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nord-woolf
Участник
Попытка №2:
Код: plaintext
1.
2.
3.
Public Function GetBeginEndQuarter(Y As Integer, Q As Integer)
    GetBeginEndQuarter = Array(DateSerial(Y, (Q -  1 ) *  3  +  1 ,  1 ), DateSerial(Y, Q *  3  +  1 ,  0 ))
End Function
...
Рейтинг: 0 / 0
23.09.2010, 21:31
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863466
Фотография garri2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
garri2000
Участник
nord-woolfПопытка №2:
Код: plaintext
1.
2.
3.
Public Function GetBeginEndQuarter(Y As Integer, Q As Integer)
    GetBeginEndQuarter = Array(DateSerial(Y, (Q -  1 ) *  3  +  1 ,  1 ), DateSerial(Y, Q *  3  +  1 ,  0 ))
End Function


, кто короче напишет? (типа competition ? )
...
Рейтинг: 0 / 0
23.09.2010, 21:38
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863467
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
nord-woolfПопытка №2:
Нехорошо вычислять массив, а потом использовать только один его элемент. Предлагаю модифицировать так:

Код: plaintext
1.
2.
Public Function GetBeginEndQuarter(Y As Integer, Q As Integer, F As Boolean)
    GetBeginEndQuarter = DateSerial(Y, (Q + F) *  3  +  1 , -F)
End Function
...
Рейтинг: 0 / 0
23.09.2010, 21:40
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863482
Спортсмен
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Спортсмен
Гость
Владимир Саныч
Код: plaintext
Public Function GetBeginEndQuarter(Y As Integer, Q As Integer, F As Boolean)\n    GetBeginEndQuarter = DateSerial(Y, (Q + F) *  3  +  1 , -F)\nEnd Function

Боян
...
Рейтинг: 0 / 0
23.09.2010, 21:52
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863485
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
СпортсменБоян
Да, я догадывался, что такой вариант уже был.
...
Рейтинг: 0 / 0
23.09.2010, 21:54
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863486
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nord-woolf
Участник
Владимир Саныч,
Да то было спортивное рукоблудие, не более. :)
Можно, конечно, через переменную типа Variant и оба значения массива пользовать,
да "хрен редьки не слаще".
...
Рейтинг: 0 / 0
23.09.2010, 21:55
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863487
Фотография garri2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
garri2000
Участник
мужики, какой счет?, кто выиграл?, АкБарс?
...
Рейтинг: 0 / 0
23.09.2010, 21:57
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863499
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nord-woolf
Участник
garri2000мужики, какой счет?, кто выиграл?, АкБарс?

Вот меня всегда раздражает, когда шоу закрытия олимпиады/ЧМ/ЧЕ ведут спортивные комментаторы.
У этих тормозов только одно на уме: n золотых, m серебрянных, 0 бронзовых. Счетоводы, млять.
На стадионе шикарное действо, артисты, музыканты, волонтеры.
Смотри и наслаждайся красотой.
Нет, эти дебилы все медали пересчитывают. Тьфу, противно.
...
Рейтинг: 0 / 0
23.09.2010, 22:09
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863507
Фотография garri2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
garri2000
Участник
nord-woolfgarri2000мужики, какой счет?, кто выиграл?, АкБарс?

Вот меня всегда раздражает, когда шоу закрытия олимпиады/ЧМ/ЧЕ ведут спортивные комментаторы.
У этих тормозов только одно на уме: n золотых, m серебрянных, 0 бронзовых. Счетоводы, млять.
На стадионе шикарное действо, артисты, музыканты, волонтеры.
Смотри и наслаждайся красотой.
Нет, эти дебилы все медали пересчитывают. Тьфу, противно.

а Вы, типа за спортивный интерес?
...
Рейтинг: 0 / 0
23.09.2010, 22:13
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863517
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nord-woolf
Участник
garri2000,
Нет, я намекаю на то, что всему свое время и место.
На соревнованиях - спортсменам и медалям,
на шоу - актерам и музыкантам.

И если несколько участников форума что-то обсуждают(всерьез или шутя),
это не значит, что они пипетками меряются, как вам почему-то постоянно кажется.
...
Рейтинг: 0 / 0
23.09.2010, 22:23
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863594
Фотография garri2000
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
garri2000
Участник
nord-woolf,

мне, каж., меру тоже надо знать, а так на пипеткомерянье похоже... ,
зы: ничего личного, сорри...
...
Рейтинг: 0 / 0
23.09.2010, 23:35
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36863672
Фотография nord-woolf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nord-woolf
Участник
garri2000... а так на пипеткомерянье похоже...
Один смотрит на стакан, заполненный наполовину, и говорит: Этот стакан наполовину пуст.
Другой смотрит на этот-же стакан, и говорит: Да нет же, он наполовину целый.

Может особенности вашего восприятия заставляют вас видеть во всем пипеткомеряние?
Ну ладно-бы весной, а то осенью. :)
Модератор: Предлагаю остановить эту увлекательную тему.
...
Рейтинг: 0 / 0
24.09.2010, 00:53
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36871456
Фотография George-III
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
George-III
Участник
ёproposed amendment...
или это не спортивно?
да, нет - нормально,
Саныч вообщем с этого и начал

мой ответ был в основном на пример от George-III
с вот этими всякими
Код: plaintext
1.
...Day(DateSerial(CInt(Format(intYear +  1 , "0000")),  1 ,  0 )) ...
...ну, а тут ещё ТС подтянулся
+
 

ну и про спорт
Код: plaintext
1.
2.
Function xxx(y As Integer, kva As Integer, nach As Boolean) As Date
  xxx = DateAdd("q", kva + nach, DateSerial(y,  1 ,  1 )) + (not nach)
End Function

Да можно было бы и проще, так как эти величины константы, то просто хотелось порботать с передаваемой датой... Это так сказать эксперименты :)
...
Рейтинг: 0 / 0
29.09.2010, 09:00
| Ответить | Цитировать | Написать  
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #36877272
Фотография paradisediamond
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paradisediamond
Участник
ну и полемику вы тут развели. Я вообще тупая девушка, начальник которй считает что за мной будущее прогрммиста, и что из меня получится программист, лучше бы из меня жена получилась и мать. но не важно, А так у него вообще все женщины тупые алчные самки, я в том числе, просто он наверное скрывает это. Я же тут выясняю для себя все
...
Рейтинг: 0 / 0
01.10.2010, 15:13
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
    #39765419
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
paradisediamondпомогите написать функцию
которая выдает по номеру квартала его начальную и конечную дату
Тема, конечно, старая.
Но у меня придумался совершенно свежий вариант. Надо же зафиксировать, а то забуду.)))

Пример 1. Начало и конец квартала для заданной даты (здесь берется текущая)
Код: vbnet
1.
2.
3.
4.
? DateAdd("q", Format(Date, "q") - 1, CDate("1.1"))
01.01.2019 
? DateAdd("q", Format(Date, "q"), CDate("1.1")) - 1
31.03.2019

Пример 2. Начало и конец заданного квартала (пусть третьего)
Код: vbnet
1.
2.
3.
4.
5.
Quarter=3
? DateAdd("q", Quarter-1, CDate("1.1"))
01.07.2019 
? DateAdd("q", Quarter, CDate("1.1")) - 1
30.09.2019
...
Рейтинг: 0 / 0
27.01.2019, 01:52
| Ответить | Цитировать | Написать  
15 сообщений из 40, страница 2 из 2
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=36863499&tid=1610889]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 82ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 1ms
others: 322ms
total:  503ms
созд. / загр.: 503ms
x
x
Закрыть


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