Bagaimana cara menghitung hari atau jam antara dua tanggal atau waktu di dokumen Word?

Biasanya, kita dapat menghitung jumlah hari antara dua tanggal di lembar kerja Excel dengan cepat dan mudah, tetapi, pernahkah Anda mencoba menghitung jumlah hari antara dua tanggal tertentu dalam dokumen Word?

Hitung perbedaan antara dua tanggal dalam dokumen Word dengan kode VBA

Hitung perbedaan antara dua kali dalam dokumen Word dengan kode VBA

Hitung perbedaan antara dua tanggal dalam dokumen Word dengan kode VBA

Untuk menghitung jumlah hari antara dua tanggal tertentu, kode VBA di bawah ini dapat membantu Anda, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dan kemudian, klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang dibuka:

Kode VBA: Hitung perbedaan antara dua tanggal

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. Lalu, tekan F5 kunci untuk menjalankan kode ini, di kotak dialog berturut-turut, masukkan tanggal mulai dan tanggal akhir yang ingin Anda gunakan, lihat tangkapan layar:

4. Lalu klik OK tombol, dan Anda akan mendapatkan hasil yang Anda inginkan, lihat tangkapan layar:

Hitung perbedaan antara dua kali dalam dokumen Word dengan kode VBA

Berikut adalah kode VBA lain yang dapat membantu Anda menghitung perbedaan antara dua waktu yang diberikan, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dan kemudian, klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang dibuka:

Kode VBA: Hitung perbedaan antara dua kali

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. Lalu, tekan F5 kunci untuk menjalankan kode ini, di kotak dialog berturut-turut, masukkan waktu mulai dan waktu berakhir yang ingin Anda gunakan untuk menghitung perbedaan, lihat tangkapan layar:

4. Lalu klik OK tombol, dan perbedaan waktu antara dua waktu tertentu telah dihitung dan ditampilkan seperti gambar berikut yang ditampilkan:

Alat Produktivitas Kantor Terbaik

Kutools for Word - Tingkatkan Pengalaman Kata Anda dengan Over 100 Fitur Luar Biasa!

🤖 Fitur AI Kutools: Hasilkan Konten / Menulis Ulang Teks / Tanya Jawab Dokumen / Dapatkan Jawaban Cepat / Terjemahkan dokumen / Dokumen Polandia (Format Pertahankan)...

📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Ekspor Pilihan dalam Berbagai Format (PDF/TXT/DOC/HTML...) / Konversi Batch ke PDF...

✏ Pengeditan Isi: Temukan dan Ganti Batch di Beberapa File / Ubah Ukuran Semua Gambar / Ubah Urutan Baris dan Kolom Tabel / Ubah Tabel menjadi Teks...

🧹 Bersih dengan Mudah: Menyapu Spasi Ekstra / Bagian Istirahat / Teks box / Hyperlink / Untuk alat penghapus lainnya, kunjungi Hapus kelompok...

➕ Sisipan Kreatif: Memasukkan Seribu Pemisah / Kotak Centang / Tombol Radio / Kode QR / barcode / Banyak Gambar / Temukan lebih lanjut di Menyisipkan kelompok...

🔍 Pilihan Presisi: Tepat Halaman Tertentu / Meja / bentuk / Paragraf Judul / Tingkatkan navigasi dengan lebih Pilih fitur...

⭐ Peningkatan Bintang: Navigasi ke Lokasi Mana Pun / Sisipkan Otomatis Teks Berulang / Beralih Antar Jendela Dokumen / 11 Konversi Tools...

👉 Ingin mencoba fitur-fitur tersebut? Unduh Kutools untuk Word sekarang! 🚀

Free download     Beli sekarang     Pelajari Lebih Lanjut tentang Kutools untuk Word

 

Alat Produktivitas Kantor Terbaik

Kutools for Word - 100+ Alat untuk Word

• 🤖 Fitur AI Kutools: Menghasilkan, Menulis kembali, Meringkaskan, Menterjemahkan Dokumen / Dapatkan Jawaban Cepat / Dokumen Polandia (Format Pertahankan)
• 📘 Penguasaan Dokumen: Halaman Terpisah / Gabungkan Dokumen / Konversi Batch ke PDF
• ✏ Pengeditan Isi: Temukan dan Ganti Batch / Ubah Ukuran Semua Gambar
• 🧹 Bersih dengan Mudah: Hapus Spasi Ekstra / Hapus Bagian Breaks
• ➕ Sisipan Kreatif: Masukkan Seribu Pemisah / Sisipkan Kotak Centang / Buat Kode QR

Free download Beli sekarang Pelajari Lebih Lanjut tentang Kutools