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-08-07

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 Yükseltin!

🤖 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 Olarak 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ırlarını ve Sütunlarını Çevir / Tabloyu Metne Dönüştür...

🧹 Zahmetsiz Temizlik: Fazladan Boşlukları, Bölüm Sonlarını, Metin Kutularını, Bağlantıları Temizleyin / Daha fazla kaldırma aracı için Kaldır grubunu keşfedin...

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

🔍 Hassas Seçimler: Belirli Sayfaları, Tabloları, Şekilleri, Başlık Paragraflarını Nokta Atışıyla Seçin / Daha fazla Seç özelliğiyle gezinmeyi kolaylaştırın...

⭐ Yıldız İyileştirmeler: İstediğiniz Konuma Hızla Gidin / Yinelenen Metni Otomatik Olarak Ekleyin / Belge Pencereleri Arasında Hızla Geçiş Yapın /11 Dönüştürme Aracı...

🌍 40+ Dili Destekler: Kutools'u tercih ettiğiniz dilde kullanabilirsiniz – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla dil desteği!

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

En İyi Ofis Verimlilik Araçları

Kutools for Word - Word için 100+ Araç

Ücretsiz İndir Şimdi Satın Al Kutools Hakkında Daha Fazla Bilgi Edinin