http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FDate_Functions%2FDateSerial
VBA/Excel/Access/Word/Date Functions/DateSerial - История изменений
2026-04-05T07:38:54Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Date_Functions/DateSerial&diff=1993&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/DateSerial&diff=1994&oldid=prev
Admin: 1 версия
2010-05-26T12:48:51Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==DateSerial( returns 4==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateDemo()<br />
Debug.Print DateSerial(4, 11, 23)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DateSerial(year, month, day) returns a Variant/Date containing the date for the specified year, month, and day==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateDemo3()<br />
Debug.Print DateSerial(1997, 7, 4)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Delivery Date Maint==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub Main()<br />
Debug.Print DeliveryDateMaint(1998,12)<br />
End Sub<br />
Public Function DeliveryDateMaint(intYear As Integer, intMonth As Integer)<br />
Dim datStart As Date<br />
datStart = DateSerial(intYear, intMonth, 8)<br />
Select Case Weekday(datStart, vbSunday)<br />
Case vbSunday<br />
DeliveryDateMaint = datStart + 3<br />
Case vbMonday<br />
DeliveryDateMaint = datStart + 2<br />
Case vbTuesday<br />
DeliveryDateMaint = datStart + 1<br />
Case vbWednesday<br />
DeliveryDateMaint = datStart<br />
Case vbThursday<br />
DeliveryDateMaint = datStart + 6<br />
Case vbFriday<br />
DeliveryDateMaint = datStart + 5<br />
Case vbSaturday<br />
DeliveryDateMaint = datStart + 4<br />
End Select<br />
End Function<br />
</source><br />
<br />
<br />
<br />
<br />
==Use DateSerial and Weekday==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Function DeliveryDateFast(intYear As Integer, intMonth As Integer)<br />
Dim datStart As Date<br />
datStart = DateSerial(intYear, intMonth, 8)<br />
DeliveryDateFast = datStart + (7 - Weekday(datStart, vbThursday))<br />
End Function<br />
Sub Main()<br />
Debug.Print DeliveryDateFast(1998,7)<br />
End Sub <br />
</source></div>
Admin