WeekToDate_ISO Fonksiyonu

Tanım


d7Date (Tarih) nesnesine; yılın belirli bir haftasının, belirli bir gününün tarih değerini atamak için kullanılır. Hafta sayısı, ISO 8601 standartlarına göre hesaplanır.

Kullanım Şekli


Değişken = d7Date Nesnesi.WeekToDate_ISO(Yıl, YılınHaftası, HaftanınGünü)

Ana Nesne


d7Date nesnesinin elemanıdır. Bir d7Date nesnesi ile kullanılmak zorundadır.

Parametreler


Parametre

Açıklama

Yıl

Atanmak istenen tarihin, yılının tam sayı değeri.

YılınHaftası

Atanmak istenen tarihin, yıl içindeki hafta sayısı.

HaftanınGünü

Atanmak istenen tarihin, hafta içindeki gün sayısı.

Geri Dönen Değerler


Verilen bilgilere göre hesaplanan tarih değeri d7Date nesnesine atanır. Aynı zamanda, 01/01/1950 tarihinden itibaren geçen günün tam sayı değeri geri dönülür. Bir değişkene atanarak kullanılmalıdır.

Hatırlatmalar


•Daha önce yaratılmış bir d7Date nesnesi ile beraber kullanılır.

•WeekToDate_ISO8601 fonksiyonu ile aynı işleve sahiptir.


Örnek


Sub Makro1()

       Set Tarih = Doc.CreateSObject("d7Date")

       Yil = 2017

       YilinHaftasi = 3

       HaftaninGunu = 1

       GunSayisi = Tarih.WeekToDate_ISO(Yil, YilinHaftasi, HaftaninGunu)

       Mesaj = "WeekToDate_ISO fonksiyonu sonucu:"

       Mesaj = Mesaj & Chr(13) & "Gün sayısı   " & Chr(9) & ": " & GunSayisi

       Mesaj = Mesaj & Chr(13) & "Atanan Tarih" & Chr(9) & ": " & Tarih.GetNorDate()

       Doc.MsgBox Mesaj

End Sub


Tarih isimli d7Date nesnesine, 2017 yılının, 3 haftasının 1. gününün değeri ISO 8601 standartlarına göre atanmıştır. Fonksiyon önce ilgili günün tam sayı cinsinden gün değerini (24488) bulacak ve ilgili tarih değerini (17/01/2017) nesneye atayacaktır.


Paylaşım Makrosu