Skip to main content

AccessTr.neT


Çok acil.Rakamı sayıya çevirme

hsnsrky40
hsnsrky40
16
5822

Çok acil.Rakamı sayıya çevirme

#16
gerçekten acil ama.bu arada BlackEagles abi ben baktım function denedim
koduda şöyle ama sadece form içinde kodların hepsi:

Option Compare Database
Public Function SayiyiYaziyaCevir(sayi As String, Optional Seviye As Integer = 0) As String
On Local Error Resume Next
Dim Ek As String, Donen As String

Donen = Choose((Mid(sayi, Len(sayi) - (Seviye * 3) - 2, 1)) + 1, "", "Yüz", "İkiYüz", "ÜçYüz", "DörtYüz", "BeşYüz", "AltıYüz", "YediYüz", "SekizYüz", "DokuzYüz")
Donen = Donen & Choose((Mid(sayi, Len(sayi) - (Seviye * 3) - 1, 1)) + 1, "", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")
Donen = Donen & Choose((Mid(sayi, Len(sayi) - (Seviye * 3), 1)) + 1, "", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")

If Donen <> "" Then Ek = Choose(Seviye + 1, "", "Bin", "Milyon", "Milyar", "Trilyon", "Katrilyon", "Katrilyar") 'Bildiğiniz sayıyla sınırlı
If Donen = "Bir" And Seviye = 1 Then Donen = "" 'BirBin çevrimini iptal etmek için

If Seviye * 3 + 3 < Len(sayi) Then
Donen = SayiyiYaziyaCevir(sayi, Seviye + 1) & Donen 'Sayinin cevrimi bitmemişse tekrar çağır
End If

SayiyiYaziyaCevir = Donen & Ek
End Function


Private Sub yaz_Click()
sonuc.Caption = SayiyiYaziyaCevir(sayi.Text)
End Sub

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Çok acil.Rakamı sayıya çevirme - Yazar: hsnsrky40 - 11/01/2011, 22:51
Cvp: Çok acil.Rakamı sayıya çevirme - Yazar: hsnsrky40 - 11/01/2011, 23:40
Task