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