Πώς να υπολογίσετε Αριθμός Εβδομάδες μεταξύ δύο ημερομηνιών

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

Ξεκινήστε το Visual Studio . Κάντε κλικ στο " Αρχείο ". Εμφανίζεται ένα μενού drop-down . Κάντε κλικ στο " New Project ". Ανοίγει το παράθυρο " New Project" . 2

Κάντε κλικ στο " Visual Basic" και , στη συνέχεια, κάντε διπλό κλικ στο " Windows Forms Application " για να δημιουργήσετε ένα νέο έργο της Visual Basic . Μια νέα μορφή θα εμφανιστεί στο παράθυρο σχεδίασης .
Εικόνων 3

διπλό κλικ στη γραμμή τίτλου της φόρμας . Ένα παράθυρο κώδικα θα ανοίξει και θα εμφανίσει τον ακόλουθο κώδικα :

" Private Sub Form1_Load ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές MyBase.Load

End Sub "
Φτηνές 4

Προσθέστε τον ακόλουθο κώδικα πριν από το "End Sub" δήλωση:

Dim date1Year Όπως Long

Dim date1Month As Integer

Dim date1Day Όπως ακέραιος

Dim date2Year Όπως Long

Dim date2Month As Integer

Dim date2Day As Integer

Dim dayCount As Integer

Dim weekCount Όπως δεκαδικό

« Ορισμός ημερομηνία1 και ημερομηνία2 τιμές κάτω

date1Year = 2000

date1Month = 1

date1Day = 1

date2Year = 2009

date2Month = 2

date2Day = 2

« Καθορίστε τον αριθμό των ημερών μεταξύ των δύο ημερομηνιών

Dim ημερομηνία1 As New System.DateTime ( date1Year , date1Month , date1Day )

Dim ημερομηνία2 As New System.DateTime ( date2Year , date2Month , date2Day )

dayCount = date2.Subtract ( ημερομηνία1 ) . Ημέρες

weekCount = dayCount /7

MessageBox.Show ( weekCount.ToString ( ) )
5

Εντοπίστε το σχόλιο που έχει αυτή την ετικέτα: " . Ορισμός ημερομηνία1 και ημερομηνία2 παρακάτω τιμές "

Οι έξι γραμμές κώδικα που ακολουθούν το σχόλιο σας επιτρέπουν να ορίσετε ημερομηνία1 σας και ημερομηνία2 τιμές . Σε αυτό το παράδειγμα , είναι date1Year 2000 , date1Month είναι 1 και date1Day είναι 1 . Αυτό ισοδυναμεί από την 1 Ιανουαρίου 2000. Η date2Year είναι το 2009 , η date2Month είναι 2 και η date2Day είναι 2 . Αυτό μεταφράζεται σε 2, Φεβ. 2009 .

Όταν αυτός ο κώδικας τρέχει , να υπολογίζει τον αριθμό των εβδομάδων μεταξύ ημερομηνία1 και ημερομηνία 2 και αποθηκεύει την τιμή στη μεταβλητή με το όνομα " weekCount . " Η τελική δήλωση MessageBox.Show ανοίγει ένα pop-up παράθυρο και εμφανίζει το αποτέλεσμα .
Η

6 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το έργο . Το αναδυόμενο παράθυρο θα εμφανιστεί ο αριθμός των εβδομάδων μεταξύ των δύο ημερομηνιών . Σε αυτό το παράδειγμα , η τιμή είναι 474,28 .
Η
εικόνων