Function Check2Dates( dtDa, dtA )
	Check2Dates = DateDiff( "d", dtA, dtDa )
End Function

Function GetYear( dt )
	GetYear = Year( dt )
End Function

Function GetServerDate
	GetServerDate = Now()
End Function

Function GetN_ValidFormRequest( rq )
	GetN_ValidFormRequest = 0+("0"&Trim(Request.Form(rq)))
End Function

Function GetN_ValidRequest( rq )
	GetN_ValidRequest = 0+("0"&Trim(Request(rq)))
End Function

Function GetS_ValidFormRequest( rq )
	GetS_ValidFormRequest = Trim(""&Request.Form( rq ))
End Function

Function GetS_ValidRequest( rq )
	GetS_ValidRequest = Trim(""&Request( rq ))
End Function

Function IsNullStr( str )
	IsNullStr = IsNull(str) Or IsEmpty(str) Or Len(Trim(str))=0
End Function

Function ChkAndTrimStr( oObj )
	str = Trim(oObj.value)
	oObj.value = str
	If IsNull(str) Or IsEmpty(str) Or Len(str)=0 Then
		ChkAndTrimStr = 0
		Exit Function
	End If
	ChkAndTrimStr = Len(str)
End Function

Function ChkAndTrimDate( oObj )
	str = Trim(oObj.value)
	If IsNull(str) Or IsEmpty(str) Or Len(str)=0 Then
		ChkAndTrimDate = False
		Exit Function
	End If
	ChkAndTrimDate = IsDate(str)
End Function

Function ChkAndTrimNum( oObj )
	Dim n
	n = Fix(0 +("0"&oObj.value))
	If n <= 0 Then
'		oObj.value = 0
		ChkAndTrimNum = 0
		Exit Function
	End If
	oObj.value = n
	ChkAndTrimNum = n
End Function