Πώς να υπολογίσετε το Ημερομηνία & Ώρα Διαφορά σε ώρες και λεπτά στον VBA

Visual Basic υπολογίζει ημερομηνίες χρησιμοποιώντας το τη δομή DateTime . Μια DateTime μεταβλητή αποθηκεύει ένα χρόνο από την άποψη του χρόνου του , το μήνα και την ημέρα , την ώρα του , λεπτό και το δεύτερο , ακόμη και χιλιοστά του δευτερολέπτου της . Μια εντολή που δρα σε μεταβλητές Εστιακή , η συνάρτηση DateDiff , υπολογίζει τη διαφορά μεταξύ των δύο φορές. Επιστρέφει αυτή τη διαφορά όσον αφορά την οποιαδήποτε χρονικό διάστημα που θα ορίσετε , συμπεριλαμβανομένων των ημερών και των ετών ή ώρες και τα λεπτά . Οδηγίες
Η 1

Πληκτρολογήστε την ακόλουθη γραμμή κώδικα στο πρόγραμμά σας :

Dim firstDateTime Όπως New System.DateTime ( 2012 , 12 , 21 , 13 , 04 , 0 , 00 , cal ) 2

Αντικαταστήστε το " 2012 " στη γραμμή με το ίδιο έτος το προγενέστερο χρόνο του .
εικόνων 3

Αντικαταστήστε το " 12" με τον αριθμό που αντιστοιχεί με το μήνα το χρόνο, με το "1 " αντιπροσωπεύουν Ιανουαρίου " 2 " εκπροσωπεί Φεβρουάριο και ούτω καθεξής .
Η 4

Αντικαταστήστε το "21" με την ημερομηνία της ημέρας . " 11 Δεκεμβρίου " , για παράδειγμα , θα μεταφραζόταν ως
5

Αντικαταστήστε το " 13" για την ώρα το χρόνο, χρησιμοποιώντας ένα ρολόι 24 - hour " 11 . "? " 20:30 ", για παράδειγμα, " . 20" , μεταφράζεται ως
Η 6

Αντικαταστήστε το " 05 " με τα πρακτικά του χρόνου είναι ? " . 30 " " 20:30 , " για παράδειγμα , μεταφράζεται ως
Η 7 < p> Τύπος , κάτω από την πρώτη γραμμή :

Dim secondDateTime Όπως New System.DateTime ( 2012 , 12 , 21 , 13 , 04 , 0 , 00 , cal )
8

Εισαγωγή . την μεταγενέστερη ημερομηνία και την ώρα στη γραμμή του κώδικα με τον ίδιο τρόπο
Η 9

Πληκτρολογήστε τον ακόλουθο κώδικα στη συνέχεια:

msg = " Διαφορά μεταξύ φορές: " & DateDiff ( DateInterval. ώρα , firstDate , secondDate ) & " ώρες και " & ( DateDiff ( DateInterval.Minute , firstDate , secondDate ) - DateDiff ( DateInterval.Hour , firstDate , secondDate ) ) & " λεπτά "

MsgBox ( msg ) < br >

Η