Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

20 Nisan 2005 Çarşamba

Converting Numbers to Text





'UserForm1

'AddTools on UserForm1: MultiPage1, Label1, TextBox1, Label2, TextBox2, CommandButton1, CommandButton2, Label3, Label4, Label5, Label6, ListBox1, Image1, Label7
Option Explicit
Dim Sayı As String
Dim Uzunluk As Double, Durum As Double
Dim X As Single, Y As Single
Dim Bakılan As Variant

Private Sub UserForm_Initialize()
On Error Resume Next
Me.Caption = "[PBİD®] Converting Numbers to Text..."
Application.Visible = False
MultiPage1.Value = 0
Call GrupAdlarıTesbiti
Call BasamakAdlarıTesbiti
With ListBox1
.ColumnCount = 5
.ColumnWidths = "36;36;36;36;142"
.Width = 298
.Height = 171.75
For Y = 1 To 150
ListBox1.AddItem Y
ListBox1.List((Y - 1), 1) = (Y - 1) * 3 + 1
ListBox1.List((Y - 1), 2) = (Y - 1) * 3 + 2
ListBox1.List((Y - 1), 3) = (Y - 1) * 3 + 3
ListBox1.List((Y - 1), 4) = GrupAdları(Y, 2)
Next Y
End With
TextBox1.MultiLine = True
TextBox1.ScrollBars = fmScrollBarsVertical
TextBox1.ControlTipText = "Lütfen kuruşlu bölmeyi virgül "","" ile ayırınız!"
TextBox2.MultiLine = True
TextBox2.ScrollBars = fmScrollBarsVertical
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
TextBox2.Text = ""
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
On Error Resume Next
TextBox2.Text = ""
End Sub
Private Sub CommandButton1_Click()
On Error Resume Next
Call HarfAra
If Durum = 0 Then
Sayı = TextBox1.Text
TextBox2.Text = ""
TextBox2.Value = Dönüştür(Sayı, TextBox1, TextBox2)
Else
MsgBox "Lütfen geçerli bir rakamı sayı kutusuna yazınız." & vbCrLf & vbCrLf & "Mustafa ULUSARAÇ 01ulusarac@superonline.com", vbInformation, "[PBİD®] Lütfen Dikkat!!!"
TextBox1.Value = ""
TextBox2.Text = ""
End If
TextBox1.SetFocus
TextBox2.SetFocus
End Sub
Private Sub CommandButton2_Click()
On Error Resume Next
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Value = "111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
TextBox2.Value = Dönüştür(Sayı, TextBox1, TextBox2)
TextBox1.SetFocus
TextBox2.SetFocus
End Sub
Sub HarfAra()
On Error Resume Next
Uzunluk = vba.Len(TextBox1.Text)
If Uzunluk > 0 Then
Durum = 0
For X = 1 To Uzunluk
Bakılan = vba.Right(vba.Left(TextBox1.Text, X), 1)
If Bakılan = "," Then Bakılan = 0
If vba.IsNumeric(Bakılan) = False Then
Durum = 1
Exit For
End If
Next X
End If
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
On Error Resume Next
Application.Visible = True
End Sub

'Module1

Option Explicit
Public i As Single, ii As Single
Public No1 As Double, No2 As Double, No3 As Double
Public GrupAdları(1 To 150, 1 To 2)
Public BasamakAdları(1 To 450, 0 To 9)

