Μια συνάρτηση μετατροπής αριθμητικών τιμών σε έκφραση ολογράφως
για το OpenOffice ή LibreOffice (OpenOffice.org Basic)
'Υστερα από επιθυμία αναγνώστη της ιστοσελίδας, τροποποίησα την συνάρτηση μετατροπής ποσών ολογράφως σε ευρώ ώστε να δέχεται αριθμητικές τιμές (ακέραιες μόνο ή και με δεκαδικά) και να τις μετατρέπει ολογράφως σε ένα φύλο του OpenOffice. Μετατρέπει μια αριθμητική τιμή έως το 999999999,99 ολογράφως σε ακέραιο και δεκαδικό μέρος πχ. 2333.99 γίνεται Δύο χιλιάδες τριακόσια τριάντα τρία και ενενήντα εννέα εκατοστά. Έφτιαξα ένα μικρό αρχείο excel υπόδειγμα στο οποίο χρησιμοποιείται η συνάρτηση σε ένα πίνακα βαθμολογίας μαθητών. Μπορείτε να κατεβάσετε το αρχείο ods για το OpenOffice με ενσωματωμένη την συνάρτηση αυτή και να το δοκιμάσετε από εδώ
Μια συνάρτηση μετατροπής αριθμητικών ποσών σε ευρώ ολογράφως για το OpenOffice ή LibreOffice (OpenOffice.org Basic)
Μετατρέπει μια νομισματική τιμή έως το 999999999,99 ολογράφως σε ευρώ και λεπτά πχ. 2333.99 γίνεται Δύο χιλιάδες τριακόσια τριάντα τρία Ευρώ και ενενήντα εννέα λεπτά Ο κώδικας της συνάρτησης σε openoffice.org basic δημιουργήθηκε εύκολα από τον αντίστοιχο που είχα φτιάξει παλιότερα για την VBA, καθόσον η βασική δομή της γλώσσας δεν παρουσιάζει διαφορές. Ωστόσο όλα τα υπόλοιπα στοιχεία της openoffice είναι τελείως διαφορετικά από αυτά της VBA (runtime library, API και Dialog Editor). Οπώτε στην περίπτωση που θέλετε να μεταφέρετε εφαρμογές από VBA σε OpenOffice.org αυτό θα απαιτεί αλλαγή του κώδικα. Μπορείτε να κατεβάσετε το αρχείο .ods για το CALC με ενσωματωμένη την συνάρτηση αυτή και να το δοκιμάσετε από εδώ