Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Lukas

Public Function funMonthOfQuarter(dteDate As Date) As Long
    Select Case Month(dteDate)
        Case 1, 4, 7, 10
            funMonthOfQuarter = 1
        Case 2, 5, 8, 11
            funMonthOfQuarter = 2
        Case 3, 6, 9, 12
            funMonthOfQuarter = 3
    End Select
End Function


Более наглядно, и работает в полтора раза быстрее.


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.