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,253
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
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