'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