http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FDate_Functions%2FDatePart
VBA/Excel/Access/Word/Date Functions/DatePart - История изменений
2026-04-05T07:57:06Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Date_Functions/DatePart&diff=1981&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/DatePart&diff=1982&oldid=prev
Admin: 1 версия
2010-05-26T12:48:50Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Break a single date down to its individual components using the DatePart function==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions()<br />
Dim strDateString As String<br />
strDateString = "The year part is: " & DatePart("yyyy", Date) & vbCrLf & _<br />
"The quarter part is: " & DatePart("q", Now) & vbCrLf & _<br />
"The month part is: " & DatePart("m", Now) & vbCrLf & _<br />
"The day part is: " & DatePart("d", Now) & vbCrLf & _<br />
"The weekday is: " & DatePart("w", Now) & vbCrLf & _<br />
"The week part is: " & DatePart("ww", Now) & vbCrLf & _<br />
"The hour part is: " & DatePart("h", Now) & vbCrLf & _<br />
"The minute part is: " & DatePart("n", Now) & vbCrLf & _<br />
"The second part is: " & DatePart("s", Now)<br />
msgBox strDateString<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart("d", Now)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions4()<br />
Debug.Print "The day part is: " & DatePart("d", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart("h", Now)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions7()<br />
Debug.Print "The hour part is: " & DatePart("h", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart("m", Now)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions3()<br />
Debug.Print "The month part is: " & DatePart("m", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart("n", Now)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions8()<br />
Debug.Print "The minute part is: " & DatePart("n", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart("q", Now)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions2()<br />
Debug.Print "The quarter part is: " & DatePart("q", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart returns "Prints the Year==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub DatePartExample()<br />
Debug.Print DatePart("YYYY", Now)<br />
<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart("s", Now)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions9()<br />
Debug.Print "The second part is: " & DatePart("s", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart("w", Now)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions5()<br />
Debug.Print "The weekday is: " & DatePart("w", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==DatePart("ww", Now)==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub dateFunctions6()<br />
Debug.Print "The week part is: " & DatePart("ww", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Prints the Day of the Year==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub DatePartExample()<br />
Debug.Print DatePart("Y", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Prints the Month Number==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub DatePartExample()<br />
Debug.Print DatePart("M", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Prints the Quarter Number==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub DatePartExample()<br />
Debug.Print DatePart("Q", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Prints the Week of the Year==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub DatePartExample()<br />
Debug.Print DatePart("WW", Now)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Using DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) to Parse Dates==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Constant Value Year Starts with Week <br />
vbUseSystem 0 Use the system setting. <br />
vbFirstJan1 1 The week in which January 1 falls (the default setting). <br />
vbFirstFourDays 2 The first week with a minimum of four days in the year. <br />
vbFirstFullWeek 3 The first full week (7 days) of the year. <br />
<br />
the following statement assigns the current year to the variable dteThisYear:<br />
Sub datePart()<br />
Debug.Print DatePart("yyyy", Date)<br />
End Sub<br />
</source></div>
Admin