Dalam artikel ini, kami ingin menunjukkan kepada anda 2 cara cepat dan cekap untuk mendapatkan perbezaan antara 2 tarikh atau waktu tertentu melalui makro Word.
Untuk mengira hari atau masa yang tersisa antara 2 tarikh atau masa konkrit tidak sukar. Anda boleh membuat matematik sendiri atau mendapatkan kalkulator tarikh atau masa. Dan di sini kami ingin menunjukkan kepada anda 2 cara makro yang membolehkan anda mendapatkan perbezaan tarikh atau masa dalam Word. Berikut adalah langkah terperinci:
Dapatkan Perbezaan Tarikh
- Pertama sekali, buka Word.
- Kemudian klik tab "Pembangun" jika sudah diaktifkan.
- Seterusnya, klik "Visual Basic" untuk membuka editor VBA. Anda boleh merujuk Cara Memasukkan Muzik Latar Belakang ke dalam Dokumen Word Anda untuk menambah "Pembangun" ke Pita. Atau anda juga boleh menekan "Alt + F11" sebaliknya jika anda tidak mahu.
- Sekarang klik "Normal" dan kemudian "Masukkan".
- Pada menu senarai, pilih "Modul".
- Seterusnya, klik dua kali modul baru untuk memasuki kawasan penyuntingan.
- Tampal kod 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 kod.
- Sekarang anda akan melihat kotak dialog “Tarikh Mula”. Masukkan tarikh mula dalam kotak teks dan klik “OK”.
- Seterusnya terdapat kotak dialog "Tarikh Akhir". Begitu juga, masukkan tarikh akhir dan klik "OK".
- Kemudian kotak mesej akan muncul, menunjukkan perbezaan antara 2 tarikh tersebut.
Sekiranya anda perlu memasukkan hasilnya ke dalam dokumen anda, anda dapat sedikit mengedit makro dengan mengubah baris kod "Kotak Msg (“Terdapat ” & lDaysLeft & ” hari yang tinggal dari ” & dtStartDate & ” hingga ” & dtEndDate & vbCrLf)"Kepada"Selection.Text = “Terdapat ” & lDaysLeft & ” hari yang tinggal dari ” & dtStartDate & ” hingga ” & dtEndDate & vbCrLf".
Dapatkan Perbezaan Masa
- Ulangi 6 langkah pertama di atas.
- Kemudian tampalkan kod 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".
- Dalam kotak “Masa Mula”, masukkan masa mula, seperti “18:00:00”.
- Kemudian ketik waktu tamat dalam kotak dialog "Waktu Akhir" dan klik "OK". Dan anda boleh menyemak hasilnya di kotak mesej yang akan muncul.
Mengurangkan Risiko Kehilangan Fail
Sekali-sekala, Word boleh berhenti berfungsi tanpa henti, meninggalkan fail kita dalam bahaya. Oleh itu, untuk mengurangkan kemungkinan kerosakan fail, kami mencadangkan anda membuat sandaran biasa. Juga, dapatkan Produk pemulihan fail perkataan adalah perlu apabila anda mendapati diri anda perlu memperbaiki fail yang rosak.
Pengenalan Pengarang:
Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk Alat pembaikan data Excel xls dan pdf membaiki produk perisian. Untuk maklumat lebih lanjut, lawati www.datanumen.com