- Katılım
- 25 May 2018
- Mesajlar
- 1,508
- En iyi yanıt
- 13
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Office 365 TR+EN
DATEADD( Interval, Number, Date )
Belirtilen bir zaman aralığı eklendiğinde Date ile döner. (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
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: