http://dieseyer.de • all rights reserved • © 2011 v11.4

'v6.1*****************************************************
' File: now.vbs
' Autor: dieseyer@gmx.de
' dieseyer.de
'
' Überschreibt die now-Function und gibt dann die Zeit
' mit grösserer Genauigkeit zurück: 10.10.2005 17:10:22.13
'
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ! ! ! Damit funktioniert natürlich DateDiff nicht mehr ! ! !
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'
'***************************************************************

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

MsgBox "Jetzt ist es : " & Now() , , "17:: " & WScript.ScriptName


'*******************************************************
Function Now() ' 6.1 - http://dieseyer.de
'*******************************************************

' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' ! ! ! Damit funktioniert natürlich DateDiff nicht mehr ! ! !
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' Now gibt jetzt einen String und kein (verwendbares) Datum zurück

Now = Date & " " & Time & ",00"

' Wenn Timer() ein Komma enthält, wird: Now = Date & " " & Time & [Rest von Timer]
If InStr( Timer(), "," ) > 0 Then Now = Date & " " & Time & Mid( Timer(), InStr( Timer(), "," ) )

' Wenn Timer() nach dem Komma einstellig ist, wir eine 0 angehangen
If Len( Mid( Now, InStrRev( Now, "," ) ) ) = 2 Then Now = Now & "0"

End Function ' Now() ' 6.1 - http://dieseyer.de

http://dieseyer.de • all rights reserved • © 2011 v11.4