Microsoft Dynamics Development

Απ: Function ΟΛΟΓΡΑΦΩΣ

YourFriend — Tue, 20 Aug 2013 03:26:25 GMT

και σε Java παιδες....

https://github.com/EvanCoh/monetaryAmountToGreek

Απ: Function ΟΛΟΓΡΑΦΩΣ

Παναγιώτης Καναβός — Fri, 15 Aug 2008 23:17:28 GMT

Αυτό θα βόλευε αν μπορούσες να αναπαραστήσεις το ποσό που θέλεις σε 48 μόνο bits - και όλες τις πράξεις που θέλεις να κάνεις με αυτό, π.χ. πολλαπλασιασμούς. Διαφορετικά στους πολλαπλασιασμούς θα κινδύνευες από overflow, καθώς ένας πολλαπλασιασμός δύο αριθμών μπορεί να χρειαστεί μέχρι και το άθροισμα των ψηφίων των δύο αριθμών. Το 2^48 μπορεί να φαντάζει αρκετό για πράξεις με χρήματα, το 2^24 όμως είναι μόλις 17 εκατομμύρια παρά κάτι. Θα μου πεις, πότε πολλαπλασιάζεις εκατομμύρια με εκατομμύρια? Δεν ξέρεις, οπότε ο κώδικας σου θα πρέπει να κάνει συνέχεια ελέγχους για να βεβαιωθεί ότι δεν υπάρχει κίνδυνος overflow. Τελικά, απλά δεν αξίζει τον κόπο αν έχεις υπολογιστή και γλώσσα που υποστηρίζει άλλους τρόπους αναπαράστασης, κάτι που αναφέρει και το άρθρο του wikipedia.

Εξάλλου, 2^48 είναι αρκετό ίσως για ένα ισολογισμό πολυεθνικής σε ευρώ ή δολλάρια, δεν κάνει όμως για ισολογισμό σε ... δραχμές ή Yen. Από την άλλη, ο decimal είναι built-in τύπος στα 128 bits, δεν είναι floating-point οπότε δεν υπάρχει κίνδυνος απώλειας ακρίβειας, και δεν χρειάζεται ταρζανιές στις πράξεις ακριβώς επειδή είναι built-in. Γι αυτό και χρησιμοποιείται ευρέως για νομισματικές τιμές. Τέλος, επειδή ακριβώς είναι ευρέως διαδεδομένος, είναι και αναμενόμενος είτε από άλλους προγραμματιστές στην εφαρμογή σου είτε από όσους χρησιμοποιήσουν την εφαρμογή σου μέσω κάποιου API. Η χρήση ενός μή αναμενόμενου τύπου είναι πρόβλημα εκτός και αν αυτό προσθέτει σημαντικά πλεονεκτήματα.

Η χρήση ενός τύπου Currency είναι χρήσιμη για άλλους λόγους. Καταρχήν, ένα χρηματικό ποσό δεν έχει απλά μία τιμή αλλά και ένα νόμισμα. Είναι λάθος να προσθέσεις ποσά διαφορετικών νομισμάτων εκτός και αν τα μετατρέψεις από το ένα στο άλλο. Αυτό όμως προϋποθέτει τη χρήση μίας ισοτιμίας για τη μετατροπή. Επιπλέον, κάποιες πράξεις πρέπει να γίνονται με αυστηρά καθορισμένο αριθμό δεκαδικών, ακόμα και αν αυτό οδηγεί σε απώλεια ακρίβειας. Ο λόγος είναι ότι αυτός ο αριθμός δεκαδικών χρησιμοποιείται και στη λογιστική και αν χρησιμοποιήσεις διαφορετικό αριθμό, 16 όπως προτείνεις, θα οδηγηθείς σε διαφορετικά αποτελέσματα και πιθανές διαφορές. Αρκετές από αυτές μπορούν να οριστούν σε ένα τύπο Currency, άλλες θα πρέπει να οριστούν σε κάποια άλλη βιβλιοθήκη με οικονομικές συναρτήσεις, γιατί κάποια πράγματα τα οποία δεν αλλάζουν ποτέ .... αλλάζουν.

Απ: Function ΟΛΟΓΡΑΦΩΣ

Κώστας Μιχαλόπουλος — Fri, 15 Aug 2008 18:50:08 GMT

Προσωπικά πιστεύω πως μια πολύ καλή λύση είναι να χρησιμοποιείς fixed point αριθμούς των 64bit με το ακέραιο κομμάτι στα 48bit και το δεκαδικό στα 16bit όταν ασχολείσαι με χρηματικά ποσά (όπου μπορείς να φτιάξεις μια "Currency" κλάση με overloaded operators μάλλον θα βολεύει).

Απ: Function ΟΛΟΓΡΑΦΩΣ

γιωργος μπακογιαννης — Fri, 27 Jun 2008 15:48:06 GMT

