2 γρήγοροι τρόποι για να πάρετε τη διαφορά μεταξύ δύο ημερομηνιών ή χρόνων μέσω του Word VBA

Σε αυτό το άρθρο, θέλουμε να σας παρουσιάσουμε 2 γρήγορους και αποτελεσματικούς τρόπους για να λάβετε τη διαφορά μεταξύ 2 συγκεκριμένων ημερομηνιών ή ωρών μέσω μακροεντολών Word.

Ο υπολογισμός των ημερών ή του χρόνου που απομένει μεταξύ 2 συγκεκριμένων ημερομηνιών ή ωρών δεν έχει καμία δυσκολία. Μπορείτε είτε να κάνετε τα μαθηματικά μόνοι σας ή να λάβετε μια αριθμομηχανή ημερομηνίας ή ώρας. Και εδώ θέλουμε να σας δείξουμε τους 2 τρόπους μακροεντολών που σας επιτρέπουν να λάβετε τη διαφορά ημερομηνίας ή ώρας στο Word. Ακολουθούν τα λεπτομερή βήματα:

Αποκτήστε τη διαφορά ημερομηνίας

1. Πρώτα και κύρια, ανοίξτε το Word.
2. Στη συνέχεια, κάντε κλικ στην καρτέλα "Προγραμματιστής" εάν είναι ήδη ενεργοποιημένη.
3. Στη συνέχεια, κάντε κλικ στο "Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA. Μπορείτε να ανατρέξετε στο Πώς να εισαγάγετε μουσική υπόκρουση στο έγγραφο του Word για να προσθέσετε το "Developer" στο Ribbon. Ή μπορείτε επίσης να πατήσετε "Alt + F11" αντί εάν προτιμάτε να μην το κάνετε.
4. Τώρα κάντε κλικ στο «Κανονικό» και μετά στο «Εισαγωγή».
5. Στο μενού λίστας, επιλέξτε "Ενότητα".
6. Στη συνέχεια, κάντε διπλό κλικ στη νέα ενότητα για να μπείτε στην περιοχή επεξεργασίας.
7. Επικολλήστε τους ακόλουθους κωδικούς:

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. Κάντε κλικ στο "Εκτέλεση" για να εκτελέσετε τους κωδικούς.
9. Τώρα θα δείτε ένα παράθυρο διαλόγου "Ημερομηνία έναρξης". Εισαγάγετε την ημερομηνία έναρξης στο πλαίσιο κειμένου και κάντε κλικ στο "OK".
10. Στη συνέχεια υπάρχει το παράθυρο διαλόγου "Ημερομηνία λήξης". Παρομοίως, εισαγάγετε την ημερομηνία λήξης και κάντε κλικ στο "OK".
11. Στη συνέχεια, θα εμφανιστεί ένα πλαίσιο μηνύματος, υποδεικνύοντας τη διαφορά μεταξύ των 2 ημερομηνιών.

Σε περίπτωση που πρέπει να εισαγάγετε το αποτέλεσμα στο έγγραφό σας, μπορείτε να επεξεργαστείτε λίγο τη μακροεντολή αλλάζοντας τη γραμμή κώδικα "MsgBox ("Υπάρχουν " & lDaysLeft & " ημέρες που απομένουν από " & dtStartDate & " έως " & dtEndDate & vbCrLf)"Προς"Selection.Text = “Υπάρχουν ” & lDaysLeft & ” ημέρες που απομένουν από ” & dtStartDate & ” έως ” & dtEndDate & vbCrLf".

Αποκτήστε τη διαφορά ώρας

1. Επαναλάβετε πρώτα τα πρώτα 6 βήματα παραπάνω.
2. Στη συνέχεια επικολλήστε αυτούς τους κωδικούς αντί:

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".
4. Στο πλαίσιο «Ώρα έναρξης», εισαγάγετε την ώρα έναρξης, όπως «18:00:00».
5. Στη συνέχεια, πληκτρολογήστε την ώρα λήξης στο παράθυρο διαλόγου "Ώρα λήξης" και κάντε κλικ στο "OK". Και μπορείτε να ελέγξετε το αποτέλεσμα στο πλαίσιο μηνύματος που εμφανίζεται.

Μειώστε τον κίνδυνο απώλειας αρχείων

Τώρα και μετά, το Word μπορεί να σταματήσει να λειτουργεί άσκοπα, αφήνοντας τα αρχεία μας σε μεγάλο κίνδυνο. Επομένως, για να μειώσετε την πιθανότητα να καταστραφούν τα αρχεία, σας προτείνουμε να κάνετε τακτικά αντίγραφα ασφαλείας. Επίσης, πάρτε ένα Προϊόν ανάκτησης αρχείων Word είναι απαραίτητο όταν βρίσκεστε στην ανάγκη διόρθωσης κατεστραμμένων αρχείων.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Εργαλείο επισκευής δεδομένων Excel xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com