Microsoft KB Archive/102053: Difference between revisions
From BetaArchive Wiki
(importing KB archive) |
m (Text replacement - """ to """) |
||
Line 17: | Line 17: | ||
SET TALK OFF | SET TALK OFF | ||
mdate = { / / } | mdate = { / / } | ||
@ 5,15 SAY | @ 5,15 SAY "Enter a date: " GET mdate | ||
READ | READ | ||
@ 6,15 SAY | @ 6,15 SAY "First day of the month: " + DTOC(firstday(mdate)) | ||
@ 7,15 SAY | @ 7,15 SAY "Last day of the month: " + DTOC(lastday(mdate)) | ||
SET TALK ON | SET TALK ON | ||
Line 34: | Line 34: | ||
PROCEDURE firstday | PROCEDURE firstday | ||
PARAMETERS currdate | PARAMETERS currdate | ||
IF TYPE( | IF TYPE("currdate") <> "D" && Check for correct input | ||
RETURN {//} | RETURN {//} | ||
ENDIF | ENDIF | ||
Line 51: | Line 51: | ||
PROCEDURE lastday | PROCEDURE lastday | ||
PARAMETERS currdate | PARAMETERS currdate | ||
IF TYPE( | IF TYPE("currdate") <> "D" && Check for correct input | ||
RETURN {//} | RETURN {//} | ||
ENDIF | ENDIF |
Revision as of 09:20, 20 July 2020
Computing the Date of the First and Last Day in a MonthID: Q102053 The information in this article applies to:
The following sample code computes the first and last day of a month, given any date within that month: ***************************************************************** * Main Program ***************************************************************** SET TALK OFF mdate = { / / } @ 5,15 SAY "Enter a date: " GET mdate READ @ 6,15 SAY "First day of the month: " + DTOC(firstday(mdate)) @ 7,15 SAY "Last day of the month: " + DTOC(lastday(mdate)) SET TALK ON ****************************************************************** * This UDF returns the date for the first day of a month, * given any date within that month * * Parameters: currdate - Any date. * * Variable: fday -The date for the first day in the * month. ****************************************************************** PROCEDURE firstday PARAMETERS currdate IF TYPE("currdate") <> "D" && Check for correct input RETURN {//} ENDIF fday = currdate- DAY(currdate) + 1 RETURN fday ********************************************************************* * This UDF returns the date for the last day of a month, * given any date within that month * * Parameters: currdate - Any date. * * Variable: lday -The date for the last day in the * month. ****************************************************************** PROCEDURE lastday PARAMETERS currdate IF TYPE("currdate") <> "D" && Check for correct input RETURN {//} ENDIF lday= firstday(currdate) +32 lday= lday- DAY(lday) RETURN lday Additional reference words: FoxDos FoxWin 2.00 2.50 2.50a 2.x KBCategory: kbprg KBSubcategory: FxprgGeneral |
Last Reviewed: June 27, 1995 |