Разбивка временного периода на декады

Требуется разбить период (все равно какой) на декады без учета года. Для начала сделал попытку привести даты к требуемому формату.
Создал запрос на выборку:
I столбец: [dtmDATELEG]; II - Выражение2: FormatDate([dtmDATELEG])

Функцию по переводу даты в декаду определил в стандартном модуле:
Option Compare Database
Option Explicit

Public dtmDATELEG As Date

Public Function FormatDate(dtmDATELEG) As String

Dim strMonth As String
Dim intDay As Integer
Dim strDecada As String
Dim strDecOfMonth As String

strMonth = Format(dtmDATELEG, "mmm")
If IsNull(dtmDATELEG) Then
strDecOfMonth = ""
Else
intDay = DatePart("D", dtmDATELEG)
End If

Select Case intDay
Case 1 <= intDay And intDay <= 10
strDecada = "I дек "
Case 1 <= intDay And intDay <= 10
strDecada = "II дек "
Case 1 <= intDay And intDay <= 10
strDecada = "III дек "
End Select
strDecOfMonth = strDecada & strMonth
FormatDate = strDecOfMonth

End Function

На выполнении запроса не ругается, но столбец с "декадами" остается пустым. Что не так?

Можно бы и хелп по Case почитать

Select Case intDay
Case 1 To 10
strDecada = "I дек "
Case 11 To 20
strDecada = "II дек "
Case 21 To 31
strDecada = "III дек "
End Select