Πώς να υπολογίσετε Leap Year Με το Microsoft Visual Basic

Microsoft Visual Basic έχει μια ποικιλία από ενσωματωμένες λειτουργίες , καθώς και για τον υπολογισμό και τη μετατροπή ημερομηνιών . Μια μικρή σκέψη που εφαρμόζεται στον ορισμό ενός δίσεκτου έτους , σε συνδυασμό με τη λειτουργία Visual Basic IsDate , θα σας δώσει τη δυνατότητα να υπολογίσει τα δίσεκτα έτη με τη Visual Basic . Τα πράγματα που θα χρειαστείτε για Microsoft Word, Excel ή κάποιο άλλο πρόγραμμα που περιέχει το Visual Basic IDE ( ολοκληρωμένο περιβάλλον ανάπτυξης )
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Ανοίξτε το Microsoft Word και να δημιουργήσετε ένα έγγραφο που ονομάζεται " LeapYear.doc . " Πληκτρολογήστε το MS Word Visual Basic IDE πιέζοντας Alt - F11 .

Επιλέξτε τη σωστή μονάδα στην οποία να εισάγετε τον κωδικό του προγράμματος . Στο παράθυρο του έργου στο αριστερό μέρος του παραθύρου IDE , κάντε κλικ στο σύμβολο συν ( + ) πρόσημο στα αριστερά του στοιχείου "Project ( LeapYear ) . " Κάντε κλικ στο σύμβολο συν του φακέλου " Αντικείμενα Microsoft Word ", το οποίο εμφανίζεται αμέσως κάτω από το "Project ( LeapYear ) . " Κάντε διπλό κλικ στο " ThisDocument . " 2

Εισάγετε τον κωδικό του προγράμματος . Στο κενό παράθυρο κώδικα , πληκτρολογήστε ή αντιγραφή και επικόλληση του παρακάτω κώδικα προγράμματος :

IsLeapYear Public Function ( sYear Όπως Variant ) IsLeapYear = IsDate ( sYear ) End Function

Public Sub NextLeapYear ( ) Dim sYear , sDate , msgDim yr , startYear , nIterDim MyDate

« Περπατήστε επάνω από το συγκεκριμένο έτος μέχρι να βρούμε ένα δίσεκτο έτος

startYear = 1981

yr = startYearnIter = 0myDate = " 2/29 /" & yr

Do While ( ( IsLeapYear ( MyDate ) = False ) και νίτρο <10 ) νίτρο = νίτρο + 1χρ = yr + 1myDate = " 2/29 /" & yr

Loop

Αν ( νίτρο <10 ) Thenmsg = " Το επόμενο δίσεκτο έτος μετά το" & startYear & "είναι" & yrMsgBox ( msg ) End If

End Sub
εικόνων 3

Αλλάξτε το " startYear " μεταβλητή να περιέχει το χρόνο που θέλετε να υπολογίσετε το επόμενο δίσεκτο έτος για . Τοποθετήστε το δρομέα οπουδήποτε μέσα στη συνάρτηση NextLeapYear και πατήστε F5 . Το πρόγραμμα εκτελεί , αποκαλύπτοντας το επόμενο βήμα στις ή πριν από το έτος που δώσατε .
Η 4

Δημιουργήστε το user interface. Επιλέξτε τον πλήρη πηγαίο πρόγραμμα που πληκτρολογήσατε και το κόβουμε στο Πρόχειρο ( Ctrl - X ) . Κάντε κλικ στο "Project ( LeapYear ) " στοιχείο στο παράθυρο του έργου και πάλι , στη συνέχεια, πηγαίνετε στο μενού "Εισαγωγή" και επιλέξτε " Μορφή χρήστη . " . Drag and drop ένα πλαίσιο κειμένου και ένα κουμπί εντολής στη φόρμα , με το κουμπί τοποθετημένο κάτω από το πλαίσιο κειμένου

Κάντε διπλό κλικ στο κουμπί και τον τύπο ( μην αντιγράψετε και να επικολλήσετε ) τον ακόλουθο κώδικα : Λειτουργία CommandButton1_Click : MsgBox ( NextLeapYear ( TextBox1.Text ) )

Τοποθετήστε το δρομέα σε οποιοδήποτε ανοιχτό χώρο κώδικα έξω από τη συνάρτηση CommandButton1_Click . Επικολλήστε τον κώδικα που προηγουμένως έχουν κοπεί στο Πρόχειρο .
5

Αλλαγή NextLeapYear να είναι μια συνάρτηση . Αλλάξτε τη γραμμή για το άνοιγμα της NextLeapYear ως εξής : . Public Function NextLeapYear ( startYear )

Διαγράψτε τη μεταβλητή startYear μεταξύ των διαφόρων Δημ. δηλώσεις , και να διαγράψετε το startYear γραμμή = 1981

Αντικαταστήστε το μεταβλητή msg με το όνομα της συνάρτησης ( NextLeapYear ) στην κατάσταση msg = " το επόμενο βήμα ... "

Διαγράψτε τη δήλωση MsgBox που προκύπτει ότι " NextLeapYear = " δήλωση. Βεβαιωθείτε ότι οι τρεις τελευταίες γραμμές κώδικα στη λειτουργία NextLeapYear ως εξής .

Αν ( νίτρο <10 ) ThenNextLeapYear = "Το επόμενο δίσεκτο έτος μετά το" & startYear & "είναι" & yrEnd Αν

6

Χρησιμοποιήστε το πρόγραμμα σας δίσεκτο έτος . Ενώ μέσα στο παράθυρο κώδικα UserForm1 , πατήστε F5 , πληκτρολογήστε ένα έτος στο πλαίσιο κειμένου και πατήστε το κουμπί .
Η
εικόνων