2 rychlé způsoby, jak získat rozdíl mezi dvěma daty nebo časy pomocí Word VBA

V tomto článku vám chceme představit 2 rychlé a efektivní způsoby, jak získat rozdíl mezi 2 konkrétními daty nebo časy pomocí maker aplikace Word.

Vypočítat dny nebo čas zbývající mezi 2 konkrétními daty nebo časy není obtížné. Matematiku si můžete buď udělat sami, nebo získat kalkulačku trvání nebo data. A tady vám chceme předvést dva způsoby makra, které vám umožní získat rozdíl v datech nebo časech v aplikaci Word. Následuje podrobný postup:

Získejte rozdíl v datech

1. V první řadě si otevřete Word.
2. Pokud je již aktivována, klikněte na kartu Vývojář.
3. Poté kliknutím na „Visual Basic“ otevřete editor VBA. Můžete se odvolat na Jak vložit hudbu na pozadí do dokumentu Word přidat na pás karet „Vývojář“. Nebo můžete také místo toho stisknout „Alt + F11“, pokud nechcete.
4. Nyní klikněte na „Normální“ a poté na „Vložit“.
5. V nabídce seznamu vyberte „Modul“.
6. Poté poklepejte na nový modul a přejděte do oblasti úprav.
7. Vložte následující kódy:

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. Kliknutím na „Spustit“ spustíte kódy.
9. Nyní se zobrazí dialogové okno „Datum zahájení“. Zadejte datum zahájení do textového pole a klikněte na tlačítko „OK“.
10. Dále je zde dialogové okno „Datum ukončení“. Podobně zadejte datum ukončení a klikněte na „OK“.
11. Poté se zobrazí okno se zprávou, které označuje rozdíl mezi 2 daty.

V případě, že potřebujete vložit výsledek do dokumentu, můžete makro trochu upravit změnou kódového řádku “MsgBox („Zbývá ” & lDaysLeft & ” dní od ” & dtStartDate & ” do ” & dtEndDate & vbCrLf)"To"Selection.Text = „Zbývá ” & lDaysLeft & ” dní od ” & dtStartDate & ” do ” & dtEndDate & vbCrLf".

Získejte časový rozdíl

1. Nejprve opakujte prvních 6 výše uvedených kroků.
2. Místo toho vložte tyto kódy:

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. Nezapomeňte stisknout „Spustit“.
4. Do pole „Čas zahájení“ zadejte čas zahájení, například „18:00:00“.
5. Poté zadejte čas ukončení v dialogovém okně „Čas ukončení“ a klikněte na „OK“. Výsledek můžete zkontrolovat v připravovaném okně se zprávou.

Zmírněte riziko ztráty souboru

Čas od času může Word přestat pracovat z čista jasna, takže naše soubory budou ve velkém nebezpečí. Proto, abychom snížili pravděpodobnost poškození souborů, doporučujeme provádět pravidelné zálohy. Získejte také Produkt pro obnovu souborů aplikace Word je nutné, když zjistíte, že potřebujete opravit poškozené soubory.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Nástroj pro opravu dat Excel XLS a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com