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.

Birleşik Yazılım