Subversion Repositories DevTools

Rev

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

Rev 5632 Rev 5671
Line 54... Line 54...
54 
    set WSHShell = nothing
 54 
    set WSHShell = nothing
55 
end function
 55 
end function
56 
'----------------------------------------------
 56 
'----------------------------------------------
57 
'Returns the current database date-time
 57 
'Returns the current database date-time
58 
Function getDataBaseDateTime()
 58 
Function getDataBaseDateTime()
59 
   Dim sqry: sqry = "SELECT TO_CHAR (ora_sysdatetime, 'Dy DD-Mon-YYYY HH24:MI:SS') FROM DUAL"
 59 
   Dim sqry: sqry = "SELECT TO_CHAR (ora_sysdatetime, 'Dy fmDD-Mon-YYYY HH24:MI:SS') FROM DUAL"
60 
   Dim rsTemp
 60 
   Dim rsTemp
61 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
 61 
   Set rsTemp = OraDatabase.DbCreateDynaset( sqry , cint(0) )
62 
   getDataBaseDateTime = rsTemp(0)
 62 
   getDataBaseDateTime = rsTemp(0)
63 
   rsTemp.Close()
 63 
   rsTemp.Close()
64 
   Set rsTemp = Nothing
 64 
   Set rsTemp = Nothing