Forum - Αριθμητικό ποσό ολογράφως.

Δημιουργός: Τάσος Φιλοξενίδης (έτος 2010)
Περιβάλλον: Access 2000, 2002, 2003, 2007, 2010

Άλλο ένα εργαλείο για την μετατροπή αριθμητικών νομισματικών ποσών
σε ευρώ και λεπτά ολογράφως.

Συνημμένο Αρχείο 290

Τι κάνει το αρχείο αυτό:

Έχει δυνατότητα επιλογής απόκρυψης των λέξεων "ευρώ" και "λεπτό" ή "λεπτά".
Εμφανίζει μόνο το πρώτο γράμμα κεφαλαίο
Εμφανίζει όλο το περιεχόμενο σε ΚΕΦΑΛΑΙΑ
Εμφανίζει το Πρώτο Γράμμα της Λέξης Κεφαλαίο
Λειτουργεί σε κάθε υπολογιστή ανεξάρτητα από την γλώσσα που υποστηρίζει.

Προσαρμογή σε άλλες εφαρμογές Access:

<LINK rel=File-List href="file:///C:%5CUsers%5CAdmin%5CAppData%5CLocal%5CTemp%5Cmsoh tmlclip1%5C01%5Cclip_filelist.xml"><LINK rel=themeData href="file:///C:%5CUsers%5CAdmin%5CAppData%5CLocal%5CTemp%5Cmsoh tmlclip1%5C01%5Cclip_themedata.thmx"><LINK rel=colorSchemeMapping href="file:///C:%5CUsers%5CAdmin%5CAppData%5CLocal%5CTemp%5Cmsoh tmlclip1%5C01%5Cclip_colorschememapping.xml"><STYL E>  </STYLE>Έστω ότι έχουμε σε ερώτημα ή σε φόρμα τα εξής πεδία:

NumberField = Πεδίο με μορφοποίηση αριθμού όπου περνάμε τον αριθμό
ResultField = Πεδίο όπου θα εμφανίζεται το αποτέλεσμα

<?xml:namespace prefix = o /><o:p></o:p>
Αρχικά εισάγουμε τη λειτουργική μονάδα mdlfunc από το αρχείο InWords.mdb
στη βάση δεδομένων μας.

Η παραπάνω λειτουργική μονάδα περιέχει τη συνάρτηση:

NumToWords(myValue, Optional CharCase%, Optional EurosAndCents As Boolean = True)<o:p></o:p>
<o:p></o:p>
Μπορούμε να καλέσουμε τη συνάρτηση NumToWords() χρησιμοποιώντας ένα από
τα παρακάτω παραδείγματα:

Μόνο το πρώτο γράμμα του αποτελέσματος κεφαλαίο, εμφάνιση της νομισματικής μονάδας

Κλήση από το πεδίο φόρμας "ResultField" : =NumToWords(NumberField)
Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField)
Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField)

Όλα ΚΕΦΑΛΑΙΑ, εμφάνιση της νομισματικής μονάδας

Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 1)<o:p></o:p>
Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 1)<o:p></o:p>
Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 1)<o:p></o:p>

Το Πρώτο Γράμμα της Λέξης Κεφαλαίο, εμφάνιση της νομισματικής μονάδας<o:p></o:p>

Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 2)<o:p></o:p>
Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 2)<o:p></o:p>
Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 2)<o:p></o:p>

<o:p></o:p>

Μόνο το πρώτο γράμμα του αποτελέσματος κεφαλαίο, απόκρυψη της νομισματικής μονάδας

Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 0, False)<o:p></o:p>
Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 0, False)<o:p></o:p>
Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 0, False)<o:p></o:p>

Όλα ΚΕΦΑΛΑΙΑ, απόκρυψη της νομισματικής μονάδας

Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 1, False)<o:p></o:p>
Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 1, False)<o:p></o:p>
Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 1, False)<o:p></o:p>

Το Πρώτο Γράμμα της Λέξης Κεφαλαίο, απόκρυψη της νομισματικής μονάδας

Κλήση από το πεδίο φόρμας "ResultField" : = NumToWords(NumberField, 2, False)<o:p></o:p>
Κλήση από πεδίο ερωτήματος: ResultField: NumToWords(NumberField, 2, False)<o:p></o:p>
Κλήση μέσα από τη VBA : ResultField = NumToWords(NumberField, 2, False)<o:p></o:p>

Κατεβάστε το αρχείο αποσυμπιέστε το και ...αξιολογείστε το.