'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