2 Mabilis na Mga Paraan upang Makakuha ng Pagkakaiba sa pagitan ng Dalawang Mga Petsa o Times sa pamamagitan ng Word VBA

Sa artikulong ito, nais naming ipakita sa iyo ang 2 mabilis at mahusay na paraan upang makuha ang pagkakaiba sa pagitan ng 2 tukoy na mga petsa o oras sa pamamagitan ng Word macros.

Upang makalkula ang mga araw o oras na natitira sa pagitan ng 2 kongkretong mga petsa o oras ay walang kahirapan. Maaari mong gawin ang matematika sa iyong sarili o makakuha ng isang calculator ng tagal ng petsa o oras. At dito nais naming ipakita sa iyo ang 2 mga paraan ng macro na nagbibigay-daan sa iyo upang makuha ang pagkakaiba ng petsa o oras sa Word. Ang sumusunod ay ang detalyadong mga hakbang:

Kunin ang Pagkakaiba sa Petsa

1. Una sa lahat, bukas na Salita.
2. Pagkatapos i-click ang tab na "Developer" kung ito ay naaktibo.
3. Susunod, i-click ang "Visual Basic" upang buksan ang VBA editor. Maaari kang sumangguni sa Paano Ipasok ang Background Music sa Iyong Word Document upang idagdag ang "Developer" sa Ribbon. O maaari mo ring pindutin ang "Alt + F11" sa halip kung nais mong hindi.
4. Ngayon i-click ang "Normal" at pagkatapos ay "Ipasok".
5. Sa menu ng listahan, piliin ang "Modyul".
6. Susunod, i-double click ang bagong module upang ipasok ang lugar ng pag-edit.
7. I-paste ang mga sumusunod na code:

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. I-click ang "Run" upang patakbuhin ang mga code.
9. Ngayon ay makakakita ka ng dialog box na "Start Date". Ilagay ang petsa ng pagsisimula sa text box at i-click ang "OK".
10. Susunod ay may kahon ng dayalogo ng "Petsa ng Pagtatapos". Katulad nito, i-input ang petsa ng pagtatapos at i-click ang "OK".
11. Pagkatapos ay lalabas ang isang kahon ng mensahe, na nagpapahiwatig ng pagkakaiba sa pagitan ng 2 mga petsa.

Kung sakaling kailangan mong ipasok ang resulta sa iyong dokumento, maaari mong i-edit nang kaunti ang macro sa pamamagitan ng pagbabago sa linya ng code na "MsgBox (“Mayroon pang ” & lDaysLeft & ” na mga araw na natitira mula sa ” & dtStartDate & ” hanggang ” & dtEndDate & vbCrLf)"Sa"Selection.Text = “Mayroon pang ” & lDaysLeft & ” mga araw na natitira mula sa ” & dtStartDate & ” hanggang ” & dtEndDate & vbCrLf".

Kunin ang Pagkakaiba ng Oras

1. Ulitin muna ang unang 6 na hakbang sa itaas.
2. Pagkatapos i-paste ang mga code na ito sa halip:

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. Tandaan na pindutin ang "Patakbuhin".
4. Sa kahon na “Oras ng Pagsisimula”, ilagay ang oras ng pagsisimula, tulad ng “18:00:00”.
5. Pagkatapos i-type ang oras ng pagtatapos sa dialog box na "Wakas na Oras" at i-click ang "OK". At maaari mong suriin ang kinalabasan sa kahon ng mensahe na paparating.

Pigilan ang Panganib sa Pagkawala ng File

Ngayon at pagkatapos, maaaring tumigil ang Word sa pagtatrabaho sa labas ng asul, na iniiwan ang aming mga file sa malaking panganib. Samakatuwid, upang mabawasan ang pagkakataon na mapinsala ang mga file, iminumungkahi namin sa iyo na gumawa ng regular na mga pag-backup. Gayundin, kumuha ng Produkto ng pagbawi ng file ng salita ay kinakailangan kapag nahanap mo ang iyong sarili sa pangangailangan ng pag-aayos ng mga sirang file.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang Tool sa pag-aayos ng data ng Excel xls at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa