Word VBA orqali ikki sana yoki vaqt o'rtasidagi farqni aniqlashning 2 ta tezkor usuli

Ushbu maqolada biz sizga Word makroslari orqali 2 aniq sana yoki vaqt o'rtasidagi farqni aniqlashning 2 ta tez va samarali usulini taqdim qilmoqchimiz.

2 aniq sana yoki vaqt oralig'ida qolgan kun yoki vaqtni hisoblash qiyin emas. Matematikani o'zingiz bajarishingiz yoki sana yoki vaqt davomiyligi kalkulyatorini olishingiz mumkin. Va bu erda biz sizga Word-da sana yoki vaqt farqini olish imkonini beruvchi 2 ta so'l usulini ko'rsatmoqchimiz. Quyida batafsil qadamlar keltirilgan:

Sana farqini oling

1. Avvalo, ochiq Word.
2. Keyin, agar u allaqachon faollashtirilgan bo'lsa, "Tuzuvchi" yorlig'ini bosing.
3. Keyin VBA muharririni ochish uchun "Visual Basic" tugmasini bosing. murojaat qilishingiz mumkin Word hujjatingizga fon musiqasini qanday kiritish mumkin tasmaga "Dasturchi" ni qo'shish uchun. Yoki agar xohlamasangiz, uning o'rniga "Alt + F11" tugmachalarini bosishingiz mumkin.
4. Endi "Oddiy" va keyin "Qo'shish" tugmasini bosing.
5. Ro'yxat menyusida "Modul" ni tanlang.
6. Keyin tahrirlash maydoniga kirish uchun yangi modulni ikki marta bosing.
7. Quyidagi kodlarni joylashtiring:

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

8. Kodlarni ishga tushirish uchun "Ishga tushirish" tugmasini bosing.
9. Endi siz "Boshlanish sanasi" muloqot oynasini ko'rasiz. Matn maydoniga boshlanish sanasini kiriting va "OK" tugmasini bosing.
10. Keyin "tugash sanasi" dialog oynasi mavjud. Xuddi shunday, tugash sanasini kiriting va "OK" tugmasini bosing.
11. Keyin 2 sana o'rtasidagi farqni ko'rsatadigan xabar oynasi ochiladi.

Natijani hujjatingizga kiritishingiz kerak bo'lsa, kod qatorini o'zgartirish orqali makroni biroz tahrirlashingiz mumkin "MsgBox ("&dtStartDate&” dan &dtEndDate&vbCrLf gacha bo'lgan ”&lDaysLeft&” kunlar qoldi)"Ga"Selection.Text = “& dtStartDate & ” dan ” & dtEndDate & vbCrLf gacha bo'lgan vaqt oralig'ida ” & lDaysLeft & ” kunlar qoldi".

Vaqt farqini oling

1. Avval yuqoridagi dastlabki 6 qadamni takrorlang.
2. Keyin o'rniga ushbu kodlarni joylashtiring:

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

3. "Run" tugmasini bosishni unutmang.
4. “Boshlanish vaqti” katagiga “18:00:00” kabi boshlanish vaqtini kiriting.
5. Keyin “Yakunlash vaqti” muloqot oynasiga tugash vaqtini kiriting va “OK” tugmasini bosing. Va natijani kelayotgan xabar oynasida tekshirishingiz mumkin.

Fayllarni yo'qotish xavfini kamaytirish

Vaqti-vaqti bilan Word ishlamay qolishi va fayllarimizni katta xavf ostida qoldirishi mumkin. Shuning uchun, fayllarni shikastlash ehtimolini kamaytirish uchun muntazam ravishda zaxira nusxalarini yaratishni tavsiya qilamiz. Bundan tashqari, a Word faylini tiklash mahsuloti buzilgan fayllarni tuzatishga muhtoj bo'lganingizda kerak bo'ladi.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excel xls ma'lumotlarni tuzatish vositasi va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com