Public Function Dönüştür(ByVal VERİ As String, ByVal KAYNAK As Object, ByVal HEDEF As Object)
On Error GoTo Hata:
Dim ES As Double
' Yazıya çevrilecek rakamın Eleman Sayısı
Dim VBS As Double 'Virgül Basamak Sayısı
Dim VÖES As Double 'Virgülden Önceki Eleman Sayısı
Dim VÖS As String
'Virgülden Önceki Sayı
Dim VSES As Double
'Virgülden Sonraki Eleman Sayısı
Dim VSS As String
'Virgülden Sonraki Sayı
Dim BRS As Double
'Bakılan Rakam Sırası
Dim BRD As Double
'Bakılan Rakam Değeri
Dim BÖBRS As Double 'Bir Önceki Bakılan Rakam Sırası
Dim BÖBRD As Double
'Bir Önceki Bakılan Rakam Değeri
Dim İÖBRS As Double 'İki Önceki Bakılan Rakam Sırası
Dim İÖBRD As Double
'İki Önceki Bakılan Rakam Değeri
Dim PAYDA As String
'Virgülden sonraki sayıların payda değeridir
No1 = 0: No2 = 0: No3 = 0: ES = 0: VBS = 0: VÖES = 0: VÖS = "": VSES = 0: VSS = "": BRD = 0: BRS = 0: BÖBRS = 0: BÖBRD = 0: İÖBRS = 0: İÖBRD = 0: HEDEF.Value = ""
ES = vba.Len(KAYNAK.Value)
If (ES > 0) Then
For i = 1 To ES
If vba.Right(vba.Left(KAYNAK, i), 1) = "," Then
VBS = i
VÖES = (VBS - 1)
VÖS = vba.Left(KAYNAK, VÖES)
VSES = ES - VBS
VSS = vba.Right(KAYNAK, VSES)
Exit For
End If
Next i
If VBS = 0 Then
'Virgül Yoksa
VÖES = ES
VÖS = vba.Left(KAYNAK, VÖES)
For i = 1 To VÖES
BRS = i
BRD = vba.Right(vba.Left(VÖS, BRS), 1)
If (VÖES - i + 1) = 4 And BRD = 1 And VÖES = 4 Then
HEDEF = HEDEF
Else
HEDEF = HEDEF & BasamakAdları((VÖES - BRS + 1), BRD)
End If
For ii = 1 To 150
If (VÖES - i + 1) = GrupAdları(ii, 1) Then
BÖBRS = 0: BÖBRD = 0: İÖBRS = 0: İÖBRD = 0
BÖBRS = i - 1: If (BÖBRS > 0) Then BÖBRD = vba.Right(vba.Left(VÖS, BÖBRS), 1)
İÖBRS = i - 2: If (İÖBRS > 0) Then İÖBRD = vba.Right(vba.Left(VÖS, İÖBRS), 1)
If (BRD > 0) Or (BÖBRD > 0) Or (İÖBRD > 0) Then
HEDEF = HEDEF & GrupAdları(ii, 2)
Else
HEDEF = HEDEF
End If
End If
Next ii
Next i
Else 'Virgül Varsa
For i = 1 To VÖES
BRS = i
BRD = vba.Right(vba.Left(VÖS, BRS), 1)
If (VÖES - i + 1) = 4 And BRD = 1 And VÖES = 4 Then
HEDEF = HEDEF
Else
HEDEF = HEDEF & BasamakAdları((VÖES - BRS + 1), BRD)
End If
For ii = 1 To 150
If (VÖES - i + 1) = GrupAdları(ii, 1) Then
BÖBRS = 0: BÖBRD = 0: İÖBRS = 0: İÖBRD = 0
BÖBRS = i - 1: If (BÖBRS > 0) Then BÖBRD = vba.Right(vba.Left(VÖS, BÖBRS), 1)
İÖBRS = i - 2: If (İÖBRS > 0) Then İÖBRD = vba.Right(vba.Left(VÖS, İÖBRS), 1)
If (BRD > 0) Or (BÖBRD > 0) Or (İÖBRD > 0) Then
HEDEF = HEDEF & GrupAdları(ii, 2)
Else
HEDEF = HEDEF
End If
End If
Next ii
Next i
HEDEF = HEDEF & "VİRGÜL "
PAYDA = 1 & Application.WorksheetFunction.Rept("0", VSES)
For i = 1 To (VSES + 1)
BRS = i
BRD = vba.Right(vba.Left(PAYDA, BRS), 1)
If (VSES - i + 1 + 1) = 4 And BRD = 1 And (VSES + 1) = 4 Then
HEDEF = HEDEF

