Πώς να μετατρέψει σε δευτερόλεπτα Ώρα για Visual Basic 6

Γράψτε μια συνάρτηση της Visual Basic 6 , που μετατρέπει το χρόνο σε δευτερόλεπτα το χρόνο σε ώρες , λεπτά και δευτερόλεπτα, όταν θέλετε να εμφανίσετε την ανθρώπινη αναγνώσιμη μορφή για ένα χρονικό διάστημα σε δευτερόλεπτα αξία . Οι υπολογιστές χρησιμοποιούν συνήθως χρόνος σε δευτερόλεπτα από μια συγκεκριμένη ημερομηνία , όπως Ιανουαρίου 1970 1 . Είναι δύσκολο για τους ανθρώπους να διαβάζουν , εκτός εάν μεταφράζεται σε τυπική μορφή με την οποία οι χρήστες υπολογιστών συνηθίσει . Χρησιμοποιήστε το " Sub" και "Dim " λέξεις-κλειδιά για να δημιουργήσετε μια απλή λειτουργία μετατροπής για το χρόνο σε δευτερόλεπτα . Οδηγίες
Η

1 Ανοίξτε το έργο της Visual Basic 6 , για τα οποία θα πρέπει να μετατρέψετε ένα χρόνο σε δευτερόλεπτα αξία στην Ώρες /Λεπτά /Δευτερόλεπτα μορφή ώρας . Πληκτρολογήστε την ακόλουθη συνάρτηση στο πρόγραμμα :

Private Sub SecondsToHMS ( ByVal Δευτερόλεπτα Όπως Long )

Dim HR As Integer

Dim MS As Integer

Dim SS As Integer

HR = Δευτερόλεπτα \\ 3600

MS = ( Δευτερόλεπτα Mod 3600 ) \\ 60

SS = ( Δευτερόλεπτα Mod 3600 ) Mod 60

End Sub

Σημειώστε ότι οι " Private Sub " λέξεις-κλειδιά που χρησιμοποιούνται για να ρυθμίσετε τη λειτουργία που ονομάζεται " SecondsToHMS » που θα μετατρέψει ένα χρόνο σε δευτερόλεπτα αξία σε ώρες , λεπτά και δευτερόλεπτα . 2

Επιθεωρήστε κάθε γραμμή "Dim " και παρατηρούν ότι κάθε λέξη μετά το " Dim " είναι μια μεταβλητή που χρησιμοποιείται για να κρατήσει μια τιμή μετατροπής σε δευτερόλεπτα . "HR " κρατά τον αριθμό των δευτερολέπτων μετατρέπεται σε ώρες , "MS" κρατά τον αριθμό των δευτερολέπτων ( ή μέτρο) που έχει απομείνει από τον υπολογισμό ώρες μετατρέπονται σε λεπτά , και « SS » κατέχει τον αριθμό των δευτερολέπτων ( ή μέτρο) που έχει απομείνει από ο υπολογισμός λεπτά .
εικόνων 3

Εμφάνιση του χρόνου σε δευτερόλεπτα αξία μετατρέπονται σε ώρες , λεπτά και δευτερόλεπτα, χρησιμοποιώντας τη μορφή που απαιτείται από το πρόγραμμα σας Visual Basic 6 . Για παράδειγμα , εάν εμφανίζει την τρέχουσα ώρα με τις ώρες, τα λεπτά και τα δευτερόλεπτα σε μορφή , γράψτε το ακόλουθο στη λειτουργία του προγράμματος πάνω λίγο πριν την " End Sub " γραμμή :

Form1.show

Εκτύπωση " Ώρες = " + HR

Εκτύπωση " Λεπτά = " + MS

Εκτύπωση " Δευτερόλεπτα = " + SS
Η
εικόνων