Word belgesinde iki tarih veya saat arasındaki günleri veya saatleri nasıl hesaplarım?
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:
4. Sonra Tamam butonuna tıklayın ve istediğiniz sonucu elde edeceksiniz, ekran görüntüsüne bakın:
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:
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:
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ı...

En İyi Ofis Verimlilik Araçları
Kutools for Word - Word için 100+ Araç
- 🤖 Kutools AI Özellikleri: Yapay Zeka Asistanı / Gerçek Zamanlı Asistan / Süper Parlat / Süper Çeviri / AI Redaksiyon / Yapay Zeka Düzeltme
- 📘 Belge Ustalığı: Sayfaları Böl / Belgeleri Birleştir / Toplu PDF’ye Dönüştür
- ✏ İçerik Düzenleme: Toplu Bul ve Değiştir / Tüm Resimleri Yeniden Boyutlandır
- 🧹 Zahmetsiz Temizlik: Fazla Boşlukları Kaldır / Bölüm Sonlarını Kaldır
- ➕ Yaratıcı Ekleme: Binlik Ayraçları Ekle / Onay Kutuları Ekle / QR Kodları Oluştur