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
																																															function gotTopic(ByVal str,ByVal strlen)
																																																if str="" then
																																																								gotTopic=""
																																																								exit function
																																																							end if
																																																							dim l,t,c, i,strTemp
																																																str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
																																																															l=len(str)
																																																														t=0
																																																												strTemp=str
																																																											strlen=Clng(strLen)
																																																										for i=1 to l
																																																										c=Abs(Asc(Mid(str,i,1)))
																																																								if c>255 then
																																																		t=t+2
																																																	else
																																																																											t=t+1
																																																																									end if
																																																																							if t>=strlen then
																																																																							strTemp=left(str,i)
																																																																						exit for
																																																	end if
																																																next
																																																				if strTemp<>str then
																																																					strTemp=strTemp & "бн"
																																																		end if
																																																gotTopic=replace(replace(replace(replace(strTemp," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
																																															end function