Home 
Search 
Today's Posts 
#1




EXCEL:NUMBER TO GREEK WORDS
hi
Does anybody know how to convert numbers in greek text? 
#2




The problem is that in greek numbers hundreds follow the rule of tens, but without distiction. I've tried to solve this but couldn't work it out. Also one thousand does not follow the rule of two thousand, three thousand etc. If anyone can help me please reply Thanks vag PS below is the code from microsoft,modified by me. works until 100 then... Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim ευρώ, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " χιλιάδες " Place(3) = " εκατομύρια " Place(4) = " δισεκατομύρια " Place(5) = " τρισεκατομύρια " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace  1)) End If Count = 1 Do While MyNumber < "" Temp = GetHundreds If Temp < "" Then ευρώ = Temp & Place(Count) & ευρώ If Len(MyNumber) 3 Then MyNumber = Left(MyNumber, Len(MyNumber)  3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case ευρώ Case "" ευρώ = "" Case "One" ευρώ = "ένα ευρώ" Case Else ευρώ = ευρώ & " ευρώ" End Select Select Case Cents Case "" Cents = "" Case "One" Cents = " and ένα λεπτό" Case Else Cents = " and " & Cents & " λεπτά" End Select SpellNumber = ευρώ & Cents End Function ' Converts a number from 100999 into text Function GetHundreds(HundredsText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(HundredsText, 2)) Then Select Case Val(HundredsText) Case 100: Result = "εκατό" Case 200: Result = "διακόσια" Case 300: Result = "τριακόσια" Case 400: Result = "τετρακόσια" Case 500: Result = "πεντακόσια" Case 600: Result = "εξακόσια" Case 700: Result = "επτακόσια" Case 800: Result = "οκτακόσια" Case 900: Result = "εννιακόσια" Case Else End Select Result = Result & GetTens & GetDigit _ End If GetHundreds = Result End Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 1019... Select Case Val(TensText) Case 10: Result = "δέκα" Case 11: Result = "έντεκα" Case 12: Result = "δώδεκα" Case 13: Result = "δεκατρία" Case 14: Result = "δεκατέσσερα" Case 15: Result = "δεκαπέντε" Case 16: Result = "δεκαέξι" Case 17: Result = "δεκαεπτά" Case 18: Result = "δεκαοκτώ" Case 19: Result = "δεκαεννέα" Case Else End Select Else ' If value between 2099... Select Case Val(Left(TensText, 1)) Case 2: Result = "είκοσι " Case 3: Result = "τριάντα " Case 4: Result = "σαράντα " Case 5: Result = "πενήντα " Case 6: Result = "εξήντα " Case 7: Result = "εβδομήντα " Case 8: Result = "ογδόντα " Case 9: Result = "ενενήντα " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "ένα" Case 2: GetDigit = "δύο" Case 3: GetDigit = "τρία" Case 4: GetDigit = "τέσσερα" Case 5: GetDigit = "πέντε" Case 6: GetDigit = "έξι" Case 7: GetDigit = "επτά" Case 8: GetDigit = "οκτώ" Case 9: GetDigit = "εννιά" Case Else: GetDigit = "" End Select End Function  vag  vag's Profile: http://www.excelforum.com/member.php...o&userid=24328 View this thread: http://www.excelforum.com/showthread...hreadid=379340 
Reply 
Thread Tools  Search this Thread 
Display Modes  


Similar Threads  
Thread  Forum  
Spell Checking  Special Words Not Picked Up by Excel  Excel Discussion (Misc queries)  
How do you sort words in Excel by the number of letters in a word  New Users to Excel  
how to change numbers into words,  Excel Discussion (Misc queries)  
Creating a Microsoft Words document from an existing Excel spreads  New Users to Excel  
Words in Excel Cells  Excel Worksheet Functions 