Πώς να υπολογίσετε τις ώρες & Λεπτά σε VB6

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

1 Εισάγετε στο πρόγραμμά σας την ακόλουθη γραμμή , μείον τα εισαγωγικά : "Dim timeNumberOne Όπως New System.DateTime ( 2011 , 04 , 08 , 20 , 01 , 0 , 00 , cal ) " . Αυτό δημιουργεί μια ημερομηνία που αντιστοιχεί στο 8 του Απρίλη 2011 στις 20:01 . 2

Αντικαταστήστε τους αριθμούς από αυτή τη γραμμή να αντιστοιχεί , αντίστοιχα , με το ίδιο έτος η πρώτη σας φορά , το μήνα , την ημερομηνία , την ώρα και λεπτό. Αφήστε τα τελικά νούμερα, που αντιπροσωπεύουν δευτερόλεπτα και χιλιοστά του δευτερολέπτου του χρόνου του
εικόνων 3

Enter, μετά τη γραμμή γροθιά , η ακόλουθη γραμμή , μείον τα εισαγωγικά : . "Dim timeNumberTwo As New System.DateTime ( 2011 , 04 , 09 , 15 , 30 , 0 , 00 , cal ) " . Αυτό δημιουργεί μια ημερομηνία που αντιστοιχεί στην 9η Απριλίου, 2011 στις 3:30 μ.μ. .
Η 4

Αντικαταστήστε τους αριθμούς αυτής της δεύτερης γραμμής , αλλάζοντας τους να αντανακλούν το δεύτερο χρόνο σας .
5

εισάγετε τον παρακάτω κωδικό ως τρίτη γραμμή του προγράμματος : . " msg = DateDiff ( DateInterval.Hour , timeNumberOne , timeNumberTwo ) &" ώρες και " & ( DateDiff ( DateInterval.Minute , timeNumberOne , timeNumberTwo ) ) &" λεπτά χωρίζουν τις δύο φορές "
Η 6

Τοποθετήστε τα ακόλουθα ως τέταρτη γραμμή : . " MsgBox ( msg ) "
Η 7

Εκτελέστε το πρόγραμμα
εικόνων