W tym artykule chcemy przedstawić 2 szybkie i wydajne sposoby na uzyskanie różnicy między 2 określonymi datami lub godzinami za pomocą makr programu Word.
Obliczenie dni lub czasu pozostałego między dwiema konkretnymi datami lub godzinami nie jest trudne. Możesz wykonać obliczenia samodzielnie lub uzyskać kalkulator czasu trwania daty lub godziny. I tutaj chcemy zademonstrować 2 sposoby makr, które umożliwiają uzyskanie różnicy daty lub czasu w programie Word. Oto szczegółowe kroki:
Uzyskaj różnicę dat
- Pierwszy i pierwszyost, otwórz Word.
- Następnie kliknij zakładkę „Programista”, jeśli jest już aktywna.
- Następnie kliknij „Visual Basic”, aby otworzyć edytor VBA. Możesz odnieść się do Jak wstawić muzykę w tle do dokumentu Word aby dodać „Programista” do Wstążki. Możesz też zamiast tego nacisnąć „Alt + F11”, jeśli wolisz tego nie robić.
- Teraz kliknij „Normalne”, a następnie „Wstaw”.
- Z menu listy wybierz „Moduł”.
- Następnie kliknij dwukrotnie nowy moduł, aby przejść do obszaru edycji.
- Wklej następujące kody:
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
- Kliknij „Uruchom”, aby uruchomić kody.
- Teraz zobaczysz „Start Data”. Wpisz start datę w polu tekstowym i kliknij „OK”.
- Następnie znajduje się okno dialogowe „Data zakończenia”. Podobnie wprowadź datę końcową i kliknij „OK”.
- Następnie pojawi się okno komunikatu wskazujące różnicę między dwiema datami.
Jeśli musisz wstawić wynik do dokumentu, możesz trochę edytować makro, zmieniając linię kodu „MsgBox („Pozostało ” & lDaysLeft & ” dni od ” & dtStartDate & ” do ” & dtEndDate & vbCrLf)"Do"Selection.Text = „Pozostało ” & lDaysLeft & ” dni od ” & dtStartDate & ” do ” & dtEndDate & vbCrLf".
Uzyskaj różnicę czasu
- Najpierw powtórz pierwsze 6 kroków powyżej.
- Następnie wklej te kody:
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
- Pamiętaj, aby nacisnąć „Uruchom”.
- W start Czas”, wpisz start czas, na przykład „18:00:00”.
- Następnie wpisz czas zakończenia w oknie dialogowym „Czas zakończenia” i kliknij „OK”. I możesz sprawdzić wynik w nadchodzącym oknie komunikatu.
Ogranicz ryzyko utraty plików
Od czasu do czasu program Word może nagle przestać działać, narażając nasze pliki na wielkie niebezpieczeństwo. Dlatego, aby zmniejszyć ryzyko uszkodzenia plików, zalecamy regularne tworzenie kopii zapasowych. Zdobądź też a Produkt do odzyskiwania plików Word jest niezbędny, gdy potrzebujesz naprawić uszkodzone pliki.
Wprowadzenie autora:
Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym Narzędzie do naprawy danych Excel xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com