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

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

Гость

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

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

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

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

40 сообщений из 40, показаны все 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

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

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

#36863456

nord-woolf

Участник

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

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

Рейтинг: 0 / 0

Попытка №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

Участник

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

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

Рейтинг: 0 / 0

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

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

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

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

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

Рейтинг: 1 / 0

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

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

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

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

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

Рейтинг: 1 / 0

СпортсменБоян
Да, я догадывался, что такой вариант уже был.

...

Рейтинг:

0 / 0

23.09.2010, 21:54

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

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

#36863486

nord-woolf

Участник

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

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

Рейтинг: 0 / 0

Владимир Саныч,
Да то было спортивное рукоблудие, не более. :)
Можно, конечно, через переменную типа Variant и оба значения массива пользовать,
да "хрен редьки не слаще".

...

Рейтинг:

0 / 0

23.09.2010, 21:55

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

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

#36863487

garri2000

Участник

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

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

Рейтинг: 0 / 0

мужики, какой счет?, кто выиграл?, АкБарс?

...

Рейтинг:

0 / 0

23.09.2010, 21:57

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

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

#36863499

nord-woolf

Участник

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

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

Рейтинг: 0 / 0

garri2000мужики, какой счет?, кто выиграл?, АкБарс?

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

...

Рейтинг:

0 / 0

23.09.2010, 22:09

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

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

#36863507

garri2000

Участник

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

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

Рейтинг: 0 / 0

nord-woolfgarri2000мужики, какой счет?, кто выиграл?, АкБарс?

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

а Вы, типа за спортивный интерес?

...

Рейтинг:

0 / 0

23.09.2010, 22:13

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

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

#36863517

nord-woolf

Участник

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

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

Рейтинг: 0 / 0

garri2000,
Нет, я намекаю на то, что всему свое время и место.
На соревнованиях - спортсменам и медалям,
на шоу - актерам и музыкантам.

И если несколько участников форума что-то обсуждают(всерьез или шутя),
это не значит, что они пипетками меряются, как вам почему-то постоянно кажется.

...

Рейтинг:

0 / 0

23.09.2010, 22:23

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

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

#36863594

garri2000

Участник

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

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

Рейтинг: 0 / 0

nord-woolf,

мне, каж., меру тоже надо знать, а так на пипеткомерянье похоже... ,
зы: ничего личного, сорри...

...

Рейтинг:

0 / 0

23.09.2010, 23:35

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

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

#36863672

nord-woolf

Участник

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

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

Рейтинг: 0 / 0

garri2000... а так на пипеткомерянье похоже...
Один смотрит на стакан, заполненный наполовину, и говорит: Этот стакан наполовину пуст.
Другой смотрит на этот-же стакан, и говорит: Да нет же, он наполовину целый.

Может особенности вашего восприятия заставляют вас видеть во всем пипеткомеряние?
Ну ладно-бы весной, а то осенью. :)
Модератор: Предлагаю остановить эту увлекательную тему.

...

Рейтинг:

0 / 0

24.09.2010, 00:53

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

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

#36871456

George-III

Участник

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

Рейтинг: 0 / 0

ё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

29.09.2010, 09:00

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

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

#36877272

paradisediamond

Участник

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

Сообщения: 102

Рейтинг: 0 / 0

ну и полемику вы тут развели. Я вообще тупая девушка, начальник которй считает что за мной будущее прогрммиста, и что из меня получится программист, лучше бы из меня жена получилась и мать. но не важно, А так у него вообще все женщины тупые алчные самки, я в том числе, просто он наверное скрывает это. Я же тут выясняю для себя все

...

Рейтинг:

0 / 0

01.10.2010, 15:13

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

Период между сообщениями больше года.

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

#39765419

__Michelle

Участник

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

Рейтинг: 0 / 0

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

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

40 сообщений из 40, показаны все 2 страниц

все

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?all=1&fid=45&tid=1610889]:	0ms
get settings:	10ms
get forum list:	15ms
check forum access:	4ms
check topic access:	4ms
track hit:	58ms
get topic data:	10ms
get forum data:	3ms
get page messages:	63ms
get tp. blocked users:	1ms
others:	12ms

total:	180ms