Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τη λειτουργία CDec VBA.
Λειτουργία CDec
VBA CDec Μετατροπή έκφρασης σε δεκαδικό
Η συνάρτηση VBA CDec μετατρέπει μια παράσταση σε δεκαδικό τύπο δεδομένων. Ο δεκαδικός τύπος δεδομένων είναι στην πραγματικότητα ένας υποτύπος του τύπου δεδομένων παραλλαγής.
| 12345678910 | Υπο CDecExample_1 ()MsgBox CDec (12.34000001)«Το αποτέλεσμα είναι: 12.34000001MsgBox CDec (10000000000012,3)«Το αποτέλεσμα είναι: 10000000000012.3MsgBox CDec (-0.00000000000001)«Το αποτέλεσμα είναι: -0.00000000000001MsgBox CDec (-12.34)Το αποτέλεσμα είναι: -12.34Τέλος υπο |
VBA CDec Μετατροπή συμβολοσειρών σε δεκαδικούς
Η συνάρτηση VBA CDec μπορεί να χρησιμοποιηθεί για τη μετατροπή συμβολοσειρών σε δεκαδικούς, εάν οι χαρακτήρες της συμβολοσειράς έχουν νόημα ως αριθμοί.
| 12345678910111213141516171819 | Υπο CDecExample_2 ()Dim StrEx As StringStrEx = "112.112112"MsgBox CDec (StrEx)Το αποτέλεσμα είναι: 112.112112StrEx = "112,3"MsgBox CDec (StrEx)Το αποτέλεσμα είναι: 112,3StrEx = "11,2"MsgBox CDec (StrEx)Το αποτέλεσμα είναι: 112, αγνοείταιStrEx = "112,07 $"MsgBox CDec (StrEx)'Το αποτέλεσμα είναι: $ 112.07 αγνοείταιΤέλος υπο |
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Σφάλμα χρόνου εκτέλεσης VBA CDec 13 Αναντιστοιχία τύπου
Η χρήση της συνάρτησης VBA CDec με συμβολοσειρές που περιέχουν μη αριθμητικούς χαρακτήρες ή χαρακτήρες που δεν έχουν νόημα σε αριθμητικό πλαίσιο θα οδηγήσει σε σφάλμα χρόνου εκτέλεσης «13»: Αναντιστοιχία τύπου.
| 1234567 | Υπο CDecExample_3 ()«Ο παρακάτω κώδικας θα οδηγήσει σε μήνυμα ERRORΤο CDec δεν μπορεί να χειριστεί μη αριθμητικούς χαρακτήρεςDim StrEx As StringStrEx = "Ab13"MsgBox CDec (StrEx)Τέλος υπο |
Σφάλμα χρόνου εκτέλεσης VBA CDec 6 Υπερχείλιση
Η χρήση της συνάρτησης VBA CDec με συμβολοσειρές που έχουν ως αποτέλεσμα μια τιμή μικρότερη ή μεγαλύτερη από το αναμενόμενο δεκαδικό θα οδηγήσει σε σφάλμα χρόνου εκτέλεσης '6': Υπερχείλιση. Ο δεκαδικός αριθμός πρέπει να είναι μεταξύ -7,9 Ε28 και +7,9 Ε28.
| 1234567 | Υπο CDecExample_4 ()«Ο παρακάτω κώδικας θα οδηγήσει σε μήνυμα ERRORΤο CDec μπορεί να χειριστεί αριθμούς μεταξύ -7,9 Ε28 και +7,9 Ε28Dim StrEx As VariantStrEx = 8E+30MsgBox CDec (StrEx)Τέλος υπο |
Περιφερειακές ρυθμίσεις VBA CDec
Η συνάρτηση VBA CDec έχει διαφορετική συμπεριφορά μετατροπής συμβολοσειρών με κόμμα ή τελεία. Χρησιμοποιεί τις Περιφερειακές ρυθμίσεις του λειτουργικού συστήματος για δεκαδικό διαχωριστή και διαχωριστή ψηφίων.
| 12345678910111213141516 | Υπο CDecExample_5 ()Dim StrEx As StringStrEx = "1,0000009"MsgBox CDec (StrEx)Αν έχουν ρυθμίσεις Τοπικές ρυθμίσεις, ως διαχωριστής ομάδας τότεΤο αποτέλεσμα είναι: 19'Αν οι ρυθμίσεις Περιφέρειας έχουν, ως δεκαδικός διαχωριστής τότε«Το αποτέλεσμα είναι: 1.0000009StrEx = "1.0000009"MsgBox CDec (StrEx)«Εάν υπάρχουν ρυθμίσεις περιοχής. ως διαχωριστικό ομάδας τότεΤο αποτέλεσμα είναι: 19«Εάν υπάρχουν ρυθμίσεις περιοχής. ως δεκαδικός διαχωριστής τότε«Το αποτέλεσμα είναι: 1.0000009Τέλος υπο |
