Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Week
Message
From
27/11/2002 13:32:12
 
 
To
27/11/2002 13:05:37
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Re: Week
Miscellaneous
Thread ID:
00727666
Message ID:
00727679
Views:
9
PROCEDURE FunctionX
LPARAMETERS WeekNb, nYear
LOCAL FDOY, inc
FDOY = Date (nYear, 1, 1) 
inc = 8 - DOW (FDOY, 2)

IF (inc < 7)
   FDOY = FDOY + inc
ENDIF

RETURN FDOY + (WeekNb - 2) * 7
HTH

>I need one way to know , the day at begin of week ? of year .
>
>Example , week 48 in this year , begin at 25/11/2002
>
>I want make :
>
>MyDay = FunctionX(48,2002)
>
>? MyDay && 25/11/2002
Previous
Reply
Map
View

Click here to load this message in the networking platform