Πώς να μετατρέψετε Ακέραιος με Ημερομηνία Αξίας την Visual Basic

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

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

να αναγνωρίσει τη λειτουργία με μια παράμετρο που ονομάζεται " αριθμός . " Αυτό θα πρέπει να αναφέρεται με βάση την αξία .

Η 3

αναγνωρίσει τέσσερις μεταβλητές : μία χορδή και τρεις ακέραιους . Οι τρεις ακέραιοι θα χρησιμοποιηθεί για να κρατήσει τις τιμές του αριθμού που πρόκειται να σαρωθεί
Η 4

προετοιμαστεί κάθε μία από τις τρεις ακέραιους με τις τιμές : . S.Substring ( 0,2 ) , S.Substring ( 2,2 ) και S.Substring ( 4,4 ​​) , αυτά θα αντιπροσωπεύουν το μήνα, την ημέρα και το έτος , αντίστοιχα .
5

Ορίστε τις τιμές Επιστροφή πέρασε πίσω από τα ονόματα των ακέραιων μεταβλητών . Για παράδειγμα , "Return διορθώθηκε Ημερομηνία ( Μήνας, Ημέρα , Έτος) .
Η 6

Μετατρέψτε κάθε ξεχωριστή ακέραιο σε ένα String χρησιμοποιώντας μια απλή έκφραση cast. Για παράδειγμα , Cstr ( μήνα) θα μετατρέψει το μήνα σε μια ισοδύναμη συμβολοσειρά . Οι τιμές αυτές μπορούν να υποβάλλονται απευθείας ή να χρησιμοποιηθούν ως δείκτες για τις συστοιχίες να εμφανίζουν μόνο τα ονόματα όπως « Δεκέμβρη».
Η
εικόνων