VBA/Excel/Access/Word/Date Functions/Now

Материал из VB Эксперт
Версия от 15:48, 26 мая 2010; Admin (обсуждение | вклад) (1 версия)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Date and Now

   <source lang="vb">

Sub dateFunctions()

  Debug.Print "The present date and time is: " & Now
  Debug.Print "Today"s date is: " & Date

End Sub

</source>
   
  


Now returns a Variant/Date containing the current date and time according to your computer

   <source lang="vb">

Sub dateDemo10()

  Debug.Print Now

End Sub

</source>
   
  


Use Now to retrieve current Date and Time

   <source lang="vb">

Private Sub myTime()

   Dim time As Date
   Dim theHour As Integer
   Dim theDayOfTheWeek As Integer
   time = Now
   theHour = Hour(time)
   theDayOfTheWeek = Weekday(time)
   If (theHour > 8) And (theHour < 17) Then
       If (theDayOfTheWeek > 0) And (theDayOfTheWeek < 6) Then
           MsgBox ("You should be at work!")
       Else
           MsgBox ("I love weekends")
       End If
   Else
       MsgBox ("You should not be at work!")
   End If

End Sub

</source>