http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FDate_Functions%2FHour
VBA/Excel/Access/Word/Date Functions/Hour - История изменений
2026-04-05T07:15:34Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Date_Functions/Hour&diff=1979&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Date_Functions/Hour&diff=1980&oldid=prev
Admin: 1 версия
2010-05-26T12:48:49Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Hour(time) returns Variant/Integer between 0 and 23, inclusive, representing the hour for time==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateDemo6()<br />
Debug.Print Hour(Date)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==use Hour to get the hour value from a date==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Private Sub myTime0()<br />
Dim time As Date<br />
Dim theHour As Integer<br />
Dim theDayOfTheWeek As Integer<br />
time = Now<br />
theHour = Hour(time)<br />
theDayOfTheWeek = Weekday(time)<br />
If (theHour > 8) And (theHour < 17) Then<br />
If (theDayOfTheWeek > 0) And (theDayOfTheWeek < 6) Then<br />
MsgBox ("You should be at work!")<br />
Else<br />
MsgBox ("I love weekends")<br />
End If<br />
Else<br />
MsgBox ("You should not be at work!")<br />
End If<br />
End Sub<br />
</source></div>
Admin