Makale DATEADD

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,327
En iyi yanıt
11
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
DATEADD( Interval, Number, Date )

Belirtilen bir zaman aralığı eklendiğinde Date ile döner. (Date)


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

Number

Eklenecek aralık sayısı (Long).

Date

Aralığa eklemek istediğiniz tarih (Date).


Açıklamalar
* Number herhangi bir sayısal ifade olabilir.
* Number uzun değilse, değerlendirilmeden önce en yakın tam sayıya yuvarlanır.
* Bu işlev hiçbir zaman geçersiz bir tarih vermeyecektir.
* Date'ten daha büyük bir zaman çıkarırsanız, bir hata oluşur.
* Döndürülecek tarihin biçimi, kontrol panelinden PC ayarları tarafından belirlenir.
* Bu işlev, bir tarihten belirli bir zaman aralığını eklemek veya çıkarmak için kullanılabilir.

Örnek Kullanım
PHP:
Sub ExcelTurkey()
    MsgBox DateAdd("m", 1, Now())
    MsgBox DateAdd("w", 2, Now())
    MsgBox DateAdd("h", 5, Now())
    MsgBox DateAdd("yyyy", 1, Now()) '= 10/06/2018 02:04:23
    MsgBox DateAdd("yyyy", 1, "01-01-2018") '= 1 / 1 / 2009
    MsgBox DateAdd("q", 1, "01-01-2018") ' = 1 / 4 / 2018
    MsgBox DateAdd("m", 1, "01-01-2018") ' = 1 / 2 / 2018
    MsgBox DateAdd("m", 1, "31-Oca-95") '= 28 / 2 / 1995 'Bu bir ay ekler
    MsgBox DateAdd("m", 1, Now()) '= 24/11/2018 16:47:29
    MsgBox DateAdd("y", 1, "01-01-2018") '= 2 / 1 / 2018
    MsgBox DateAdd("d", 1, "01-01-2018") ' = 2 / 1 / 2018
    MsgBox DateAdd("w", 1, "01-01-2018") ' = 2 / 1 / 2018
    MsgBox DateAdd("w", 5, "01-01-2018") ' = 6 / 1 / 2018
    MsgBox DateAdd("w", 2, Now()) ' = 12/06/2018 02:05:12
    MsgBox DateAdd("ww", 5, "01-01-2018") ' = 5 / 2 / 2018
    MsgBox DateAdd("h", 5, Now()) '= 10/06/2018 07:05:29
    MsgBox DateAdd("n", 5, Now()) '= 10/06/2018 02:10:29
    MsgBox DateAdd("s", 10, Now()) ' = 10/06/2018 02:06:39
    MsgBox DateAdd("m", 1, CDate("31 Oca 2018")) '
    Dim seri As Long
    seri = DateAdd("d", 1, "01/07/2018") '43283
End Sub
 
Son düzenleme:
Üst Alt