pfc_nextmonth

pfcmain.pbl   >   pfc_u_calendar   >   dw_cal   >   pfc_nextmonth

Name	Datatype
li_day	Integer
li_month	Integer
li_year	Integer

event pfc_nextmonth;call super::pfc_nextmonth;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  			pfc_nextmonth
//
//	(Arguments:		None)
//
//	(Returns:  		None)
//
//	Description:	Goto to the next month.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

Integer li_month
Integer li_year
Integer li_day

//Initialize local values.
li_year = Year(id_date)
li_month = Month(id_date)
li_day = Day(id_date)

//Increment the month number.
li_month ++
If li_month = 13 then
	li_month = 1
	li_year = li_year + 1
End If

//Validate day number for the new month.
If not(isdate(string(li_month) + "/" + string(li_day) + "/"+ string(li_year))) Then 
	li_day = 1
End If

//Set the new date.
of_SetDate (date(li_year, li_month, li_Day), True)

Return 1
end event

Name	Owner
pfc_u_calendar.dw_cal.key	dw_cal
pfc_u_calendar.dw_cal.buttonclicked	dw_cal

Name	Owner
systemfunctions.date	systemfunctions
systemfunctions.day	systemfunctions
systemfunctions.isdate	systemfunctions
systemfunctions.month	systemfunctions
systemfunctions.string	systemfunctions
systemfunctions.year	systemfunctions
pfc_u_calendar.of_setdate	pfc_u_calendar