Sub AddCommentDateTime()
'DESCRIPTION: Add current date&&time as comment
Dim nHour = DateAndTime.Now.Hour
Dim strMinute = DateAndTime.Now.Minute
If nHour > 9 And nHour < 16 And len(strMinute) = 1 Then
strMinute = "0" + strMinute
End If
Dim str As String
str = "/* nick " & Right(CStr(Year(Now)), 2) & "-" & CStr(Month(Now)) & "-" & CStr(Day(Now)) & " " _
& CStr(nHour) & ":" & strMinute & " */"
Dim sel = CType(DTE.ActiveDocument.Selection(), EnvDTE.TextSelection)
sel.Text = str
sel.WordLeft(False, 1)
sel.CharLeft(False, 1)
End Sub