Pada artikel ini, kami ingin memberi Anda 2 cara cepat dan efisien untuk mendapatkan perbedaan antara 2 tanggal atau waktu tertentu melalui makro Word.
Untuk menghitung hari atau waktu yang tersisa antara 2 tanggal atau waktu konkret tidak sulit. Anda dapat menghitung sendiri atau mendapatkan kalkulator tanggal atau durasi waktu. Dan di sini kami ingin menunjukkan kepada Anda 2 cara makro yang memungkinkan Anda mendapatkan perbedaan tanggal atau waktu di Word. Berikut langkah-langkah detailnya:
Dapatkan Perbedaan Tanggal
- Pertama dan depanost, buka Word.
- Kemudian klik tab “Developer” jika sudah diaktifkan.
- Selanjutnya, klik "Visual Basic" untuk membuka editor VBA. Anda dapat merujuk ke Cara Memasukkan Musik Latar ke Dokumen Word Anda untuk menambahkan "Pengembang" ke Pita. Atau Anda juga dapat menekan “Alt+ F11” jika Anda memilih untuk tidak melakukannya.
- Sekarang klik "Normal" dan kemudian "Sisipkan".
- Pada menu daftar, pilih "Modul".
- Selanjutnya, klik dua kali modul baru untuk masuk ke area pengeditan.
- Tempel kode berikut:
Sub CalculateDateDifference()
Dim dtStartDate As Date
Dim dtEndDate As Date
Dim lDaysLeft As Long
' Input the start date and end date, calculate the date difference.
dtStartDate = InputBox("Enter the start date","Start Date","For example:2017/1/1")
dtEndDate = InputBox("Enter the end date","End Date","For example:2017/2/1")
lDaysLeft = DateDiff("d", dtStartDate, dtEndDate)
' Output the calculate the date difference between the two dates.
MsgBox ("There are " & lDaysLeft & " days left from " & dtStartDate & " to " & dtEndDate & vbCrLf)
End Sub
- Klik "Jalankan" untuk menjalankan kode.
- Sekarang Anda akan melihat "Start Tanggal” kotak dialog. Masukkan start tanggal di kotak teks dan klik "OK".
- Selanjutnya ada kotak dialog "Tanggal Akhir". Demikian pula, masukkan tanggal akhir dan klik "OK".
- Kemudian kotak pesan akan muncul, menunjukkan perbedaan antara 2 tanggal.
Jika Anda perlu memasukkan hasilnya ke dalam dokumen Anda, Anda dapat mengedit makro sedikit dengan mengubah baris kode “MsgBox (“Tersisa ” & lDaysLeft & ” hari lagi dari ” & dtStartDate & ” ke ” & dtEndDate & vbCrLf)"To"Selection.Text = “Ada ” & lDaysLeft & ” hari lagi dari ” & dtStartDate & ” ke ” & dtEndDate & vbCrLf".
Dapatkan Perbedaan Waktu
- Pertama ulangi 6 langkah pertama di atas.
- Kemudian tempelkan kode-kode ini sebagai gantinya:
Sub CalculateTimeDifference()
Dim dtStartTime As Date
Dim dtEndTime As Date
Dim lTimeLeft As Long
Dim lHour As Long
Dim lMinute As Long
Dim lSecond As Long
' Get the start time and the end time.
dtStartTime = InputBox("Enter the start time","Start Time", "For example:18:00:00")
dtEndTime = InputBox("Enter the end time","End Time", "For example:18:00:00")
' Calculate the time difference.
lTimeLeft = DateDiff("s", dtStartTime, dtEndTime)
lHour = lTimeLeft \ 3600
lTimeLeft = lTimeLeft - lHour * 3600
lMinute = lTimeLeft \ 60
lSecond = lTimeLeft - lMinute * 60
MsgBox ("There are " & lHour & " hours " & lMinute & " minutes " & lSecond & " seconds left from " & dtStartTime & " to " & dtEndTime & vbCrLf)
End Sub
- Ingatlah untuk menekan "Run".
- Di "Start Waktu”, masukkan start waktu, seperti “18:00:00”.
- Kemudian ketik waktu akhir di kotak dialog "Waktu Akhir" dan klik "OK". Dan Anda dapat memeriksa hasilnya di kotak pesan yang muncul.
Mengurangi Risiko Kehilangan File
Kadang-kadang, Word dapat berhenti bekerja tiba-tiba, meninggalkan file kami dalam bahaya besar. Oleh karena itu, untuk mengurangi kemungkinan file rusak, kami sarankan Anda membuat cadangan secara teratur. Juga, dapatkan Produk pemulihan file Word diperlukan ketika Anda merasa perlu memperbaiki file yang rusak.
Pengantar Penulis:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Alat perbaikan data Excel xls ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com