Skip to main content

Word belgesinde iki tarih veya saat arasındaki günleri veya saatleri nasıl hesaplarım?

Author: Xiaoyang Last Modified: 2025-06-10

Normalde, iki tarih arasındaki gün sayısını Excel çalışma sayfasında hızlı ve kolay bir şekilde hesaplayabiliriz, ancak bir Word belgesinde verilen iki tarih arasındaki gün sayısını bulmayı denediniz mi?

VBA kodu ile Word belgesinde iki tarih arasındaki farkı hesaplayın

VBA kodu ile Word belgesinde iki saat arasındaki farkı hesaplayın


VBA kodu ile Word belgesinde iki tarih arasındaki farkı hesaplayın

Verilen iki tarih arasındaki gün sayısını hesaplamak için aşağıdaki VBA kodu size yardımcı olabilir, lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

2. Ardından, Ekle > Modül'e tıklayın, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın:

VBA kodu: İki tarih arasındaki farkı hesapla

Sub CalculateDateDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xDay As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start date", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end date", "KuTools for Word", "")
   If (InStr(1, Str(xStartDate), ":") > 0) Or (InStr(1, Str(xEndDate), ":") > 0) Then
        MsgBox "please input current date", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xDay = DateDiff("d", xStartDate, xEndDate)
    MsgBox "There are " & xDay & " days left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın, ardından açılan diyalog kutularında kullanmak istediğiniz başlangıç tarihini ve bitiş tarihini girin, ekran görüntüsüne bakın:

Enter the start and end date

4. Sonra Tamam butonuna tıklayın ve istediğiniz sonucu elde edeceksiniz, ekran görüntüsüne bakın:

Pop-up displaying days between the two dates


VBA kodu ile Word belgesinde iki saat arasındaki farkı hesaplayın

İki verilen saat arasındaki farkı hesaplamak için işinize yarayacak başka bir VBA kodu daha var, lütfen şu adımları izleyin:

1. ALT + F11 tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresini açın.

2. Ardından, Ekle > Modül'e tıklayın, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın:

VBA kodu: İki saat arasındaki farkı hesapla

Sub CalculateTimeDifference()
    Dim xStartDate As Date
    Dim xEndDate As Date
    Dim xTime As Long
    Dim xHour As Long
    On Error Resume Next
    xStartDate = InputBox("Enter the start time", "KuTools for Word", "")
    xEndDate = InputBox("Enter the end time", "KuTools for Word", "")
    Debug.Print Str(xStartDate)
    If (Str(xStartDate) = " 0:00:00") Or (Str(xEndDate) = " 0:00:00") _
    Or (Str(xStartDate) = " 12:00:00 AM") Or (Str(xEndDate) = " 12:00:00 AM") Then
        MsgBox "please input the time", vbInformation, "KuTools for Excel"
        Exit Sub
    ElseIf xStartDate > xEndDate Then
        MsgBox " The start time is not larger than the end time!", vbInformation, "KuTools for Excel"
        Exit Sub
    End If
    xTime = DateDiff("s", xStartDate, xEndDate)
    xHour = xTime \ 3600
    xTime = xTime - xHour * 3600
    MsgBox "There are " & xHour & " hours " & xTime \ 60 & " minutes " & xTime - (xTime \ 60) * 60 _
            & " seconds left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub

3. Ardından, bu kodu çalıştırmak için F5 tuşuna basın, ardından açılan diyalog kutularında farkı hesaplamak için kullanmak istediğiniz başlangıç saati ve bitiş saatini girin, ekran görüntüsüne bakın:

Enter the start and end time

4. Sonra Tamam butonuna tıklayın ve iki verilen saat arasındaki zaman farkı hesaplanmış olup aşağıdaki ekran görüntüsünde gösterildiği gibi görüntülenecektir:

Pop-up displaying time difference between the two times

En İyi Ofis Verimlilik Araçları

Kutools for Word - Word Deneyiminizi 100’den Fazla Olağanüstü Özellik ile Zirveye Taşıyın!

🤖 Kutools AI Özellikleri: Yapay Zeka Asistanı / Gerçek Zamanlı Asistan / Süper Parlat (Biçimi Koru) / Süper Çeviri (Biçimi Koru) / AI Redaksiyon / Yapay Zeka Düzeltme...

📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Seçimi Farklı Formatlarda Dışa Aktar (PDF/TXT/DOC/HTML...) / Toplu PDF’ye Dönüştür...

İçerik Düzenleme: Birden Fazla Dosyada Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır / Tablo Satır ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazla Boşlukları / Bölüm Sonlarını / Metin Kutularını / Bağlantıları Kolayca Temizleyin. Daha fazla kaldırma aracı için Kaldır grubuna göz atın...

Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / Radyo Düğmeleri Ekle / QR Kodu / Barkod / Birden Fazla Resim / Ekle grubunda daha fazlasını keşfedin...

🔍 Hassas Seçimler: Belirli Sayfaları / Tabloları / Şekilleri / Başlık Paragraflarını Hedefleyin; daha fazla Seç özelliğiyle gezinmeyi geliştirin...

Yıldız Geliştirmeler: Herhangi Bir Konuma Hızla Git / Tekrarlayan Metni Otomatik Ekle / Belge Pencereleri Arasında Geçiş Yap /11 Dönüştürme Aracı...

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Bu özellikleri denemek ister misiniz? Kutools for Word’u hemen indirin! 🚀