Πώς να υπολογίσετε ημέρες ή ώρες μεταξύ δύο ημερομηνιών ή ωρών στο έγγραφο του Word;
Κανονικά, μπορούμε να υπολογίσουμε τον αριθμό ημερών μεταξύ δύο ημερομηνιών στο φύλλο εργασίας του Excel γρήγορα και εύκολα, αλλά, έχετε προσπαθήσει ποτέ να λάβετε τον αριθμό ημερών μεταξύ δύο δεδομένων ημερομηνιών σε ένα έγγραφο του Word;
Υπολογίστε τη διαφορά μεταξύ δύο ημερομηνιών στο έγγραφο του Word με τον κωδικό VBA
Υπολογίστε τη διαφορά μεταξύ δύο φορές στο έγγραφο του Word με τον κωδικό VBA
Υπολογίστε τη διαφορά μεταξύ δύο ημερομηνιών στο έγγραφο του Word με τον κωδικό VBA
Για να υπολογίσετε τον αριθμό ημερών μεταξύ δύο δεδομένων ημερομηνιών, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει, κάντε το εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή κενή ενότητα:
Κωδικός VBA: Υπολογίστε τη διαφορά μεταξύ δύο ημερομηνιών
Sub CalculateDateDifference()
Dim xStartDate As Date
Dim xEndDate As Date
Dim xDay As Long
On Error Resume Next
xStartDate = InputBox("Enter the start date", "KuTools for Word", "")
xEndDate = InputBox("Enter the end date", "KuTools for Word", "")
If (InStr(1, Str(xStartDate), ":") > 0) Or (InStr(1, Str(xEndDate), ":") > 0) Then
MsgBox "please input current date", vbInformation, "KuTools for Excel"
Exit Sub
End If
xDay = DateDiff("d", xStartDate, xEndDate)
MsgBox "There are " & xDay & " days left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub
3. Και μετά, πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα, στα διαδοχικά παράθυρα διαλόγου, εισαγάγετε την ημερομηνία έναρξης και την ημερομηνία λήξης που θέλετε να χρησιμοποιήσετε, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, κάντε κλικ στο κουμπί OK κουμπί και θα λάβετε το αποτέλεσμα που θέλετε, δείτε το στιγμιότυπο οθόνης:
Υπολογίστε τη διαφορά μεταξύ δύο φορές στο έγγραφο του Word με τον κωδικό VBA
Εδώ είναι ένας άλλος κωδικός VBA που μπορεί να σας βοηθήσει να υπολογίσετε τη διαφορά μεταξύ δύο δεδομένων χρόνων, κάντε το ως εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή κενή ενότητα:
Κωδικός VBA: Υπολογίστε τη διαφορά μεταξύ δύο φορές
Sub CalculateTimeDifference()
Dim xStartDate As Date
Dim xEndDate As Date
Dim xTime As Long
Dim xHour As Long
On Error Resume Next
xStartDate = InputBox("Enter the start time", "KuTools for Word", "")
xEndDate = InputBox("Enter the end time", "KuTools for Word", "")
Debug.Print Str(xStartDate)
If (Str(xStartDate) = " 0:00:00") Or (Str(xEndDate) = " 0:00:00") _
Or (Str(xStartDate) = " 12:00:00 AM") Or (Str(xEndDate) = " 12:00:00 AM") Then
MsgBox "please input the time", vbInformation, "KuTools for Excel"
Exit Sub
ElseIf xStartDate > xEndDate Then
MsgBox " The start time is not larger than the end time!", vbInformation, "KuTools for Excel"
Exit Sub
End If
xTime = DateDiff("s", xStartDate, xEndDate)
xHour = xTime \ 3600
xTime = xTime - xHour * 3600
MsgBox "There are " & xHour & " hours " & xTime \ 60 & " minutes " & xTime - (xTime \ 60) * 60 _
& " seconds left from " & xStartDate & " to " & xEndDate & vbCrLf, vbInformation, "KuTools for Word"
End Sub
3. Και μετά, πατήστε F5 για να εκτελέσετε αυτόν τον κώδικα, στα διαδοχικά παράθυρα διαλόγου, εισαγάγετε την ώρα έναρξης και την ώρα λήξης που θέλετε να χρησιμοποιήσετε για τον υπολογισμό της διαφοράς, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια, κάντε κλικ στο κουμπί OK κουμπί και η διαφορά ώρας μεταξύ δύο δεδομένων χρόνων έχει υπολογιστεί και εμφανίζεται ως εξής:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...