Else
HEDEF = HEDEF & BasamakAdları((VSES + 1 - BRS + 1), BRD)
End If
For ii = 1 To 150
If (VSES - i + 1 + 1) = GrupAdları(ii, 1) Then
BÖBRS = 0: BÖBRD = 0: İÖBRS = 0: İÖBRD = 0
BÖBRS = i - 1: If (BÖBRS > 0) Then BÖBRD = vba.Right(vba.Left(PAYDA, BÖBRS), 1)
İÖBRS = i - 2: If (İÖBRS > 0) Then İÖBRD = vba.Right(vba.Left(PAYDA, İÖBRS), 1)
If (BRD > 0) Or (BÖBRD > 0) Or (İÖBRD > 0) Then
HEDEF = HEDEF & GrupAdları(ii, 2)
Else
HEDEF = HEDEF
End If
End If
Next ii
Next i
HEDEF = HEDEF & "de/da "
For i = 1 To VSES
BRS = i
BRD = vba.Right(vba.Left(VSS, BRS), 1)
If (VSES - i + 1) = 4 And BRD = 1 And VSES = 4 Then
HEDEF = HEDEF
Else
HEDEF = HEDEF & BasamakAdları((VSES - BRS + 1), BRD)
End If
For ii = 1 To 150
If (VSES - i + 1) = GrupAdları(ii, 1) Then
BÖBRS = 0: BÖBRD = 0: İÖBRS = 0: İÖBRD = 0
BÖBRS = i - 1: If (BÖBRS > 0) Then BÖBRD = vba.Right(vba.Left(VSS, BÖBRS), 1)
İÖBRS = i - 2: If (İÖBRS > 0) Then İÖBRD = vba.Right(vba.Left(VSS, İÖBRS), 1)
If (BRD > 0) Or (BÖBRD > 0) Or (İÖBRD > 0) Then
HEDEF = HEDEF & GrupAdları(ii, 2)
Else
HEDEF = HEDEF
End If
End If
Next ii
Next i
End If
End If
Dönüştür = HEDEF
Exit Function
Hata:
Dönüştür = ""
End Function
Sub GrupAdlarıTesbiti()
On Error GoTo Hata:
GrupAdları(1, 1) = 1: GrupAdları(1, 2) = ""
GrupAdları(2, 1) = 4: GrupAdları(2, 2) = "Bin "
GrupAdları(3, 1) = 7: GrupAdları(3, 2) = "Milyon "
GrupAdları(4, 1) = 10: GrupAdları(4, 2) = "Milyar "
GrupAdları(5, 1) = 13: GrupAdları(5, 2) = "Trilyon "
GrupAdları(6, 1) = 16: GrupAdları(6, 2) = "Katrilyon "
GrupAdları(7, 1) = 19: GrupAdları(7, 2) = "Kentilyon "
GrupAdları(8, 1) = 22: GrupAdları(8, 2) = "Seksilyon "
GrupAdları(9, 1) = 25: GrupAdları(9, 2) = "Septilyon "
GrupAdları(10, 1) = 28: GrupAdları(10, 2) = "Oktilyon "
GrupAdları(11, 1) = 31: GrupAdları(11, 2) = "Nonilyon "
GrupAdları(12, 1) = 34: GrupAdları(12, 2) = "Desilyon "
GrupAdları(13, 1) = 37: GrupAdları(13, 2) = "Undesilyon "
GrupAdları(14, 1) = 40: GrupAdları(14, 2) = "Dodesilyon "
GrupAdları(15, 1) = 43: GrupAdları(15, 2) = "Tredesilyon "
GrupAdları(16, 1) = 46: GrupAdları(16, 2) = "Kattuordesilyon "
GrupAdları(17, 1) = 49: GrupAdları(17, 2) = "Kendesilyon "
GrupAdları(18, 1) = 52: GrupAdları(18, 2) = "Sexdesilyon "
GrupAdları(19, 1) = 55: GrupAdları(19, 2) = "Septendesilyon "
GrupAdları(20, 1) = 58: GrupAdları(20, 2) = "Oktodesilyon "
GrupAdları(21, 1) = 61: GrupAdları(21, 2) = "Novemdesilyon "
GrupAdları(22, 1) = 64: GrupAdları(22, 2) = "Vigintilyon "
GrupAdları(23, 1) = 67: GrupAdları(23, 2) = "Unvigintilyon "
GrupAdları(24, 1) = 70: GrupAdları(24, 2) = "Dovigintilyon "
GrupAdları(25, 1) = 73: GrupAdları(25, 2) = "Trevigintilyon "
GrupAdları(26, 1) = 76: GrupAdları(26, 2) = "Kattuorvigintilyon "
GrupAdları(27, 1) = 79: GrupAdları(27, 2) = "Kenvigintilyon "
GrupAdları(28, 1) = 82: GrupAdları(28, 2) = "Sexvigintilyon "
GrupAdları(29, 1) = 85: GrupAdları(29, 2) = "Septenvigintilyon "
GrupAdları(30, 1) = 88: GrupAdları(30, 2) = "Oktovigintilyon "
GrupAdları(31, 1) = 91: GrupAdları(31, 2) = "Novemvigintilyon "
GrupAdları(32, 1) = 94: GrupAdları(32, 2) = "Trigintilyon "
GrupAdları(33, 1) = 97: GrupAdları(33, 2) = "Untrigintilyon "
GrupAdları(34, 1) = 100: GrupAdları(34, 2) = "Dotrigintilyon "
GrupAdları(35, 1) = 103: GrupAdları(35, 2) = "Tretrigintilyon "
GrupAdları(36, 1) = 106: GrupAdları(36, 2) = "Kattuortrigintilyon "
GrupAdları(37, 1) = 109: GrupAdları(37, 2) = "Kentrigintilyon "
GrupAdları(38, 1) = 112: GrupAdları(38, 2) = "Sextrigintilyon "
GrupAdları(39, 1) = 115: GrupAdları(39, 2) = "Septentrigintilyon "
GrupAdları(40, 1) = 118: GrupAdları(40, 2) = "Oktotrigintilyon "
GrupAdları(41, 1) = 121: GrupAdları(41, 2) = "Novemtrigintilyon "
GrupAdları(42, 1) = 124: GrupAdları(42, 2) = "Katragintilyon "
GrupAdları(43, 1) = 127: GrupAdları(43, 2) = "Unkatragintilyon "
GrupAdları(44, 1) = 130: GrupAdları(44, 2) = "Dokatragintilyon "
GrupAdları(45, 1) = 133: GrupAdları(45, 2) = "Trekatragintilyon "
GrupAdları(46, 1) = 136: GrupAdları(46, 2) = "Kattuorkatragintilyon "
GrupAdları(47, 1) = 139: GrupAdları(47, 2) = "Kenkatragintilyon "
GrupAdları(48, 1) = 142: GrupAdları(48, 2) = "Sexkatragintilyon "
GrupAdları(49, 1) = 145: GrupAdları(49, 2) = "Septenkatragintilyon "
GrupAdları(50, 1) = 148: GrupAdları(50, 2) = "Oktokatragintilyon "
GrupAdları(51, 1) = 151: GrupAdları(51, 2) = "Novemkatragintilyon "
GrupAdları(52, 1) = 154: GrupAdları(52, 2) = "Kenquagintilyon "
GrupAdları(53, 1) = 157: GrupAdları(53, 2) = "Unkenquagintilyon "
GrupAdları(54, 1) = 160: GrupAdları(54, 2) = "Dokenquagintilyon "
GrupAdları(55, 1) = 163: GrupAdları(55, 2) = "Trekenquagintilyon "
GrupAdları(56, 1) = 166: GrupAdları(56, 2) = "Kattuorkenquagintilyon "
GrupAdları(57, 1) = 169: GrupAdları(57, 2) = "Kenkenquagintilyon "
GrupAdları(58, 1) = 172: GrupAdları(58, 2) = "Sexkenquagintilyon "
GrupAdları(59, 1) = 175: GrupAdları(59, 2) = "Septenkenquagintilyon "
GrupAdları(60, 1) = 178: GrupAdları(60, 2) = "Oktokenquagintilyon "
GrupAdları(61, 1) = 181: GrupAdları(61, 2) = "Novemkenquagintilyon "
GrupAdları(62, 1) = 184: GrupAdları(62, 2) = "Sexagintilyon "
GrupAdları(63, 1) = 187: GrupAdları(63, 2) = "Unsexagintilyon "
GrupAdları(64, 1) = 190: GrupAdları(64, 2) = "Dosexagintilyon "
GrupAdları(65, 1) = 193: GrupAdları(65, 2) = "Tresexagintilyon "
GrupAdları(66, 1) = 196: GrupAdları(66, 2) = "Kattuorsexagintilyon "
GrupAdları(67, 1) = 199: GrupAdları(67, 2) = "Kensexagintilyon "
GrupAdları(68, 1) = 202: GrupAdları(68, 2) = "Sexsexagintilyon "
GrupAdları(69, 1) = 205: GrupAdları(69, 2) = "Septensexagintilyon "
GrupAdları(70, 1) = 208: GrupAdları(70, 2) = "Oktosexagintilyon "
GrupAdları(71, 1) = 211: GrupAdları(71, 2) = "Novemsexagintilyon "
GrupAdları(72, 1) = 214: GrupAdları(72, 2) = "Septuagintilyon "
GrupAdları(73, 1) = 217: GrupAdları(73, 2) = "Unseptuagintilyon "
GrupAdları(74, 1) = 220: GrupAdları(74, 2) = "Doseptuagintilyon "
GrupAdları(75, 1) = 223: GrupAdları(75, 2) = "Treseptuagintilyon "
GrupAdları(76, 1) = 226: GrupAdları(76, 2) = "Kattuorseptuagintilyon "
GrupAdları(77, 1) = 229: GrupAdları(77, 2) = "Kenseptuagintilyon "
GrupAdları(78, 1) = 232: GrupAdları(78, 2) = "Sexseptuagintilyon "
GrupAdları(79, 1) = 235: GrupAdları(79, 2) = "Septenseptuagintilyon "
GrupAdları(80, 1) = 238: GrupAdları(80, 2) = "Oktoseptuagintilyon "
GrupAdları(81, 1) = 241: GrupAdları(81, 2) = "Novemseptuagintilyon "
GrupAdları(82, 1) = 244: GrupAdları(82, 2) = "Oktogintilyon "
GrupAdları(83, 1) = 247: GrupAdları(83, 2) = "Unoktogintilyon "
GrupAdları(84, 1) = 250: GrupAdları(84, 2) = "Dooktogintilyon "
GrupAdları(85, 1) = 253: GrupAdları(85, 2) = "Treoktogintilyon "
GrupAdları(86, 1) = 256: GrupAdları(86, 2) = "Kattuoroktogintilyon "
GrupAdları(87, 1) = 259: GrupAdları(87, 2) = "Kenoktogintilyon "
GrupAdları(88, 1) = 262: GrupAdları(88, 2) = "Sexoktogintilyon "
GrupAdları(89, 1) = 265: GrupAdları(89, 2) = "Septenoktogintilyon "
GrupAdları(90, 1) = 268: GrupAdları(90, 2) = "Oktooktogintilyon "
GrupAdları(91, 1) = 271: GrupAdları(91, 2) = "Novemoktogintilyon "
GrupAdları(92, 1) = 274: GrupAdları(92, 2) = "Nonagintilyon "
GrupAdları(93, 1) = 277: GrupAdları(93, 2) = "Unnonagintilyon "
GrupAdları(94, 1) = 280: GrupAdları(94, 2) = "Dononagintilyon "
GrupAdları(95, 1) = 283: GrupAdları(95, 2) = "Trenonagintilyon "
GrupAdları(96, 1) = 286: GrupAdları(96, 2) = "Kattuornonagintilyon "
GrupAdları(97, 1) = 289: GrupAdları(97, 2) = "Kennonagintilyon "
GrupAdları(98, 1) = 292: GrupAdları(98, 2) = "Sexnonagintilyon "
GrupAdları(99, 1) = 295: GrupAdları(99, 2) = "Septennonagintilyon "
GrupAdları(100, 1) = 298: GrupAdları(100, 2) = "Oktononagintilyon "
GrupAdları(101, 1) = 301: GrupAdları(101, 2) = "Novemnonagintilyon "
GrupAdları(102, 1) = 304: GrupAdları(102, 2) = "Sentilyon "
GrupAdları(103, 1) = 307: GrupAdları(103, 2) = "Senuntilyon "
GrupAdları(104, 1) = 310: GrupAdları(104, 2) = "Sendotilyon "
GrupAdları(105, 1) = 313: GrupAdları(105, 2) = "Sentretilyon "
GrupAdları(106, 1) = 316: GrupAdları(106, 2) = "Senkattuortilyon "
GrupAdları(107, 1) = 319: GrupAdları(107, 2) = "Senkentilyon "
GrupAdları(108, 1) = 322: GrupAdları(108, 2) = "Sensextilyon "
GrupAdları(109, 1) = 325: GrupAdları(109, 2) = "Senseptentilyon "
GrupAdları(110, 1) = 328: GrupAdları(110, 2) = "Senoktotilyon "
GrupAdları(111, 1) = 331: GrupAdları(111, 2) = "Sennovemtilyon "
GrupAdları(112, 1) = 334: GrupAdları(112, 2) = "Sendesilyon "
GrupAdları(113, 1) = 337: GrupAdları(113, 2) = "Senundesilyon "
GrupAdları(114, 1) = 340: GrupAdları(114, 2) = "Sendodesilyon "
GrupAdları(115, 1) = 343: GrupAdları(115, 2) = "Sentredesilyon "
GrupAdları(116, 1) = 346: GrupAdları(116, 2) = "Senkattuordesilyon "
GrupAdları(117, 1) = 349: GrupAdları(117, 2) = "Senkendesilyon "
GrupAdları(118, 1) = 352: GrupAdları(118, 2) = "Sensexdesilyon "
GrupAdları(119, 1) = 355: GrupAdları(119, 2) = "Senseptendesilyon "
GrupAdları(120, 1) = 358: GrupAdları(120, 2) = "Senoktodesilyon "
GrupAdları(121, 1) = 361: GrupAdları(121, 2) = "Sennovemdesilyon "
GrupAdları(122, 1) = 364: GrupAdları(122, 2) = "Senvigintilyon "
GrupAdları(123, 1) = 367: GrupAdları(123, 2) = "Senunvigintilyon "
GrupAdları(124, 1) = 370: GrupAdları(124, 2) = "Sendovigintilyon "
GrupAdları(125, 1) = 373: GrupAdları(125, 2) = "Sentrevigintilyon "
GrupAdları(126, 1) = 376: GrupAdları(126, 2) = "Senkattuorvigintilyon "
GrupAdları(127, 1) = 379: GrupAdları(127, 2) = "Senkenvigintilyon "
GrupAdları(128, 1) = 382: GrupAdları(128, 2) = "Sensexvigintilyon "
GrupAdları(129, 1) = 385: GrupAdları(129, 2) = "Senseptenvigintilyon "
GrupAdları(130, 1) = 388: GrupAdları(130, 2) = "Senoktovigintilyon "
GrupAdları(131, 1) = 391: GrupAdları(131, 2) = "Sennovemvigintilyon "
GrupAdları(132, 1) = 394: GrupAdları(132, 2) = "Sentrigintilyon "
GrupAdları(133, 1) = 397: GrupAdları(133, 2) = "Senuntrigintilyon "
GrupAdları(134, 1) = 400: GrupAdları(134, 2) = "Sendotrigintilyon "
GrupAdları(135, 1) = 403: GrupAdları(135, 2) = "Sentretrigintilyon "
GrupAdları(136, 1) = 406: GrupAdları(136, 2) = "Senkattuortrigintilyon "
GrupAdları(137, 1) = 409: GrupAdları(137, 2) = "Senkentrigintilyon "
GrupAdları(138, 1) = 412: GrupAdları(138, 2) = "Sensextrigintilyon "
GrupAdları(139, 1) = 415: GrupAdları(139, 2) = "Senseptentrigintilyon "
GrupAdları(140, 1) = 418: GrupAdları(140, 2) = "Senoktotrigintilyon "
GrupAdları(141, 1) = 421: GrupAdları(141, 2) = "Sennovemtrigintilyon "
GrupAdları(142, 1) = 424: GrupAdları(142, 2) = "Senkatragintilyon "
GrupAdları(143, 1) = 427: GrupAdları(143, 2) = "Senunkatragintilyon "
GrupAdları(144, 1) = 430: GrupAdları(144, 2) = "Sendokatragintilyon "
GrupAdları(145, 1) = 433: GrupAdları(145, 2) = "Sentrekatragintilyon "
GrupAdları(146, 1) = 436: GrupAdları(146, 2) = "Senkattuorkatragintilyon "
GrupAdları(147, 1) = 439: GrupAdları(147, 2) = "Senkenkatragintilyon "
GrupAdları(148, 1) = 442: GrupAdları(148, 2) = "Sensexkatragintilyon "
GrupAdları(149, 1) = 445: GrupAdları(149, 2) = "Senseptenkatragintilyon "
GrupAdları(150, 1) = 448: GrupAdları(150, 2) = "Senoktokatragintilyon "
Exit Sub
Hata:
End Sub
Sub BasamakAdlarıTesbiti()
On Error GoTo Hata:
For i = 0 To 149
No1 = (i * 3) + 1
BasamakAdları(No1, 0) = ""
BasamakAdları(No1, 1) = "Bir "
BasamakAdları(No1, 2) = "İki "
BasamakAdları(No1, 3) = "Üç "
BasamakAdları(No1, 4) = "Dört "
BasamakAdları(No1, 5) = "Beş "
BasamakAdları(No1, 6) = "Altı "
BasamakAdları(No1, 7) = "Yedi "
BasamakAdları(No1, 8) = "Sekiz "
BasamakAdları(No1, 9) = "Dokuz "
No2 = (i * 3) + 2
BasamakAdları(No2, 0) = ""
BasamakAdları(No2, 1) = "On "
BasamakAdları(No2, 2) = "Yirmi "
BasamakAdları(No2, 3) = "Oyuz "
BasamakAdları(No2, 4) = "Kırk "
BasamakAdları(No2, 5) = "Elli "
BasamakAdları(No2, 6) = "Atmış "
BasamakAdları(No2, 7) = "Yetmiş "
BasamakAdları(No2, 8) = "Seksen "
BasamakAdları(No2, 9) = "Doksan "
No3 = (i * 3) + 3
BasamakAdları(No3, 0) = ""
BasamakAdları(No3, 1) = "Yüz "
BasamakAdları(No3, 2) = "İkiyüz "
BasamakAdları(No3, 3) = "Üçyüz "
BasamakAdları(No3, 4) = "Dörtyüz "
BasamakAdları(No3, 5) = "Beşyüz "
BasamakAdları(No3, 6) = "Altıyüz "
BasamakAdları(No3, 7) = "Yediyüz "
BasamakAdları(No3, 8) = "Sekizyüz "
BasamakAdları(No3, 9) = "Dokuzyüz "
Next i
Hata:
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul