помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату / Microsoft Access

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

25 сообщений из 40, страница 1 из 2

все

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861797

paradisediamond

Участник

Откуда: от верблюда

Сообщения: 102

Рейтинг: 0 / 0

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату, Допустим вводим мы год и вводим дату, можно также задать квартал, только что бы он вывел 2 даты, начало и конец квартала

...

Рейтинг:

0 / 0

23.09.2010, 11:13

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861822

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

function xxx(y as integer,kva as integer,nach as boolean)as date
select case kva
case 1:if nach then xxx=dateserial(y,1,1)else xxx=dateserial(y,3,31)
case 2:if nach then xxx=dateserial(y,4,1)else xxx=dateserial(y,6,30)
case 3:if nach then xxx=dateserial(y,7,1)else xxx=dateserial(y,9,30)
case 4:if nach then xxx=dateserial(y,10,1)else xxx=dateserial(y,12,31)
end select
end function

...

Рейтинг:

0 / 0

23.09.2010, 11:20

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861833

paradisediamond

Участник

Откуда: от верблюда

Сообщения: 102

Рейтинг: 0 / 0

Владимир Саныч,
спасибо добрый самаритянин, буду проверять

...

Рейтинг:

0 / 0

23.09.2010, 11:23

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861856

paradisediamond

Участник

Откуда: от верблюда

Сообщения: 102

Рейтинг: 0 / 0

Владимир Саныч,

Если честно, то с вами я лучше понимаю чем мне кто-то объясняет. были бы вы моим учителем.!

...

Рейтинг:

0 / 0

23.09.2010, 11:29

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861863

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

paradisediamondЕсли честно, то с вами я лучше понимаю чем мне кто-то объясняет. были бы вы моим учителем.!
То есть Вы понимаете, когда Вам НЕ объясняют, а делают за Вас. Прискорбно. Постараюсь впредь так НЕ делать.

...

Рейтинг:

0 / 0

23.09.2010, 11:31

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861876

paradisediamond

Участник

Откуда: от верблюда

Сообщения: 102

Рейтинг: 0 / 0

Владимир Саныч,
нет я в акцессе полный ноль, но после того как я вижу функцию, я начинаю читать что означает то или иное в хелпе, вот я не знала про DateSerial. Сейчас читаю и изучаю. И так постоянно. Разве это плохо?

...

Рейтинг:

0 / 0

23.09.2010, 11:34

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861881

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

Если Вы действительно так делаете, то хорошо.

...

Рейтинг:

0 / 0

23.09.2010, 11:35

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861886

paradisediamond

Участник

Откуда: от верблюда

Сообщения: 102

Рейтинг: 0 / 0

Владимир Саныч,
потом свой вариант выглядит так:

' сделать даты конца и начала квартала
god = Me.ПолеСоСписком3
kv = CInt(Left(Me.ПолеСоСписком5, 1))

i = ((kv - 1) * 3) + 1

' Первый день текущего месяца
m_FirstDayKv = DateSerial(god, i, 1) ' 1 4 7 10

' Последний день текущего месяца
m_LastDayKv = DateSerial(god, i + 3, 0) ' 4 7 10 13

...

Рейтинг:

0 / 0

23.09.2010, 11:36

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861901

paradisediamond

Участник

Откуда: от верблюда

Сообщения: 102

Рейтинг: 0 / 0

Владимир Саныч,
Ваш вариант проще, а в моем пришлось вымудриться. Нужно было узнать начальную и конечную дату квартала

...

Рейтинг:

0 / 0

23.09.2010, 11:39

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36861944

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

paradisediamondВладимир Саныч,
потом свой вариант выглядит так:
Не проверял, но мне нравится.

...

Рейтинг:

0 / 0

23.09.2010, 11:50

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36862586

George-III

Участник

Сообщения: 3 685

Рейтинг: 0 / 0

я написал 2 ф-ии:

Код: 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.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.

'Функция возвращающая первую дату указанного квартал за год
Public Function fncKvStartD(ByVal bteKv As Byte, Optional ByVal varYear As Variant) As String
On Error GoTo Err_fncKvStartD
    Dim intYear As Integer
    If IsMissing(varYear) Then
        intYear = Year(Date)
    Else
        intYear = CInt(varYear)
    End If
    Select Case bteKv
        Case  1 
            fncKvStartD = "01/01/" & Format(intYear, "0000")
        Case  2 
            fncKvStartD = "04/01/" & Format(intYear, "0000")
        Case  3 
            fncKvStartD = "07/01/" & Format(intYear, "0000")
        Case  4 
            fncKvStartD = "10/01/" & Format(intYear, "0000")
        Case Else
            '213 - Недопустимый номер квартала!
            fncKvStartD = "Недопустимый номер квартала!"
    End Select
Exit_fncKvStartD:
    Exit Function
Err_fncKvStartD:
    fncKvStartD = Err.Description
    Resume Exit_fncKvStartD
End Function

'Функция возвращающая последнюю дату указанного квартал за год
Public Function fncKvEndD(ByVal bteKv As Byte, Optional ByVal varYear As Variant) As String
On Error GoTo Err_fncKvEndD
    Dim intYear As Integer
    If IsMissing(varYear) Then
        intYear = Year(Date)
    Else
        intYear = CInt(varYear)
    End If
    Select Case bteKv
        Case  1 
            fncKvEndD = "03/" & Day(DateSerial(CInt(Format(intYear, "0000")),  4 ,  0 )) & "/" & Format(intYear, "0000")
        Case  2 
            fncKvEndD = "06/" & Day(DateSerial(CInt(Format(intYear, "0000")),  7 ,  0 )) & "/" & Format(intYear, "0000")
        Case  3 
            fncKvEndD = "09/" & Day(DateSerial(CInt(Format(intYear, "0000")),  10 ,  0 )) & "/" & Format(intYear, "0000")
        Case  4 
            fncKvEndD = "12/" & Day(DateSerial(CInt(Format(intYear +  1 , "0000")),  1 ,  0 )) & "/" & Format(intYear, "0000")
        Case Else
            '213 - Недопустимый номер квартала!
            fncKvEndD = "213 - Недопустимый номер квартала!"
    End Select
Exit_fncKvEndD:
    Exit Function
Err_fncKvEndD:
    fncKvEndD = Err.Description
    Resume Exit_fncKvEndD
End Function

...

Рейтинг:

0 / 0

23.09.2010, 15:02

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36862601

Гость

...шо-та как-та всё сложно ))

Код: plaintext

1.
2.
3.

quartal =  2  : ?"start = " & DateAdd("q", quartal -  1 , # 1 / 1 / 2010 #) : ?"finish = " & DateAdd("q", quartal, # 1 / 1 / 2010 #) -  1 
start =  01 . 04 . 2010 
finish =  30 . 06 . 2010

...

Рейтинг:

0 / 0

23.09.2010, 15:07

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36862777

paradisediamond

Участник

Откуда: от верблюда

Сообщения: 102

Рейтинг: 0 / 0

ё...шо-та как-та всё сложно ))

Код: plaintext

1.
2.
3.

quartal =  2  : ?"start = " & DateAdd("q", quartal -  1 , # 1 / 1 / 2010 #) : ?"finish = " & DateAdd("q", quartal, # 1 / 1 / 2010 #) -  1 
start =  01 . 04 . 2010 
finish =  30 . 06 . 2010

:
Что за фигня????

...

Рейтинг:

0 / 0

23.09.2010, 16:10

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36862801

Гость

paradisediamondё...шо-та как-та всё сложно ))

Код: plaintext

1.
2.
3.

quartal =  2  : ?"start = " & DateAdd("q", quartal -  1 , # 1 / 1 / 2010 #) : ?"finish = " & DateAdd("q", quartal, # 1 / 1 / 2010 #) -  1 
start =  01 . 04 . 2010 
finish =  30 . 06 . 2010

:
Что за фигня????

Код: plaintext

1.
2.
3.
4.
5.
6.

function xxx(y as integer,kva as integer,nach as boolean)as date
if  nach then
  xxx = DateAdd("q", kva -  1 , dateserial(y, 1 , 1 )) 
else
  xxx = DateAdd("q", kva, dateserial(y, 1 , 1 )) -  1 
end if
end function

...понятно, почему Саныч вам отвечает сразу кодом...
по другому - вам недоходит ниразу....

...

Рейтинг:

0 / 0

23.09.2010, 16:19

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36862818

paradisediamond

Участник

Откуда: от верблюда

Сообщения: 102

Рейтинг: 0 / 0

ёparadisediamondё...шо-та как-та всё сложно ))

Код: plaintext

1.
2.
3.

quartal =  2  : ?"start = " & DateAdd("q", quartal -  1 , # 1 / 1 / 2010 #) : ?"finish = " & DateAdd("q", quartal, # 1 / 1 / 2010 #) -  1 
start =  01 . 04 . 2010 
finish =  30 . 06 . 2010

:
Что за фигня????

Код: plaintext

1.
2.
3.
4.
5.
6.

function xxx(y as integer,kva as integer,nach as boolean)as date
if  nach then
  xxx = DateAdd("q", kva -  1 , dateserial(y, 1 , 1 )) 
else
  xxx = DateAdd("q", kva, dateserial(y, 1 , 1 )) -  1 
end if
end function

...понятно, почему Саныч вам отвечает сразу кодом...
по другому - вам недоходит ниразу....

А про год речи и нет, год может быть и от рождества Христова, а у вас полугодие

...

Рейтинг:

0 / 0

23.09.2010, 16:24

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36862832

GUESТ

Участник

Сообщения: 2 601

Рейтинг: 0 / 0

даты начала и конца кварталов всегда одинаковые

нафига тут какая-то особая функция этих дат?

...

Рейтинг:

0 / 0

23.09.2010, 16:29

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36862834

Гость

paradisediamond...
А про год речи и нет, год может быть и от рождества Христова, а у вас полугодие
ааааа!!!, мляяяя!!!

о чём вы, автор ???

...

Рейтинг:

0 / 0

23.09.2010, 16:30

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36862856

Гость

ё...
о чём вы, автор ???
...для детей природы

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Function xxx(y As Integer, kva As Integer, nach As Boolean) As Date
If nach Then
  xxx = DateAdd("q", kva -  1 , DateSerial(y,  1 ,  1 ))
Else
  xxx = DateAdd("q", kva, DateSerial(y,  1 ,  1 )) -  1 
End If
End Function

Sub АвторЖжжет()
  Dim i As Integer
  For i =  1  To  4 
    Debug.Print "Квартал: " & i & "   " & _
                "Начало: " & xxx( 2010 , i, True) & "   " & _
                "Окончание: " & xxx( 2010 , i, False)

  Next i
End Sub

Код: plaintext

1.
2.
3.
4.

АвторЖжжет
Квартал:  1    Начало:  01 . 01 . 2010    Окончание:  31 . 03 . 2010 
Квартал:  2    Начало:  01 . 04 . 2010    Окончание:  30 . 06 . 2010 
Квартал:  3    Начало:  01 . 07 . 2010    Окончание:  30 . 09 . 2010 
Квартал:  4    Начало:  01 . 10 . 2010    Окончание:  31 . 12 . 2010

...

Рейтинг:

0 / 0

23.09.2010, 16:39

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36863174

s.w.a.n.

Участник

Откуда: Москва

Сообщения: 137

Рейтинг: 0 / 0

ёparadisediamond...
А про год речи и нет, год может быть и от рождества Христова, а у вас полугодие
ааааа!!!, мляяяя!!!

о чём вы, автор ???

)))+5

...

Рейтинг:

0 / 0

23.09.2010, 18:25

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36863222

proposed amendment

Участник

Сообщения: 9 144

Рейтинг: 0 / 0

select case define_dates (q as integer)

case 1
Начало= 01.01.2010 Окончание= 31.03.2010
case 2
Начало= 01.04.2010 Окончание= 30.06.2010
case 3
Начало= 01.07.2010 Окончание= 30.09.2010
case 4
Начало= 01.10.2010 Окончание= 31.12.2010
case else

end select

или это не спортивно?

...

Рейтинг:

0 / 0

23.09.2010, 18:50

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36863405

Гость

proposed amendment...
или это не спортивно?
да, нет - нормально,
Саныч вообщем с этого и начал

мой ответ был в основном на пример от George-III
с вот этими всякими

Код: plaintext

...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

23.09.2010, 20:38

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36863422

garri2000

Участник

Откуда: Моск.обл,Ступино

Сообщения: 5 100

Рейтинг: 0 / 0

ё,
+питсот,
ща люди запугают ТС-а окончательно

...

Рейтинг:

0 / 0

23.09.2010, 20:54

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36863424

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 862

Рейтинг: 1 / 0

ё Саныч вообщем с этого и начал
Собственно, я с этого начал только для того, чтобы показать ТС, что задачка-то элементарная и спрашивать такие вещи в форуме нехорошо. Вот если бы был задан вопрос, как это записать одной строчкой, тогда да.

...

Рейтинг:

0 / 0

23.09.2010, 20:56

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36863441

Спортсмен

Гость

И мои копейки

Код: plaintext

1.
2.

Function xxx(y As Integer, kva As Integer, nach As Boolean) As Date
  xxx = DateSerial(y,  3 *(kva+nach)+ 1 , -nach)
End Function

...

Рейтинг:

0 / 0

23.09.2010, 21:11

| Ответить | Цитировать | Написать

помогите написать функцию которая выдает по номеру квартала его начальную и конечную дату

#36863455

nord-woolf

Участник

Откуда: And God I know I'm one

Сообщения: 4 901

Рейтинг: 0 / 0

Усложним до:

Код: plaintext

GetBeginEndQuarter = Array(DateSerial(Y, Array(,  1 ,  4 ,  7 ,  10 )(Q),  1 ), DateSerial(Y, Q *  3 , Array(,  31 ,  30 ,  30 ,  31 )(Q)))

Код: plaintext

?GetBeginEndQuarter( 2010 , 4 )( 0 ),GetBeginEndQuarter( 2010 , 4 )( 1 )

...

Рейтинг:

0 / 0

23.09.2010, 21:30

| Ответить | Цитировать | Написать

25 сообщений из 40, страница 1 из 2

все

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=36862856&tid=1610889]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	49ms
get topic data:	9ms
get forum data:	2ms
get page messages:	52ms
get tp. blocked users:	1ms
others:	314ms

total:	458ms