2 nopeaa tapaa saada ero kahden päivämäärän tai ajan välillä Word VBA: n kautta

Tässä artikkelissa haluamme esitellä sinulle kaksi nopeaa ja tehokasta tapaa saada ero kahden tietyn päivämäärän tai ajan välillä Word-makrojen kautta.

Kahden konkreettisen päivämäärän tai ajan väliin jäävien päivien tai ajan laskeminen ei ole vaikeaa. Voit joko tehdä matematiikan itse tai hankkia päivämäärän tai ajan kestolaskurin. Ja tässä haluamme esitellä sinulle kaksi makrotapaa, joiden avulla voit saada päivämäärä- tai aikaeron Wordissa. Seuraavassa on yksityiskohtaiset vaiheet:

Hanki päivämääräero

1. Ensinnäkin, avaa Word.
2. Napsauta sitten Kehittäjä-välilehteä, jos se on jo aktivoitu.
3. Napsauta seuraavaksi Visual Basic avataksesi VBA-editorin. Voit viitata Kuinka lisätä taustamusiikkia Word-asiakirjaasi lisätä "Kehittäjä" nauhaan. Tai voit myös painaa “Alt + F11” sen sijaan, jos et halua.
4. Napsauta nyt “Normal” ja sitten “Insert”.
5. Valitse luettelovalikosta ”Moduuli”.
6. Kaksoisnapsauta seuraavaksi uutta moduulia päästäksesi muokkausalueelle.
7. Liitä seuraavat koodit:

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. Suorita koodit napsauttamalla Suorita.
9. Näet nyt ”Aloituspäivä”-valintaikkunan. Kirjoita aloituspäivämäärä tekstikenttään ja napsauta ”OK”.
10. Seuraavaksi on "Lopetuspäivä" -valintaikkuna. Syötä vastaavasti lopetuspäivä ja napsauta “OK”.
11. Sitten ponnahdusikkuna ilmestyy, mikä ilmoittaa kahden päivämäärän välisen eron.

Jos sinun on lisättävä tulos asiakirjaan, voit muokata makroa hieman muuttamalla koodiriviä “MsgBox (“Määristä ” & dtStartDate & ” on jäljellä ” & lDaysLeft & ” päivää)"To"Valinta.Teksti = “Päivystä ” & lDaysLeft & ” on jäljellä päiviä ” & dtAloituspäivä & ” - ” & dtLoppupäivä & vbCrLf".

Hanki aikaero

1. Toista ensin kuusi ensimmäistä vaihetta yllä.
2. Liitä sitten nämä koodit sen sijaan:

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. Muista lyödä ”Suorita”.
4. Kirjoita ”Aloitusaika”-ruutuun aloitusaika, kuten ”18:00:00”.
5. Kirjoita sitten lopetusaika ”Lopetusaika” -valintaikkunaan ja napsauta ”OK”. Ja voit tarkistaa tuloksen tulevassa viestiruudussa.

Lievitä tiedostohäviöriskiä

Silloin Word voi lopettaa työskentelyn tyhjästä, jolloin tiedostomme ovat suuressa vaarassa. Siksi suosittelemme, että teet säännölliset varmuuskopiot tiedostojen vioittumisen estämiseksi. Hanki myös a Word-tiedostojen palautustuote on tarpeen, kun huomaat, että sinun on korjattava rikkoutuneita tiedostoja.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excel xls -tietojen korjaustyökalu ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com