声明函数isintegerbyval里查找office21.pdfVIP

DeclareFunctionIsInteger(ByvalLaChaineasstring)aslogical

DeclareFunctionIsDecimal(ByvalLaChaineasstring)aslogical

FunctionIsInteger(ByvalLaChaineasstring)aslogical

DimNbrCarasinteger

Dimiasinteger

DimCarExtractasString

i=0

CarExtract=

NbrCar=0

IsInteger=True

NbrCar=len(LaChaine)

Fori=1toNbrCar

CarExtract=Mid$(LaChaine,i,1)

IfInStr(1,0123456789,CarExtract)=FalseThen

IsInteger=False

exitFunction

Endif

next

Endfunction

FunctionIsDecimal(ByvalLaChaineasstring)aslogical

DimNbrCarasinteger

Dimiasinteger

DimCarExtractasString

DimComptePointasinteger

i=0

CarExtract=

NbrCar=0

ComptePoint=0

IsDecimal=True

NbrCar=len(LaChaine)

Fori=1toNbrCar

CarExtract=Mid$(LaChaine,i,1)

IfCarExtract=.andComptePoint=0then

ComptePoint=1

ElseIfCarExtract=.andComptePoint0then

IsDecimal=False

exitFunction

endif

IfInStr(1,.0123456789,CarExtract)=FalseThen

IsDecimal=False

exitFunction

Endif

next

Endfunction

函数isInteger（byvallachaine为字符串）为逻辑函数ISDECIMAL（BYVALLACHAINE为字符串）为逻

辑函数isInteger（byvallachaine作为字符串）作为逻辑昏暗的nbrcar作为整数dimi作为整数dimcarextract

作为字符串i=0careXtract=“nbrcar=0isinteger=truenbrcar=len（lachaine）fori=1tonbrcar

CareXtract=Mid$（Lachaine，i，1）

如果仪器（1，“0123456789”，CareXtract）=false

isInteger=false功能结束如果下一个末端功能函数iSdecimal（byvallachaine作为字符串）作为逻辑昏

暗的nbrcar作为整数dimi作为整数dimcarextract作为字符串dimcomptoint作为整数i=0carextract=“nbr

car=0comptepoint=0isdecimal=truenbrcar=len（lachaine）

CareXtract=Mid$（Lachaine，i，1）

如果CareXtract=“。”和comptepoint=0，则

comptepoint=1

ElseifCareXtract=“。”和comptepoint0

isDecimal=fal