function isDateStr(strDate)
	isDateStr = isdate(strDate)
	
	if isDateStr then
		strDate=cdate(strDate)
		if strDate>cdate("1900-1-1") and strDate < cdate("2079-6-6") then isDateStr=true
	end if
		
end function

function isDateStr_lda(strDate)
'======================================
'=函数:isDateStr_lda
'=参数:日期
'=功能:检测日期是否合法在1753-1-1到9999-12-31
'=	  之间
'=返回值:true or false
'=history:
'======================================

	isDateStr_lda = isdate(strDate)
	
	if isDateStr_lda then
		strDate=cdate(strDate)
		if strDate>cdate("1753-1-1") and strDate < cdate("9999-12-31") then isDateStr_lda=true
	end if
		
end function


function isDASJ(strDate)
'======================================
'=函数:isDASJ
'=参数:日期时间
'=功能:检测日期是否合法在1900-1-1 00:00到2079-6-6 23:59
'=	   之间
'=返回值:true or false
'=history:
'======================================

	isDASJ = isdate(strDate)
	
	if isDateSJ then
		strDate=cdate(strDate)
		if strDate>cdate("1900-1-1 00:00") and strDate < cdate("2079-6-6 23:59") then isDateSJ=true
	end if


end function

function isLLDA(strDate)
'======================================
'=函数:isLLDA
'=参数:strDate : 日期
'=功能:检测日期是否合法在100-01-01到9999-12-31
'=	   之间
'=返回值:true or false
'=history:
'======================================

	isLLDA = isdate(strDate)
	
	if isLLDA then
		strDate=cdate(strDate)
		if strDate>cdate("100-1-1") and strDate < cdate("9999-12-31") then isLLDA=true
	end if

end function




function isintStr(strInt)
	isintStr = isnumeric(strInt)
end function

function isValidSmallDate(strDate)
	dim smalldate
	smalldate = cdate(strDate)
	if smalldate > cdate("2079-6-6") or smalldate < cdate("1900-1-1") then
		isValidSmallDate = false
	else
		isValidSmallDate = true
	end if
end function


'------------------------------------
'位数1-38,小数位数大于等于0，小于等于长度
'------------------------------------

function isDecimal(strDate)

	if isNumeric(strDate) then
		if len(strDate)<=38 then
			isDecimal=true
		else
			isDecimal=false
		end if
	else
		isDecimal=false
		
	end if	

end function


'----------------------------------------------------------
'-922,337,203,685,477.5808 至 +922,337,203,685,477.5807
'为了方便检查范围正负900,000,000,000,000
'
'-------------------------------------------------------

function isMoney(strDate)

	if isNumeric(strDate) then
		if (strDate>-900000000000000) and(strDate<900000000000000)  then
			isMoney=true
		else
			isMoney=false
		end if
	else
		isMoney=false
		
	end if	

end function

function getValue(str,strItem)
	dim iState1,iState2
	iState1 = instr(1,str,strItem)
	iState2 = instr(iState1+len(strItem)+2,str,"""") 
	getValue = mid(str,iState1+len(strItem)+2,iState2-iState1-len(strItem)-2)
end function