Word belgesinde iki tarih veya saat arasında geçen günleri ya da saatleri nasıl hesaplayabilirim?

Normalde Excel çalışma sayfasında iki tarih arasındaki gün sayısını hızlı ve kolayca hesaplayabilirsiniz; peki ya Word belgesinde verilen iki tarih arasındaki gün sayısını hesaplamayı denediniz mi?

Word belgesinde iki tarih arasındaki farkı VBA koduyla hesaplayın

Word belgesinde iki saat arasındaki farkı VBA koduyla hesaplayın

---

Word belgesinde iki tarih arasındaki farkı VBA koduyla 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 aşağıdaki adımları izleyin:

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

2. Ardından, Ekle > Modül seçeneğine tıklayın ve aşağıda verilen kodu açılan boş modüle kopyalayıp 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 iletişim kutularında kullanmak istediğiniz Başlangıç Tarihi ve Bitiş Tarihi değerlerini girin (ekran görüntüsüne bakın):

4. Ardından, istediğiniz sonucu almak için Tamam düğmesine tıklayın (ekran görüntüsüne bakın):

---

Word belgesinde iki saat arasındaki farkı VBA koduyla hesaplayın

İki verilen saat arasındaki farkı hesaplamanıza yardımcı olabilecek başka bir VBA kodu da mevcuttur. Lütfen aşağıdaki adımları izleyin:

1. [[ALT + F11]] tuşlarına basılı tutarak ALT + F11tuşlarını kullanarak Microsoft Visual Basic for Applicationspenceresini açın.

2. Ardından,Ekle>Modülseçeneğine tıklayın ve aşağıda verilen kodu açılan boş modüle kopyalayıp 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ışık iletişim kutularında farkı hesaplamak istediğiniz başlangıç ve bitiş saatlerini girin (ekran görüntüsüne bakın):

4. Ardından, Tamam düğmesine tıklayın; iki verilen saat arasındaki zaman farkı hesaplanacak ve aşağıdaki ekran görüntüsünde gösterildiği gibi görüntülenecektir: