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

[Ms-Office-Development Team]

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

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



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

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

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

Έστω ότι έχουμε σε ερώτημα ή σε φόρμα τα εξής πεδία:

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

Αρχικά εισάγουμε τη λειτουργική μονάδα mdlfunc από το αρχείο InWords.mdb
στη βάση δεδομένων μας.

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

NumToWords(myValue, Optional CharCase%, Optional EurosAndCents As Boolean = True)

Μπορούμε να καλέσουμε τη συνάρτηση NumToWords() χρησιμοποιώντας ένα από
τα παρακάτω παραδείγματα:

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

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

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

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

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

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

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

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

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

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

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

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

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