Αφού δε μπορείς να δώσεις ρέστα μικρότερα του ενός λεπτού του ευρώ τη περισσότερη ακρίβεια τη χρειάζεσαι για εσωτερικές πράξεις και για ειδικές περιπτώσεις τιμοκαταλόγων. (Κινητή τηλεφωνία, internet χρεώσεις, βενζίνη κτλ…)

Απ: Function ΟΛΟΓΡΑΦΩΣ

dva — Fri, 27 Jun 2008 03:09:50 GMT

Δεν υπάρχει υποδιαίρεση του ευρώ μικρότερη του λεπτού.

http://eur-lex.europa.eu/LexUriServ/LexUriServ.do?uri=CELEX:51996PC0499(01):EL:HTML

http://www.moi.gov.cy/moi/pio/pio.nsf/All/0BF8BFA414168E4DC22573B1004C5753?Opendocument

Σε κάποια άλλη σελίδα (http://www.gge.gr/09diadsystasis/Documents/Entypa/N_2842.doc) αναφερόταν ότι ακρίβεια μεγαλύτερη των δύο δεκαδικών μπορεί να χρησιμοποιηθεί για ενδιάμεσους υπολογισμούς. Το τελικό ποσό σε ευρώ εκφράζεται πάντα με στρογγυλοποίηση στα 2 δεκαδικά.

Απ: Function ΟΛΟΓΡΑΦΩΣ

George J. Capnias — Thu, 26 Jun 2008 04:12:26 GMT

saslanis:
Αν και φαντάζομαι ότι ένα τέτοιο σενάριο είναι επιστημονικής φαντασίας, ευτυχώς που οι λογιστές κυρίως στρογγυλοποιούν στα δύο δεκαδικά.
Καμιά πρόταση;

Αν και το σενάριο είναι αληθινό, από τον καιρό που έχει καθιερωθεί το ευρώ, έχει επιβληθεί η στρογγυλοποίηση στα δύο δεκαδικά ψηφία - σε αυτό οι βασίζονται λογιστές και δρουν έτσι, είναι οδηγία από το υπουργείο εμπορείου.

Οπότε το "χιλιοστά του ευρώ" και το "λεπτά του λεπτού ευρώ" δεν είναι αποδεκτά, τουλάχιστον νομικά...

Γιατί να αγχωνόμαστε;

George J.

Απ: Function ΟΛΟΓΡΑΦΩΣ

saslanis — Wed, 25 Jun 2008 17:34:34 GMT

Χαίρετε

Διάβαζα τις πολύ όμορφες συναρτήσεις για την μετατροπή αριθμών σε Ευρώ και Λεπτά και θυμήθηκα ότι στο παρελθόν είχα φτιάξει κάτι αντίστοιχο. Ίσως να παραθέσω και τα δικά μου κιλά του κώδικα μιας και είχα μια εντελώς διαφορετική προσέγγιση στο θέμα. Όμως γράφω γιατί τότε και έως και σήμερα μου έχει μείνει μια αναπάντητη απορία.

Πώς μεταφράζεται σε ολογράφως η πχ τιμή της βενζίνης 150.0314 που θα βλέπουμε στα βενζινάδικα σε κανα δυο μήνες;

το ΕΚΑΤΟΝ ΠΕΝΗΝΤΑ ΕΥΡΩ ΚΑΙ ΜΗΔΕΝ ΤΡΙΑΚΟΣΙΑ ΔΕΚΑΤΕΣΣΕΡΑ ΛΕΠΤΑ είναι σωστή απάντη;

το 150.314 πάντως αν γίνει ΕΚΑΤΟΝ ΠΕΝΗΝΤΑ ΕΥΡΩ ΚΑΙ ΤΡΙΑΚΟΣΙΑ ΔΕΚΑΤΕΣΣΕΡΑ ΛΕΠΤΑ είναι λάθος διότι 314 λεπτά είναι 3 Ευρώ και 14 Λεπτά. Το πιο σωστό θα ήταν ΤΡΙΑΚΟΣΙΑ ΔΕΚΑ ΤΕΣΣΕΡΑ ΧΙΛΙΟΣΤΑ ΤΟΥ ΕΥΡΩ ή ΤΡΙΑΝΤΑ ΕΝΑ ΚΑΙ ΤΕΣΣΕΡΑ ΛΕΠΤΑ.

Αν και φαντάζομαι ότι ένα τέτοιο σενάριο είναι επιστημονικής φαντασίας, ευτυχώς που οι λογιστές κυρίως στρογγυλοποιούν στα δύο δεκαδικά.

Καμιά πρόταση;

Απ: Function ΟΛΟΓΡΑΦΩΣ

famous — Sat, 21 Jun 2008 23:53:59 GMT

Πολύ καλή δουλειά και χρήσιμο. Μπράβο!

Απ: Function ΟΛΟΓΡΑΦΩΣ

Παναγιώτης Καναβός — Thu, 29 May 2008 10:30:17 GMT

Νομίζω ότι ο κώδικας θέλει λίγη προσοχή παραπάνω. Καταρχήν, καλό είναι να χρησιμοποιείς τον τύπο decimal και όχι τον double όταν χειρίζεσαι χρηματικά ποσά, γιατί ο double είναι κινητής υποδιαστολής και μπορεί να χάσει δεκαδικά λόγω στρογγυλοποίησης.

Επίσης, οι μεταβλητές καλό είναι να ορίζονται στο σημείο ακριβώς όπου χρησιμοποιούνται και όχι στην αρχή της μεθόδου. Έτσι αποφεύγεις μία μεταβλητή να έχει μεγαλύτερο scope από αυτό που χρειάζεται. Στην περίπτωση του κώδικα σου για παράδειγμα, η tmpStr έχει scope σε ολόκληρη την μέθοδο, αν και χρησιμοποιείται μόνο σε δύο ανεξάρτητα σημεία. Ουσιαστικά έχεις μία global tmpStr ενώ χρειάζεσαι μόνο δύο τοπικά temporary strings.
Επίσης, κάνοντας string concatenation δημιουργείς συνέχεια temporary strings τα οποία μετά είναι άχρηστα και πρέπει να καθαριστούν από τον garbage collector. Καλύτερα θα ήταν να χρησιμοποιήσεις ένα StringBuilder και την String.Format() για να αποφύγεις τα temporary strings.
Τέλος, μπορείς να αποφύγεις τις διαιρέσεις και το recursion μετατρέποντας το money σε string και παίροντας ένα-ένα τους αριθμούς.

Απ: Function ΟΛΟΓΡΑΦΩΣ

dva — Thu, 29 May 2008 09:29:49 GMT

Μετά από 1 χρόνο περίπου είπα κι εγώ να χρησιμοποιήσω τον κώδικα του panos_sniper. Οπότε έριξα μια μετάφραση σε C# (αλλά μάλλον θα πέσει και 2η μετάφραση για να γίνει Win32 dll), έριξα και... "τρία κιλά κώδικα" ...για να εμφανίζει το ΜΗΔΕΝ ΕΥΡΩ, να παίρνει αρνητικά ποσά, να μην εμφανίζει νομίσματα (ευρώ και λεπτά, παρά μόνο το ποσό), λίγο debugging (για τα μάτια του κόσμου) γιατί με κάποια ποσά (π.χ. το 1,101,101.10 του αξέχαστου Χόρν) δεν τα πήγαινε πολύ καλά, και το τελικό αποτέλεσμα είναι το εξής:

System.Diagnostics.Debug.Print(Money.GetVerbal(1101101.10));
ΕΝΑ ΕΚΑΤΟΜΜΥΡΙΟ ΕΚΑΤΟΝ ΜΙΑ ΧΙΛΙΑΔΕΣ ΕΚΑΤΟΝ ΕΝΑ ΕΥΡΩ ΚΑΙ ΔΕΚΑ ΛΕΠΤΑ

System.Diagnostics.Debug.Print(Money.GetVerbal(1101101101100.11));
ΕΝΑ ΤΡΙΣΕΚΑΤΟΜΜΥΡΙΟ ΕΚΑΤΟΝ ΕΝΑ ΔΙΣΕΚΑΤΟΜΜΥΡΙΑ ΕΚΑΤΟΝ ΕΝΑ ΕΚΑΤΟΜΜΥΡΙΑ ΕΚΑΤΟΝ ΜΙΑ ΧΙΛΙΑΔΕΣ ΕΚΑΤΟ ΕΥΡΩ ΚΑΙ ΕΝΤΕΚΑ ΛΕΠΤΑ

System.Diagnostics.Debug.Print(Money.GetVerbal(0));
ΜΗΔΕΝ ΕΥΡΩ

System.Diagnostics.Debug.Print(Money.GetVerbal(-987654321.23, true, false)); //Να μην βγάλει ευρώ και λεπτά
MEION ΕΝΝΙΑΚΟΣΙΑ ΟΓΔΟΝΤΑ ΕΠΤΑ ΕΚΑΤΟΜΜΥΡΙΑ ΕΞΑΚΟΣΙΕΣ ΠΕΝΗΝΤΑ ΤΕΣΣΕΡΙΣ ΧΙΛΙΑΔΕΣ ΤΡΙΑΚΟΣΙΑ ΕΙΚΟΣΙ ΕΝΑ ΚΑΙ ΕΙΚΟΣΙ ΤΡΙΑ

public class Money { private static string[] mF = { "", "ΜΙΑ ", "", "ΤΡΕΙΣ ", "ΤΕΣΣΕΡΙΣ " }; private static string[] m = { "", "ΕΝΑ ", "ΔΥΟ ", "ΤΡΙΑ ", "ΤΕΣΣΕΡΑ ", "ΠΕΝΤΕ ", "ΕΞΙ ", "ΕΠΤΑ ", "ΟΚΤΩ ", "ΕΝΝΕΑ " }; private static string[] d1 = { "ΔΕΚΑ ", "ΕΝΤΕΚΑ ", "ΔΩΔΕΚΑ " }; //Διαφοροποίησεις των 11,12 ως προς τα 13, 14, 15, ... private static string[] d = { "", "ΔΕΚΑ", "ΕΙΚΟΣΙ ", "ΤΡΙΑΝΤΑ ", "ΣΑΡΑΝΤΑ ", "ΠΕΝΗΝΤΑ ", "ΕΞΗΝΤΑ ", "ΕΒΔΟΜΗΝΤΑ ", "ΟΓΔΟΝΤΑ ", "ΕΝΕΝΗΝΤΑ " }; private static string[] e = { "", "ΕΚΑΤΟ", "ΔΙΑΚΟΣΙ", "ΤΡΙΑΚΟΣΙ", "ΤΕΤΡΑΚΟΣΙ", "ΠΕΝΤΑΚΟΣΙ", "ΕΞΑΚΟΣΙ", "ΕΠΤΑΚΟΣΙ", "ΟΚΤΑΚΟΣΙ", "ΕΝΝΙΑΚΟΣΙ" }; private static string[] idx = { "ΛΕΠΤΑ", "ΕΥΡΩ ", "ΧΙΛΙΑΔΕΣ ", "ΕΚΑΤΟΜΜΥΡΙ", "ΔΙΣ", "ΤΡΙΣ", "ΤΕΤΡΑΚΙΣ ", "ΠΕΝΤΑΚΙΣ " }; public static double Round(double value) { return Round(value, 0); } public static double Round(double value, short precision) { return (double)Math.Round((decimal)value, precision); } public static string GetVerbal(double money) { return GetVerbal(money, true); } public static string GetVerbal(double money, bool showZero) { return GetVerbal(money, showZero, true); } public static string GetVerbal(double money, bool showZero, bool showCurrency) { string tmpStr; string retStr; string str; short index = 0; bool isZero = true; bool isNegative = false; retStr = tmpStr = str = ""; if (money < 0) { money = -money; isNegative = true; } if (money != (long)money) { short value = (short)Round(100 * money - 100 * Math.Floor(money), 0); if (value >= 100) { value -= 100; money += 1.0; } money = (long)money; if (value > 0) { isZero = false; tmpStr = GetValue(value, index, showCurrency); if (money >= 1 && value > 0) { str += "ΚΑΙ "; } str += tmpStr; } } while (money >= 1) { isZero = false; money /= 1000; index += 1; short value = (short)(Round(money - (long)money, 3) * 1000); tmpStr = GetValue(value, index, showCurrency); money = (long)money; tmpStr += str; str = tmpStr; } if (isZero) { if (showZero) { str = "ΜΗΔΕΝ "; if (showCurrency) { str += idx[1]; } } } else { if (isNegative) retStr = "MEION "; } retStr += str; return retStr; } static string GetValue(short money, short index, bool showCurrency) { if (index == 2 && money == 1) { return "ΧΙΛΙΑ "; } string str = ""; int ekatontades = (int)(money / 100); int dekmon = money - ekatontades * 100; int dekades = (int)(dekmon / 10); int monades = dekmon - dekades *10; //EKATONTADES if (ekatontades == 1) { if (dekmon == 0) { str = e[1] + " "; } else { str = e[1] + "Ν "; } } else if (ekatontades > 1) { if (index == 2) { str = e[ekatontades] + "ΕΣ "; } else { str = e[ekatontades] + "Α "; } } //DEKADES switch (dekmon) { case 10: str += d1[monades]; //"ΔΕΚΑ " με κενό στο τέλος break; case 11: str += d1[monades]; monades = 0; break; case 12: str += d1[monades]; monades = 0; break; default: str += d[dekades]; break; } //MONADES if (index == 2 && (monades == 1 || monades == 3 || monades == 4)) { str += mF[monades]; } else { if (dekmon < 10 || dekmon >12) { str += m[monades]; } } if (str.Length > 0 || index == 1) { if (index == 0 && money == 1/*monades == 1 && dekades == 0 && ekatontades == 0*/) { if (showCurrency) { str += "ΛΕΠΤΟ"; } } else { if (index > 1 || showCurrency) { str += idx[index]; if (index > 2) { if (index > 3) { str += idx[3]; } if (money > 1) { str += "Α "; } else { str += "Ο "; } } } } } return str; } }

Απ: Function ΟΛΟΓΡΑΦΩΣ

Panos Kousidis — Tue, 19 Jun 2007 16:52:35 GMT

Α, οπότε αλλάζοντας τον τύπο της function από double σε decimal δεν έχω πρόβλημα. Thanks!

Απ: Function ΟΛΟΓΡΑΦΩΣ

Νατάσα Μανουσοπούλου — Tue, 19 Jun 2007 02:28:26 GMT

panos_sniper:

'Για έναν περίεργο λόγο χρειάζεται το Math.Round γιατί οι πράξεις
'δε γίνονται σωστά. Δηλ. 2.15-2.0=0.14999999.Μπορεί να μου το εξηγήσει κάποιος;
'Είναι feature της VB μάλλον...

Στην πραγματικότητα είναι "feature" της αναπαράστασης του double κατά το πρότυπο IEEE 954 με κινητή υποδιαστολή. Στην παράσταση αυτή, οι δεκαδικοί αριθμοί δεν παριστάνονται με ακρίβεια, και μάλιστα η ακρίβειά τους μειώνεται όσο αυξάνεται το (απόλυτο) μέγεθός τους. Αυτό έχει το μειονέκτημα που παρατήρησες, αλλά την ίδια στιγμή δίνει τη δυνατότητα της παράστασης πολύ μικρών κατ' απόλυτη τιμή αριθμών και πολύ μεγάλων χρησιμοποιώντας σταθερό αριθμό bits.
Όπου απαιτείται ακρίβεια στις δεκαδικές πράξεις (π.χ. αξιακά δεδομένα) χρησιμοποιούνται τύποι σαν τον decimal που έχουν δεκαδική ακρίβεια.

Απ: Function ΟΛΟΓΡΑΦΩΣ

Panos Kousidis — Mon, 18 Jun 2007 23:26:46 GMT

Ιδού και η δική μου υλοποίηση σε vb.net που χρησιμοποιεί λιγότερη μνήμη, είναι μικρότερη και φτάνει στο άπειρο (καλά μη τρελαθούμε κι όλας, μέχρι εκεί που φθάνει ο double όπως είναι τώρα, αλλά με πολύ μικρή τροποποίηση μπορεί να φθάσει περισσότερο, το μόνο που έχεις να κάνεις είναι να προσθέσεις στο idx() τις κατάλληλες λέξεις μετά το πεντάκις ).

Public Class Money
    Shared ReadOnly m() As String = {"", "ΕΝΑ ", "ΔΥΟ ", "ΤΡΙΑ ", "ΤΕΣΣΕΡΑ ", "ΠΕΝΤΕ ", "ΕΞΙ ", "ΕΠΤΑ ", "ΟΚΤΩ ", "ΕΝΝΕΑ "}
    Shared ReadOnly mF() As String = {"", "ΜΙΑ ", "", "ΤΡΕΙΣ ", "ΤΕΣΣΕΡΙΣ "}
    Shared ReadOnly d() As String = {"", "ΔΕΚΑ", "ΕΙΚΟΣΙ ", "ΤΡΙΑΝΤΑ ", "ΣΑΡΑΝΤΑ ", "ΠΕΝΗΝΤΑ ", "ΕΞΗΝΤΑ ", "ΕΒΔΟΜΗΝΤΑ ", "ΟΓΔΟΝΤΑ ", "ΕΝΕΝΗΝΤΑ "}
    Shared ReadOnly e() As String = {"", "ΕΚΑΤΟ", "ΔΙΑΚΟΣΙ", "ΤΡΙΑΚΟΣΙ", "ΤΕΤΡΑΚΟΣΙ", "ΠΕΝΤΑΚΟΣΙ", "ΕΞΑΚΟΣΙ", "ΕΠΤΑΚΟΣΙ", "ΟΚΤΑΚΟΣΙ", "ΕΝΝΙΑΚΟΣΙ"}
    Shared ReadOnly idx() As String = {"ΛΕΠΤΑ", "ΕΥΡΩ ", "ΧΙΛΙΑΔΕΣ ", "ΕΚΑΤΟΜΜΥΡΙA ", "ΔΙΣ ", "ΤΡΙΣ ", "ΤΕΤΡΑΚΙΣ ", "ΠΕΝΤΑΚΙΣ "}

    Public Shared Function GetVerbalMoney(ByVal money As Double) As String
        Dim str As String = ""
        Dim index As Byte = 0
        If Not money = Int(money) Then str = "ΚΑΙ " & GetValue(Int(Math.Round(money - Int(money), 2) * 100, index)
            Do While money >= 1
                money /= 1000
                index += 1
                str = GetValue(Int(Math.Round(money - Int(money), 3) * 1000), index) & str
                'Για έναν περίεργο λόγο χρειάζεται το Math.Round γιατί οι πράξεις
                'δε γίνονται σωστά. Δηλ. 2.15-2.0=0.14999999.Μπορεί να μου το εξηγήσει κάποιος;
                'Είναι feature της VB μάλλον...
            Loop
        Return str
    End Function

    Private Shared Function GetValue(ByVal money As Short, ByVal index As Byte)
        Dim str As String = ""
        Dim ekatontades As Byte = Int(money / 100)
        Dim dekades As Byte = Int((money - ekatontades * 100) / 10)
        Dim monades As Byte = money - ekatontades * 100 - dekades * 10

        'EKATONTADES
        If Not ekatontades = 0 Then
            If ekatontades = 1 Then
                If dekades = 0 AndAlso monades = 0 Then
                    str = e(1) & " "
                Else
                    str = e(1) & "Ν "
                End If
            Else
                If index = 2 Then str = e(ekatontades) & "ΕΣ " Else str = e(ekatontades) & "Α "
            End If
        End If

        'DEKADES
        If dekades = 1 Then
            Select Case monades
                Case 0 : str += " "
                Case 1 : str += "ΕΝΤΕΚΑ "
                Case 2 : str += "ΔΩΔΕΚΑ "
                Case Else : str += d(dekades)
            End Select
        Else
            str += d(dekades)
        End If

        'MONADES
        If index = 2 AndAlso monades = 1 Then
            str += "ΧΙΛΙΑ "
        ElseIf index = 3 AndAlso monades = 1 Then
            str += "ΕΝΑ ΕΚΑΤΟΜΜΥΡΙΟ "
        Else
            If index = 2 AndAlso (monades = 1 Or monades = 3 Or monades = 4) Then
                str += mF(monades)
            Else
                If Not (dekades = 1 And (monades = 1 Or monades = 2)) Then
                    str += m(monades)
                End If
            End If
            If str <> "" Or index = 1 Then str += idx(index)
        End If
        Return str
    End Function
End Class

Την έχω φτιάξει να είναι αυτόνομη κλάση με μία Public Shared Function και δουλεύει πολύ απλά:
πχ. MsgBox(Money.GetVerbalMoney(123456789))

Απ: Re: Function ΟΛΟΓΡΑΦΩΣ

YiannisF — Thu, 24 May 2007 20:10:12 GMT

Για όποιον ενδιαφέρεται, ακολουθεί έκδοση σε C# της εξαιρετικής αυτής μεθόδου του Χρήστου Γεωργακόπουλου.

public static string GetMoneyVerbage(decimal Amount)
{
try
{
string PrefixPart = string.Empty;
string CentsPart = string.Empty;
string CurrencyPart = string.Empty;
string SmallPart = string.Empty;
string ThousandsPart = string.Empty;
string MillionsPart = string.Empty;
string BillionsPart = string.Empty;
int Cents;
int Small;
int Thousands;
int Millions;
int Billions;
int SmallH;
int ThousandsH;
int MillionsH;
int BillionsH;
int SmallN;
int ThousandsN;
int MillionsN;
int BillionsN;
string[] TN = new string[100];
string[] TF = new string[100];
string[] HN = new string[10];
string[] HF = new string[10];
HN[0] = "";
HN[1] = "εκατόν";
HN[2] = "διακόσια";
HN[3] = "τριακόσια";
HN[4] = "τετρακόσια";
HN[5] = "πεντακόσια";
HN = "εξακόσια";
HN[7] = "επτακόσια";
HN = "οκτακόσια";
HN[9] = "εννιακόσια";
HF[0] = "";
HF[1] = "εκατόν";
HF[2] = "διακόσιες";
HF[3] = "τριακόσιες";
HF[4] = "τετρακόσιες";
HF[5] = "πεντακόσιες";
HF = "εξακόσιες";
HF[7] = "επτακόσιες";
HF = "οκτακόσιες";
HF[9] = "εννιακόσιες";
TN[0] = "";
TN[1] = "ένα";
TN[2] = "δύο";
TN[3] = "τρία";
TN[4] = "τέσσερα";
TN[5] = "πέντε";
TN = "έξι";
TN[7] = "επτά";
TN = "οκτώ";
TN[9] = "εννέα";
TN[10] = "δέκα";
TN[11] = "έντεκα";
TN[12] = "δώδεκα";
TN[13] = "δεκατρία";
TN[14] = "δεκατέσσερα";
TN[15] = "δεκαπέντε";
TN[16] = "δεκαέξι";
TN[17] = "δεκαεπτά";
TN[18] = "δεκαοκτώ";
TN[19] = "δεκαεννέα";
TN[20] = "είκοσι";
TN[21] = "εικοσιένα";
TN[22] = "εικοσιδύο";
TN[23] = "εικοσιτρία";
TN[24] = "εικοσιτέσσερα";
TN[25] = "εικοσιπέντε";
TN[26] = "εικοσιέξι";
TN[27] = "εικοσιεπτά";
TN[28] = "εικοσιοκτώ";
TN[29] = "εικοσιεννέα";
TN[30] = "τριάντα";
TN[31] = "τριανταένα";
TN[32] = "τριανταδύο";
TN[33] = "τριαντατρία";
TN[34] = "τριαντατέσσερα";
TN[35] = "τριανταπέντε";
TN[36] = "τριανταέξι";
TN[37] = "τριανταεπτά";
TN[38] = "τριανταοκτώ";
TN[39] = "τριανταεννέα";
TN[40] = "σαράντα";
TN[41] = "σαρανταένα";
TN[42] = "σαρανταδύο";
TN[43] = "σαραντατρία";
TN[44] = "σαραντατέσσερα";
TN[45] = "σαρανταπέντε";
TN[46] = "σαρανταέξι";
TN[47] = "σαρανταεπτά";
TN[48] = "σαρανταοκτώ";
TN[49] = "σαρανταεννέα";
TN[50] = "πενήντα";
TN[51] = "πενηνταένα";
TN[52] = "πενηνταδύο";
TN[53] = "πενηντατρία";
TN[54] = "πενηντατέσσερα";
TN[55] = "πενηνταπέντε";
TN[56] = "πενηνταέξι";
TN[57] = "πενηνταεπτά";
TN[58] = "πενηνταοκτώ";
TN[59] = "πενηνταεννέα";
TN[60] = "εξήντα";
TN[61] = "εξηνταένα";
TN[62] = "εξηνταδύο";
TN[63] = "εξηντατρία";
TN[64] = "εξηντατέσσερα";
TN[65] = "εξηνταπέντε";
TN[66] = "εξηνταέξι";
TN[67] = "εξηνταεπτά";
TN[68] = "εξηνταοκτώ";
TN[69] = "εξηνταεννέα";
TN[70] = "εβδομήντα";
TN[71] = "εβδομηνταένα";
TN[72] = "εβδομηνταδύο";
TN[73] = "εβδομηντατρία";
TN[74] = "εβδομηντατέσσερα";
TN[75] = "εβδομηνταπέντε";
TN[76] = "εβδομηνταέξι";
TN[77] = "εβδομηνταεπτά";
TN[78] = "εβδομηνταοκτώ";
TN[79] = "εβδομηνταεννέα";
TN[80] = "ογδόντα";
TN[81] = "ογδονταένα";
TN[82] = "ογδονταδύο";
TN[83] = "ογδοντατρία";
TN[84] = "ογδοντατέσσερα";
TN[85] = "ογδονταπέντε";
TN[86] = "ογδονταέξι";
TN[87] = "ογδονταεπτά";
TN[88] = "ογδονταοκτώ";
TN[89] = "ογδονταεννέα";
TN[90] = "εννενήντα";
TN[91] = "ενεννηνταένα";
TN[92] = "ενεννηνταδύο";
TN[93] = "ενεννηντατρία";
TN[94] = "ενεννηντατέσσερα";
TN[95] = "ενεννηνταπέντε";
TN[96] = "ενεννηνταέξι";
TN[97] = "ενεννηνταεπτά";
TN[98] = "ενεννηνταοκτώ";
TN[99] = "ενεννηνταεννέα";
TF[0] = "";
TF[1] = "μία";
TF[2] = "δύο";
TF[3] = "τρείς";
TF[4] = "τέσσερις";
TF[5] = "πέντε";
TF = "έξι";
TF[7] = "επτά";
TF = "οκτώ";
TF[9] = "εννέα";
TF[10] = "δέκα";
TF[11] = "έντεκα";
TF[12] = "δώδεκα";
TF[13] = "δεκατρείς";
TF[14] = "δεκατέσσερις";
TF[15] = "δεκαπέντε";
TF[16] = "δεκαέξι";
TF[17] = "δεκαεπτά";
TF[18] = "δεκαοκτώ";
TF[19] = "δεκαεννέα";
TF[20] = "είκοσι";
TF[21] = "εικοσιμία";
TF[22] = "εικοσιδύο";
TF[23] = "εικοσιτρείς";
TF[24] = "εικοσιτέσσερις";
TF[25] = "εικοσιπέντε";
TF[26] = "εικοσιέξι";
TF[27] = "εικοσιεπτά";
TF[28] = "εικοσιοκτώ";
TF[29] = "εικοσιεννέα";
TF[30] = "τριάντα";
TF[31] = "τριανταμία";
TF[32] = "τριανταδύο";
TF[33] = "τριαντατρείς";
TF[34] = "τριαντατέσσερις";
TF[35] = "τριανταπέντε";
TF[36] = "τριανταέξι";
TF[37] = "τριανταεπτά";
TF[38] = "τριανταοκτώ";
TF[39] = "τριανταεννέα";
TF[40] = "σαράντα";
TF[41] = "σαρανταμία";
TF[42] = "σαρανταδύο";
TF[43] = "σαραντατρείς";
TF[44] = "σαραντατέσσερις";
TF[45] = "σαρανταπέντε";
TF[46] = "σαρανταέξι";
TF[47] = "σαρανταεπτά";
TF[48] = "σαρανταοκτώ";
TF[49] = "σαρανταεννέα";
TF[50] = "πενήντα";
TF[51] = "πενηνταμία";
TF[52] = "πενηνταδύο";
TF[53] = "πενηντατρείς";
TF[54] = "πενηντατέσσερις";
TF[55] = "πενηνταπέντε";
TF[56] = "πενηνταέξι";
TF[57] = "πενηνταεπτά";
TF[58] = "πενηνταοκτώ";
TF[59] = "πενηνταεννέα";
TF[60] = "εξήντα";
TF[61] = "εξηνταμία";
TF[62] = "εξηνταδύο";
TF[63] = "εξηντατρείς";
TF[64] = "εξηντατέσσερις";
TF[65] = "εξηνταπέντε";
TF[66] = "εξηνταέξι";
TF[67] = "εξηνταεπτά";
TF[68] = "εξηνταοκτώ";
TF[69] = "εξηνταεννέα";
TF[70] = "εβδομήντα";
TF[71] = "εβδομηνταμία";
TF[72] = "εβδομηνταδύο";
TF[73] = "εβδομηντατρείς";
TF[74] = "εβδομηντατέσσερις";
TF[75] = "εβδομηνταπέντε";
TF[76] = "εβδομηνταέξι";
TF[77] = "εβδομηνταεπτά";
TF[78] = "εβδομηνταοκτώ";
TF[79] = "εβδομηνταεννέα";
TF[80] = "ογδόντα";
TF[81] = "ογδονταμία";
TF[82] = "ογδονταδύο";
TF[83] = "ογδοντατρείς";
TF[84] = "ογδοντατέσσερις";
TF[85] = "ογδονταπέντε";
TF[86] = "ογδονταέξι";
TF[87] = "ογδονταεπτά";
TF[88] = "ογδονταοκτώ";
TF[89] = "ογδονταεννέα";
TF[90] = "εννενήντα";
TF[91] = "ενεννηνταμία";
TF[92] = "ενεννηνταδύο";
TF[93] = "ενεννηντατρείς";
TF[94] = "ενεννηντατέσσερις";
TF[95] = "ενεννηνταπέντε";
TF[96] = "ενεννηνταέξι";
TF[97] = "ενεννηνταεπτά";
TF[98] = "ενεννηνταοκτώ";
TF[99] = "ενεννηνταεννέα";
if (Amount == 0)
{
return "μηδέν ευρώ";
}
if (Amount < 0)
{
Amount = -Amount;
PrefixPart = "μείον ";
}
Cents = Convert.ToInt32(Math.Round(100 * (Amount - Convert.ToInt32(Math.Floor(Convert.ToDouble(Amount)))), 0));
if (Cents > 0)
{
if (Amount >= 1)
{
if (Cents == 1)
{
CentsPart = "και ένα λεπτό";
}
else
{
CentsPart = "και " + TN[Cents] + " λεπτά";
}
}
else
{
if (Cents == 1)
{
CentsPart = "ένα λεπτό";
}
else
{
CentsPart = TN[Cents] + " λεπτά";
}
}
}
if (Amount >= 1)
{
CurrencyPart = " ευρώ";
}
Billions = Convert.ToInt32(Math.Floor(Convert.ToDouble(Convert.ToDouble(Amount) / (Math.Pow(10, 9)))));
Millions = Convert.ToInt32(Math.Floor(Convert.ToDouble(Convert.ToInt32(Convert.ToDouble(Amount) - Billions * (Math.Pow(10, 9))) / (Math.Pow(10, 6)))));
Thousands = Convert.ToInt32(Math.Floor(Convert.ToDouble(Convert.ToInt32(Convert.ToDouble(Amount) - Billions * (Math.Pow(10, 9)) - Millions * (Math.Pow(10, 6))) / (Math.Pow(10, 3)))));
Small = Convert.ToInt32(Math.Floor(Convert.ToDouble(Convert.ToDouble(Amount) - Billions * (Math.Pow(10, 9)) - Millions * (Math.Pow(10, 6)) - Thousands * (Math.Pow(10, 3)))));
BillionsH = Convert.ToInt32(Billions / 100);
MillionsH = Convert.ToInt32(Millions / 100);
ThousandsH = Convert.ToInt32(Thousands / 100);
SmallH = Convert.ToInt32(Small / 100);
SmallN = Small - SmallH * 100;
ThousandsN = Thousands - ThousandsH * 100;
MillionsN = Millions - MillionsH * 100;
BillionsN = Billions - BillionsH * 100;
if (Small == 100)
{
SmallPart = "εκατό";
}
else
{
SmallPart = HN[SmallH] + " " + TN[SmallN];
}
if (Thousands == 1)
{
ThousandsPart = " χίλια";
}
else
{
if (Thousands == 100)
{
ThousandsPart = "εκατό χιλιάδες";
}
else
{
if (Thousands > 0)
{
ThousandsPart = HF[ThousandsH] + " " + TF[ThousandsN] + " χιλιάδες";
}
}
}
if (Millions == 1)
{
MillionsPart = "ένα εκατομμύριο";
}
else
{
if (Millions == 100)
{
MillionsPart = "εκατό εκατομύρια";
}
else
{
if (Millions > 0)
{
MillionsPart = HN[MillionsH] + " " + TN[MillionsN] + " εκατομμύρια";
}
}
}
if (Billions == 1)
{
BillionsPart = "ένα δισεκατομμύριο";
}
else
{
if (Billions == 100)
{
BillionsPart = "εκατό δισεκατομμύρια";
}
else
{
if (Billions > 0)
{
BillionsPart = HN[BillionsH] + " " + TN[BillionsN] + " δισεκατομμύρια";
}
}
}
string verbage = (PrefixPart + BillionsPart + " " + MillionsPart + " " + ThousandsPart + " " + SmallPart + CurrencyPart + " " + CentsPart);
return verbage.Trim();
}
catch (Exception exc)
{
return Amount.ToString().Trim();
}
}

Re: Function ΟΛΟΓΡΑΦΩΣ

Chris — Wed, 18 May 2005 19:23:49 GMT

Μάστορα είσαι πολύ ωραίος!
Ευχαριστώ πάρα πολύ!