Makale DATEPART

Bu Makale Yararlı Oldu mu?

  • Evet

  • Hayır


Sonuçlar yalnızca oylamadan sonra görülebilir.

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,334
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
DATEPART( Interval, Date, [FirstDayOfWeek], [FirstWeekOfYear] )

Belirli bir tarihin belirtilen bölümünü döndürür. (Integer)


Interval

Eklemek istediğiniz zaman aralığı (String):



"yyyy","YYYY" = yıl



"q","Q" = çeyrek



"m","M" = ay



"y","Y" = yılın günü



"d","D" = gün



"w","W" = haftanın günü



"ww","WW" = hafta



"h","H" = saat



"n","N" = dakika



"s","S" = saniye

Date

Değerlendirmek istediğiniz tarih (Date)

[FirstDayOfWeek]

(İsteğe bağlı) Haftanın ilk gününü belirten bir sabittir.



0 = vbUseSystemDayofWeek



1 = vbSunday (default)



2 = vbMonday



3 = vbTuesday



4 = vbWednesday



5 = vbThursday



6 = vbFriday



7 = vbSaturday

[FirstWeekOfYear]

(İsteğe bağlı) Yılın ilk haftasını belirten bir vbFirstWeekOfYear sabittir.



0 = vbUseSystem



1 = vbFirstJan1, 1 Ocak'ı içeren hafta ( varsayılan )



2 = vbFirstFourDays, 4 gün içeren ilk hafta



3 = vbFirstFullWeek, ilk tam hafta

Açıklamalar
* [FirstDayOfWeek] boş bırakılırsa, 1 kullanılır (yani Pazar).
* [FirstWeekOfYear] boş bırakılırsa, ilk haftanın 1 Ocak'ın gerçekleştiği hafta olduğu varsayılır.
* Yıllar içinde hesaplama, yıl 0'dan başlar, ancak çeyrekler, aylar, haftalar, haftalar, yıl, gün, yılın ilk gününden başlar.
* [FirstDayOfWeek] sadece "Interval" in "w" veya "ww" olması durumunda geçerlidir.
* Bu işlev bir tarihi değerlendirmek ve belirli bir zaman aralığı için kullanılabilir.
* Bu fonksiyon haftanın gününü veya geçerli saati hesaplamak için kullanılabilir.

Örnek Kullanım
PHP:
Sub ExcelTurkey()
    MsgBox DatePart("d", "01-01-2018") ' = 1
    MsgBox DatePart("d", "10-01-2018") ' = 10
    MsgBox DatePart("w", "10-01-2018") ' = 4
    MsgBox DatePart("ww", "10-01-2018") ' = 2
    MsgBox DatePart("m", "01-10-2018") '= 10
    MsgBox DatePart("y", Now()) ' 161
    MsgBox DatePart("h", "01-01-2018 12:00:00") ' = 12
    MsgBox DatePart("n", "01-01-2018 00:12:00") ' = 12
    MsgBox DatePart("s", "01-01-2018 00:00:30") ' = 30
   
    Dim tarih As Date
    Dim deg As Integer

    tarih = #7/20/2018 12:10:56 PM#
    deg = DatePart("yyyy", tarih)
    MsgBox deg '2018

    deg = DatePart("q", tarih)
    MsgBox deg '3
   
    deg = DatePart("ww", tarih)
    MsgBox deg '29
   
    deg = DatePart("s", tarih)
    MsgBox deg '56
   
    deg = DatePart("m", tarih)
    MsgBox deg '7
   
    deg = DatePart("d", tarih)
    MsgBox deg '20
   
    deg = DatePart("h", tarih)
    MsgBox deg '12

    deg = DatePart("y", tarih)
    MsgBox deg '201
   
    deg = DatePart("w", tarih)
    MsgBox deg '6
   
    deg = DatePart("n", tarih)
    MsgBox deg '10
End Sub
 
Son düzenleme:
Üst Alt