REM ************************************************
REM 文字列(日付形式を含む)から整数
REM 通常文字列は 0 になる
REM ************************************************
Function AtoI( strValue )
on error resume next
AtoI = CLng( strValue )
if Err.Number <> 0 then
Err.Clear
strValue = DateValue( strValue )
if Err.Number <> 0 then
AtoI = 0
else
AtoI = CLng( strValue )
end if
end if
on error goto 0
End function
|