нашел такой msgbox в файле на работе, очень заинтересовал, но вот время там не показывает только нолики, объясните пожалуйста что сделать чтоб и время показало,
Код |
---|
Sub STARTALL() StartTimer = Now() StartTimer2 = Now() Application.ScreenUpdating = False EndTimer2 = Now TIX = "It's taken: " & Format(CDbl(EndTimer2) - CDbl(StartTimer2), "hh:mm:ss") If Time < 0.5 Then MsgBox "GOOD MORNING" & vbCrLf & "Alex" _ , vbExclamation + vbOKOnly, "Andy" & " " & TIX ElseIf Time >= 0.5 And Time < 0.75 Then MsgBox "GOOD AFTERNOON" & vbCrLf & "Alex" _ , vbExclamation + vbOKOnly, "Andy" & " " & TIX Else MsgBox "GOOD EVENING" & vbCrLf & "Alex" _ , vbExclamation + vbOKOnly, "Andy" & " " & TIX End If End Sub |