PowerBuilder Function Is Valid Date

PowerBuilder Function Is Valid Date f_is_valid_date

///////////////////////////////////////////////////////////////////////////////////////////////////////////// //
// Function Name : f_is_valid_date
// Argument Name : ad_source, Arg Type : Date, Pass By : Value
// Return Type :      Boolean
///////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Description:      Given a date, will determine if the Date is valid.
///////////////////////////////////////////////////////////////////////////////////////////////////////////////


Integer     li_year
Integer    li_month
Integer    li_day

// Initialize test values.
li_year = Year(ad_source)
li_month = Month(ad_source)
li_day = Day(ad_source)

// Check for nulls.
If  IsNull(ad_source) Or IsNull(li_year) Or IsNull(li_month) Or IsNull(li_day) Then
	Return False
End If

// Check for invalid values.
If  li_year <= 0 Or li_month <= 0 Or li_day <= 0 Then
	Return False
End If

// Passed all testing.
Return True

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

// Function Name : f_is_valid_date

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

// Return Type : Boolean

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

// Description: Given a date, will determine if the Date is valid.

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

Integer li_year

Integer li_month

Integer li_day

// Initialize test values.

li_year = Year(ad_source)

li_month = Month(ad_source)

li_day = Day(ad_source)

// Check for nulls.

If IsNull(ad_source) Or IsNull(li_year) Or IsNull(li_month) Or IsNull(li_day) Then

Return False

End If

// Check for invalid values.

If li_year <= 0 Or li_month <= 0 Or li_day <= 0 Then

Return False

End If

// Passed all testing.

Return True

Good Luck!

PowerBuilder Tips & Tricks

November 21, 2020

Was this article helpful?