Σε αυτό το άρθρο, θα δημιουργήσουμε μια προσαρμοσμένη συνάρτηση για τη μετατροπή αρνητικών συμβολοσειρών σε ακέραιο.
Τα ακατέργαστα δεδομένα για αυτό το άρθρο αποτελούνται από συμβολοσειρές ακολουθούμενες από ένα σύμβολο μείον (-).
Θέλουμε να μετατρέψουμε αυτές τις συμβολοσειρές σε ακέραιους αριθμούς.
Λογική εξήγηση
Σε αυτό το άρθρο, δημιουργήσαμε μια προσαρμοσμένη λειτουργία ConvertNegNumbers για τη μετατροπή της συμβολοσειράς σε ακέραιο. Αυτή η συνάρτηση λαμβάνει τιμή συμβολοσειράς ως είσοδο και επιστρέφει ακέραιο ως έξοδο.
Επεξήγηση κώδικα
Δεξιά (Var, 1) = "-"
Ο παραπάνω κώδικας χρησιμοποιείται για να ελέγξει εάν ο τελευταίος χαρακτήρας της συμβολοσειράς είναι ίσος με το σύμβολο μείον (-).
ConvertNegNumbers = CInt (" -" & Αριστερά (Var, Len (Var) - 1))
Στον παραπάνω κώδικα, η αριστερή συνάρτηση χρησιμοποιείται για την εξαγωγή όλων των χαρακτήρων στη συμβολοσειρά, εκτός από τον τελευταίο. Η συνάρτηση CInt χρησιμοποιείται για τη μετατροπή της τιμής συμβολοσειράς σε ακέραιο.
Ακολουθήστε παρακάτω για τον κωδικό
Επιλογή ρητή συνάρτηση ConvertNegNumbers (Var As String) 'Έλεγχος αν ο τελευταίος χαρακτήρας της συμβολοσειράς είναι μείον (-) Εάν είναι δεξιά (Var, 1) = "-" Τότε' Μετατροπή τιμής συμβολοσειράς σε αρνητικό ακέραιο ConvertNegNumbers = CInt ("-" & Αριστερά (Var, Len (Var) - 1)) Άλλο «Μετατροπή τιμής συμβολοσειράς σε ακέραιο ConvertNegNumbers = CInt (Var) End If End End
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email