PowerBuilder Function Relative Year

PowerBuilder Function Relative Year gf_relative_year

///////////////////////////////////////////////////////////////////////////////////////////////////////////// //
// Function Name : gf_relative_year
// Argument Name : ad_source, Arg Type : Date, Pass By : Value
//                           al_years, Arg Type : Long, Pass By : Value
// Return Type : Date
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
//    Description:   Given a date, will return the date +/- the number of years passed
//                        in the second parameter.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
Integer li_year
Integer li_month
Integer li_day


//Check parameters
If IsNull(ad_source) Or IsNull(al_years) Then
	Date ldt_null
	SetNull(ldt_null)
	Return ldt_null
End If

//Check for invalid date
If Not f_Is_Valid_Date(ad_source) Then
	Return ad_source
End If

li_year = Year(ad_source) + al_years
li_month = Month(ad_source)
li_day = Day(ad_source)

//Check for a valid day (i.e., February 30th is never a valid date)
Do While Not f_Is_Valid_Date(Date(li_year, li_month, li_day)) And li_day > 0
	li_day --
Loop

Return( Date(li_year, li_month, li_day))

///////////////////////////////////////////////////////////////////////////////////////////////////////////// //

// Function Name : gf_relative_year

// Argument Name : ad_source, Arg Type : Date, Pass By : Value

// al_years, Arg Type : Long, Pass By : Value

// Return Type : Date

///////////////////////////////////////////////////////////////////////////////////////////////////////////////

// Description: Given a date, will return the date +/- the number of years passed

// in the second parameter.

///////////////////////////////////////////////////////////////////////////////////////////////////////////////

Integer li_year

Integer li_month

Integer li_day

//Check parameters

If IsNull(ad_source) Or IsNull(al_years) Then

Date ldt_null

SetNull(ldt_null)

Return ldt_null

End If

//Check for invalid date

If Not f_Is_Valid_Date(ad_source) Then

Return ad_source

End If

li_year = Year(ad_source) + al_years

li_month = Month(ad_source)

li_day = Day(ad_source)

//Check for a valid day (i.e., February 30th is never a valid date)

Do While Not f_Is_Valid_Date(Date(li_year, li_month, li_day)) And li_day > 0

li_day --

Loop

Return( Date(li_year, li_month, li_day))

Good Luck!

PowerBuilder Tips & Tricks

November 21, 2020

Was this article helpful?