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 = 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 = 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 = 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
																																																				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
																																																											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