TarihPart Açıklama
Belirli bir tarihin belirli bir bölümünü döndürür.
Basit DatePart Örnekleri
İşte basit bir DatePart örneği:
| 123 | Alt DatePart_Year_Test()MsgBox DatePart("yyyy", #1/1/2019#)Alt Bitiş |
Bu kod 2022'yi döndürür.
TarihPart Sözdizimi
VBA Düzenleyicide, DatePart İşlevinin sözdizimini görmek için “DatePart(” yazabilirsiniz:
DatePart işlevi 4 bağımsız değişken içerir:
Aralık: Zaman birimi (Günler, Aylar, Yıllar, vb.). Dize olarak girin. (ör. Ay için “m”)
| Ayar | Açıklama |
|---|---|
| yyyy | Yıl |
| Q | Çeyrek |
| m | Ay |
| y | Yılın Günü |
| NS | Gün |
| w | Hafta içi |
| ww | Hafta |
| H | Saat |
| n | Dakika |
| s | İkinci |
Tarih: Değerlendirmek istediğiniz Varient (Date) değeri.
Haftanın ilk günü: Haftanın ilk gününü belirten bir sabit. Bu isteğe bağlıdır. Belirtilmezse Pazar olduğu varsayılır.
| Devamlı | Değer | Açıklama |
|---|---|---|
| vbUseSystem | 0 | NLS API ayarını kullanın. |
| vbPazar | 1 | Pazar (varsayılan) |
| vbPazartesi | 2 | Pazartesi |
| vbTuesday | 3 | Salı |
| vbÇarşamba | 4 | Çarşamba |
| vbPerşembe | 5 | Perşembe |
| vbCuma | 6 | Cuma |
| vbCumartesi | 7 | Cumartesi |
Yılın İlk Haftası: Yılın ilk haftasını belirten bir sabit. Bu isteğe bağlıdır. Belirtilmezse, ilk haftanın 1 Ocak'ın gerçekleştiği hafta olduğu varsayılır.
| Devamlı | Değer | Açıklama |
|---|---|---|
| vbUseSystem | 0 | NLS API ayarını kullanın. |
| vbFirstJan1 | 1 | 1 Ocak'ın (varsayılan) gerçekleştiği hafta ile başlayın. |
| vbFirstFourDays | 2 | Yeni yılda en az dört günü olan ilk hafta ile başlayın. |
| vbFirstFullWeek | 3 | Yılın ilk tam haftasıyla başlayın. |
VBA Programlama | Code Generator sizin için çalışıyor!
Excel VBA DatePart İşlevi Örnekleri
Referans Tarihleri
Başlamak için, VBA DatePart İşlevini kullanarak tarihlere başvurmanın farklı yollarını göstereceğiz.
Bu DatePart işlevlerinin her biri aynı sonucu verir:
| 123456789 | Alt DateAdd_ReferenceDates()MsgBox DatePart("yyyy", #4/1/2019#)MsgBox DatePart("yyyy", DateSerial(2019, 4, 1))MsgBox DatePart("yyyy", DateValue("1 Nisan 2022"))Alt Bitiş |
Veya tarih içeren bir hücreye başvurabilirsiniz:
| 12345 | Alt DatePart_ReferenceDate_Cell()MsgBox DatePart("yyyy", Range("C2").Value)Alt Bitiş |
Veya tarih değişkenleri oluşturun ve bunlara referans verin:
| 12345678 | Alt DatePart_Variable()Dim dt As Tarihdt = #4/1/2019#MsgBox DateAdd("yyyy", dt)Alt Bitiş |
Farklı Aralık Birimlerini Kullanma
Çeyrek
| 123 | Alt DatePart_Quarter()MsgBox DatePart("q", #6/30/2019#)Alt Bitiş |
Ay
| 12345 | Alt DatePart_Month()MsgBox DatePart("m", #6/30/2019#)' eş değerMsgBox Ay(#6/30/2019#)Alt Bitiş |
Gün
| 12345 | Alt DatePart_Day()MsgBox DatePart("d", #6/30/2019#)' eş değerMsgBox Günü(#6/30/2019#)Alt Bitiş |
Hafta
| 12345 | Alt DatePart_Week_Test()MsgBox DatePart("w", #6/30/2019#)' eş değerMsgBox Hafta içi(#6/30/2019#)Alt Bitiş |
Saat
| 123456789101112 | Alt DatePart_Hour()Dim dt As TarihnSaat Kadar Dimdt = #8/14/2019 9:30:00 AM#nHour = TarihPart("s", dt)MsgBox nSaat' eş değerMsgBox Saati(dt)Alt Bitiş |
dakika
| 123456 | Alt TarihPart_Dakika()MsgBox DatePart("n", #8/14/2019 09:15:00 AM#)' eş değerMsgBox Dakikası(#8/14/2019 9:15:00 AM#)MsgBox Dakikası(#9:15:00 AM#)Alt Bitiş |
İkinci
| 123456 | Alt DatePart_Second()MsgBox DatePart("s", #8/14/2019 09:15:15 AM#)' eş değerMsgBox Saniye(#8/14/2019 09:15:15 AM#)MsgBox Saniye(#9:15:15 AM#)Alt Bitiş |
