Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τη συνάρτηση CDbl VBA για να μετατρέψετε εκφράσεις σε διπλό τύπο δεδομένων.
Λειτουργία CDbl
VBA CDbl Μετατροπή έκφρασης σε ακέραιο
Η συνάρτηση VBA CDbl μπορεί να χρησιμοποιηθεί για τη μετατροπή εκφράσεων σε διπλό τύπο δεδομένων εντός κώδικα VBA.
| 123456 | Υπο CDblExample_1 ()MsgBox CDbl (12.345) 'Το αποτέλεσμα είναι: 12.345MsgBox CDbl (-124) 'Το αποτέλεσμα είναι: -124MsgBox CDbl (0.000034) 'Το αποτέλεσμα είναι: 0.000034MsgBox CDbl (-12.000034) 'Το αποτέλεσμα είναι: -12.000034Τέλος υπο |
VBA CDbl Μετατροπή συμβολοσειράς σε διπλό
Η συνάρτηση VBA CDbl μπορεί να χρησιμοποιηθεί για τη μετατροπή συμβολοσειρών σε διπλές, εάν οι χαρακτήρες της συμβολοσειράς έχουν νόημα ως αριθμοί.
| 123456789101112131415161718 | Υπο CDblExample_2 ()Dim StrEx As StringStrEx = "112"MsgBox CDbl (StrEx)Το αποτέλεσμα είναι: 112StrEx = "0.0003"MsgBox CDbl (StrEx)Το αποτέλεσμα είναι: 0.0003StrEx = "11,00002"MsgBox CDbl (StrEx)'Το αποτέλεσμα είναι: 1100002, αγνοείταιStrEx = "112 $"MsgBox CDbl (StrEx)Το αποτέλεσμα είναι: 112 $ αγνοείταιΤέλος υπο |
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Σφάλμα χρόνου εκτέλεσης VBA CDbl 13 Αναντιστοιχία τύπου
Η χρήση της συνάρτησης VBA CDbl με συμβολοσειρές που περιέχουν μη αριθμητικούς χαρακτήρες ή χαρακτήρες που δεν έχουν νόημα σε αριθμητικό πλαίσιο θα οδηγήσει σε σφάλμα χρόνου εκτέλεσης «13»: Αναντιστοιχία τύπου.
| 1234567 | Υπο CDblExample_3 ()«Ο παρακάτω κώδικας θα οδηγήσει σε μήνυμα ERRORΤο CDbl δεν μπορεί να χειριστεί μη αριθμητικούς χαρακτήρεςDim StrEx As StringStrEx = "Ab13"MsgBox CDbl (StrEx)Τέλος υπο |
Περιφερειακές ρυθμίσεις VBA CDbl
Η συνάρτηση VBA CDbl έχει διαφορετική συμπεριφορά μετατροπής συμβολοσειρών με κόμμα ή τελεία. Χρησιμοποιεί τις Περιφερειακές ρυθμίσεις του λειτουργικού συστήματος για δεκαδικό διαχωριστή και διαχωριστή ψηφίων.
| 12345678910111213141516 | Υπο CDblExample_4 ()Dim StrEx As StringStrEx = "1,9"MsgBox CDbl (StrEx)Αν έχουν ρυθμίσεις Τοπικές ρυθμίσεις, ως διαχωριστής ομάδας τότεΤο αποτέλεσμα είναι: 19'Αν οι ρυθμίσεις Περιφέρειας έχουν, ως δεκαδικός διαχωριστής τότεΤο αποτέλεσμα είναι: 1,9StrEx = "1,9"MsgBox CDbl (StrEx)«Εάν υπάρχουν ρυθμίσεις περιοχής. ως διαχωριστικό ομάδας τότεΤο αποτέλεσμα είναι: 19«Εάν υπάρχουν ρυθμίσεις περιοχής. ως δεκαδικός διαχωριστής τότεΤο αποτέλεσμα είναι: 1.9Τέλος υπο |
VBA CDbl Μετατροπή των ρουλεμάν σε διπλά
Η συνάρτηση VBA CDbl μπορεί να μετατρέψει μεταβλητές boole σε διπλές. Εάν η εκτιμώμενη έκφραση είναι αληθινή, το διπλό που προκύπτει είναι -1 και αν η εκτίμηση έκφρασης είναι ψευδής, το διπλό που προκύπτει είναι 0.
| 12345678910 | Υπο CDblExample_5 ()Dim BoolEx As BooleanBoolEx = ΑλήθειαMsgBox CDbl (BoolEx) 'Το αποτέλεσμα είναι: -1MsgBox CDbl (2 = 2) 'Το αποτέλεσμα είναι: -1BoolEx = ΛάθοςMsgBox CDbl (BoolEx) 'Το αποτέλεσμα είναι: 0MsgBox CDbl (1 = 2) 'Το αποτέλεσμα είναι: 0Τέλος υπο |
Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!
VBA CDbl Μετατροπή ημερομηνιών σε διπλά
Η συνάρτηση VBA CDbl μπορεί να μετατρέψει μια μεταβλητή ημερομηνίας σε ακέραιο. Η επιστρεφόμενη τιμή είναι ο εσωτερικός αριθμός που χρησιμοποιείται από το excel για αποθήκευση ημερομηνίας στρογγυλοποιημένο.
| 123456789101112 | Υπο CDblExample_6 ()Dim DateEx ως ημερομηνίαDateEx = #2/3/1940 #MsgBox CDbl (DateEx)Το αποτέλεσμα είναι: 14644DateEx = #8/7/1964 10:41:00 ΜΜ #MsgBox CDbl (DateEx)«Το αποτέλεσμα είναι: 23596.9451388889DateEx = #3/7/1934 11:32:04 π.μ. #MsgBox CDbl (DateEx)«Το αποτέλεσμα είναι: 12485.4806018519Τέλος υπο |
