Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Quarter() in FPD
Message
General information
Forum:
Visual FoxPro
Category:
FoxPro 2.x
Miscellaneous
Thread ID:
00885291
Message ID:
00885293
Views:
13
This message has been marked as the solution to the initial question of the thread.
>Hi all,
>
>I've been doing some maintenance for our FPD app and needed an equivalent QUARTER() function. I was hoping that someone can share their user-defined function if they have one.
>
>Thanks in advance.

Using the normal calendar rather than a fiscal one.
FUNCTION Quarter

PARAMETER tdDate

PRIVATE m.result
m.result = CEILING(MONTH(tdDate) / 4)
IF MONTH(tdDate) % 4 = 0
  m.result = m.result + 1
ENDIF
RETURN m.result
George

Ubi caritas et amor, deus ibi est
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform