Subversion Repositories DevTools

Rev

Rev 4767 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4767 Rev 5008
Line 1866... Line 1866...
1866 
        testArchiveAccessPkg = True
 1866 
        testArchiveAccessPkg = True
1867 
    End If
 1867 
    End If
1868 
  End If
 1868 
  End If
1869 
  On Error Goto 0
 1869 
  On Error Goto 0
1870 
End Function
 1870 
End Function
- 
 
 1871 
 
- 
 
 1872 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 1873 
' Like Cint, but handles NULL by replacing it with a default value
- 
 
 1874 
Function NiceInt( val, def)
- 
 
 1875 
   If IsNumeric(val) Then
- 
 
 1876 
       NiceInt = CInt(val)
- 
 
 1877 
   Else
- 
 
 1878 
       NiceInt = def
- 
 
 1879 
   End If
- 
 
 1880 
End Function
- 
 
 1881 
 
1871 
%>
 1882 
%>