Week by Month - Level Extreme

Level Extreme platform

Subscription

Corporate profile

Products & Services

Support

Legal

Français

Week by Month

Message

From

26/12/2006 19:05:58

Sergey Berezniker
New York, United States

26/12/2006 16:04:09

Tc Holzer
Isle of Man

General information

Forum:

Visual FoxPro

Category:

Coding, syntax & commands

Title:

Re: Week by Month

Environment versions

Visual FoxPro:

VFP 9 SP1

OS:

Windows XP SP2

Database:

Visual FoxPro

Miscellaneous

Thread ID:

01180294

Message ID:

01180393

Views:

Thanks. :)
I like such compact solutions too.

>Now THAT is cool :o)
>
>>

>>FUNCTION FourthFridayOfMonth(tnYear, tnMonth)
>>LOCAL lnDOW
>>lnDOW = DOW(DATE(tnYear, tnMonth, 01), 7)
>>RETURN DATE(tnYear, tnMonth, 7 - lnDow + 1 + 3*7)
>>
>>* or one-liner
>>FUNCTION FourthFridayOfMonth(tnYear, tnMonth)
>>RETURN DATE(tnYear, tnMonth, 7 - DOW(DATE(tnYear, tnMonth, 01), 7) + 1 + 3*7)
>>

--sb--

Map

View

Click here to load this message in the networking platform