d7DateTime Nesnesi

d7DateTime nesnesi tarih ve zaman işlemleri için kullanılır. Oluşturma:

Dim TarihZaman
Set TarihZaman = Doc.CreateSObject("d7DateTime")

SetToday

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Tarihi bugüne ayarlar (zaman 00:00:00)

Örnek Kullanım:

Sub Makro1()
    Dim TarihZaman
    Set TarihZaman = Doc.CreateSObject("d7DateTime")
    TarihZaman.SetToday
    Doc.MsgBox "Tarih: " & TarihZaman.GetRevDateTime()
    Set TarihZaman = Nothing
End Sub

SetNow

• Dönüş Tipi: Void
• Parametreler: Yok
• Açıklama: Tarih ve zamanı şu ana ayarlar

Örnek Kullanım:

Sub Makro1()
    Dim TarihZaman
    Set TarihZaman = Doc.CreateSObject("d7DateTime")
    TarihZaman.SetNow
    Doc.MsgBox "Tarih ve Zaman: " & TarihZaman.GetRevDateTime()
    Set TarihZaman = Nothing
End Sub

SetDate

• Dönüş Tipi: Void
• Parametreler:
• - dateString (String): Tarih string'i
• Açıklama: Tarihi ayarlar

Örnek Kullanım:

Sub Makro1()
    Dim TarihZaman
    Set TarihZaman = Doc.CreateSObject("d7DateTime")
    TarihZaman.SetDate "2024/01/15"
    Doc.MsgBox "Tarih: " & TarihZaman.GetRevDateTime()
    Set TarihZaman = Nothing
End Sub

SetTime

• Dönüş Tipi: Void
• Parametreler:
• - timeString (String): Zaman string'i
• Açıklama: Zamanı ayarlar

Örnek Kullanım:

Sub Makro1()
    Dim TarihZaman
    Set TarihZaman = Doc.CreateSObject("d7DateTime")
    TarihZaman.SetToday
    TarihZaman.SetTime "14:30:00"
    Doc.MsgBox "Tarih ve Zaman: " & TarihZaman.GetRevDateTime()
    Set TarihZaman = Nothing
End Sub

GetRevDateTime

• Dönüş Tipi: Variant (String)
• Parametreler: Yok
• Açıklama: Reverse formatında tarih ve zamanı döndürür

Örnek Kullanım:

Sub Makro1()
    Dim TarihZaman
    Set TarihZaman = Doc.CreateSObject("d7DateTime")
    TarihZaman.SetNow
    Dim TarihZamanStr
    TarihZamanStr = TarihZaman.GetRevDateTime()
    Doc.MsgBox "Tarih ve Zaman: " & TarihZamanStr
    Set TarihZaman = Nothing
End Sub

IsValid

• Dönüş Tipi: Boolean
• Parametreler: Yok
• Açıklama: Tarih ve zamanın geçerli olup olmadığını kontrol eder

Örnek Kullanım:

Sub Makro1()
    Dim TarihZaman
    Set TarihZaman = Doc.CreateSObject("d7DateTime")
    TarihZaman.SetDate "2024/01/15"
    TarihZaman.SetTime "14:30:00"
    
    If TarihZaman.IsValid() Then
        Doc.MsgBox "Geçerli tarih ve zaman"
    Else
        Doc.MsgBox "Geçersiz tarih ve zaman"
    End If
    Set TarihZaman = Nothing
End Sub

Increment

• Dönüş Tipi: Void
• Parametreler:
• - days (Integer): Eklenecek gün sayısı
• - hours (Integer): Eklenecek saat sayısı
• - minutes (Integer): Eklenecek dakika sayısı
• - seconds (Integer): Eklenecek saniye sayısı
• Açıklama: Tarih ve zamana gün, saat, dakika, saniye ekler

Örnek Kullanım:

Sub Makro1()
    Dim TarihZaman
    Set TarihZaman = Doc.CreateSObject("d7DateTime")
    TarihZaman.SetNow
    TarihZaman.Increment 1, 2, 30, 0  ' 1 gün, 2 saat, 30 dakika ekle
    Doc.MsgBox "Yeni Tarih ve Zaman: " & TarihZaman.GetRevDateTime()
    Set TarihZaman = Nothing
End Sub

---