arnelgp
..forever waiting... waiting for jellybean!
- Local time
- Tomorrow, 05:20
- Joined
- May 7, 2009
- Messages
- 19,245
Code:
SELECT "TERM " & ((Month(Date())-1)\4)+1 AS TERM
Code:
Public Function getTerm(Optional ByVal p As Variant = "") As String
If IsDate(p) Then
p = Month(p)
Else
p = Val("0" & p)
End If
If p < 1 Then p = Month(Date)
getTerm = "TERM " & ((p - 1) \ 4) + 1
End Function