Function fReplace_Code(pChar)
	If Asc(pChar) >= ASC("A") And Asc(pChar) <= ASC("Z") Then
		fReplace_Code = Asc(pChar) - 64
	End If
	If Asc(pChar) >= ASC("0") And Asc(pChar) <= ASC("9") Then
		fReplace_Code = Asc(pChar) - 48
	End If
End Function

Function fAsc(pChar)
	fAsc = ASC(pChar)
end function

function fDateVarify(pDate) 
	Dim lDate
	if mDateFormula = "AD" then
		lDate = pDate
	else
		lDate = CStr(CInt(Left(pDate,3)) + 1911) & Mid(pDate,4)
	end if
	fDateVarify = IsDate(lDate)
end function

Function fIsLetter(pChar)
	Dim lChar
	lChar = UCase(pChar)
	If Asc(lChar) >= ASC("A") And Asc(lChar) <= ASC("Z") Then
		fIsLetter = True
	else	
		fIsLetter = False
	end if
End Function

Function fIsNumeric(pData)
	fIsNumeric = IsNumeric(pData)
End Function