Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Number of days in a month
Message
From
11/10/1997 19:06:15
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00053634
Message ID:
00054203
Views:
34
>>>>>Is there a function to get the number of days in a month.
>>>>>eg. the number of days in any month of any year.
>>>>>
>>>>>Thanks
>>>>>Andrew
>>>>
>>>>As long as I know VFP does not have a function for this, but is very easy you can make your own such as this
>>>>
>>>>Function DaysOfMonth
>>>>Lpara tnMonth, tnYear
>>>>*-- have to pass the year also as parameter to find out if is a leap year
>>>>
>>>>do case
>>>> case tnMonth=1
>>>> return 31
>>>> case tnMonth=2
>>>> if mod(tnYear,4)=0 &&leap year
>>>> return 29
>>>> else
>>>> return 28
>>>> endif
>>>> case tnMonth=3
>>>> return 31
>>>>etc...
>>>>etc...
>>>>endcase
>>>
>>>
>>>I TOOK A PEAK AT WHAT I DID FOR #OFDAYS -
>>>MY WAY, YOU MUST TAKE IN CONSIDERATION THE NEXT MONTH PAST 12
>>>IS 1 IN NEW YEAR. THE CORRECT CODE (NOT WHAT I MENTIONED BEFORE):
>>>dWHEN= {2/12/96}
>>>? DAY(CTOD(str(IIF((Month(dWHEN)+1 > 12),1,(Month(dWHEN)+1)));
>>>+"/01/";
>>>+Alltrim(SUBSTR(STR(IIF((Month(dWHEN)+1 > 12),;
>>> Year(dWHEN)+1,Year(dWHEN))),7,4)))-1)
>>>
>>>PAULS RIGHT- BEWARE of how SET DATE
>>>
>>>Ed B
>>
>>Ed,
>> Please post messages in lowercase or mixed case, CAPS ARE CONSIDERED SHOUTING in online communication.
>>
>>Thanx!
>>
>>Tony Miller
>>Vancouver,Wa
>
>I’m new to the WEB, Thanks for the etiquette lesson
>- This UT is fantastic!
>Ed B

Actually, it is called "netiquette". :)

Vlad
Previous
Reply
Map
View

Click here to load this message in the networking platform