Subversion Repositories DevTools

Rev

Rev 6175 | Rev 6183 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6175 Rev 6176
Line 11... Line 11...
11 
 
 11 
 
12 
'--------------------------------------------------------------------------------------------------------------------------
 12 
'--------------------------------------------------------------------------------------------------------------------------
13 
Function PrettyDelta( delta, daemonState,pkgId )
 13 
Function PrettyDelta( delta, daemonState,pkgId )
14 
    Dim style
 14 
    Dim style
15 
    style = ""
 15 
    style = ""
- 
 
 16 
    If delta <> ""  AND IsNumeric(delta) Then
- 
 
 17 
        delta = CLng(delta)
- 
 
 18 
    Else
- 
 
 19 
        PrettyDelta = "-"
- 
 
 20 
        Exit Function
- 
 
 21 
    End If
16 
 
 22 
 
17 
    If (delta > Max_Delta) AND (IsNull(pkgId) OR pkgId = "") Then
 23 
    If (delta > Max_Delta) AND (IsNull(pkgId) OR pkgId = "") Then
18 
      style = "style=color:Red"
 24 
      style = "style=color:Red"
19 
      If (delta > 86400 ) Then
 25 
      If (delta > 86400 ) Then
20 
        Dim bdate, dd,mm,yy
 26 
        Dim bdate, dd,mm,yy