+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Çöp Kutusu (https://accesstr.net/forum-cop-kutusu.html)
+--- Konu Başlığı: Çok acil.Rakamı sayıya çevirme (/konu-cok-acil-rakami-sayiya-cevirme.html)
Cvp: Çok acil.Rakamı sayıya çevirme - hsnsrky40 - 11/01/2011
valla mod konusunda örnek yapıp yapmadığıızı sordu.c#ta yaptığını gösterdiğinde mod ve Switch case vardı.o kadarını gösterdi
hiç modül göstermedi bize,fonksiyon yapmadık bende günü gününe yaptıklarımız var.baktım ama yok.fonksiyon olmasa sadece formda buton içinde yapılmazmı
Cvp: Çok acil.Rakamı sayıya çevirme - alpeki99 - 11/01/2011
Arkadaşlar lütfen böyle konu başlığı olan konulara itibar etmeyiniz. Site Kuralları açık bu şekilde konu başlığı olması yasak. Çok acil diye birşey yazınca ne oluyor anlamıyorum. Bizim için hayat memat meselesi haline dönüşüyormu zannediliyor acaba?
Cvp: Çok acil.Rakamı sayıya çevirme - ercansahin - 11/01/2011
(11/01/2011, 23:35)alpeki99 yazdı: Arkadaşlar lütfen böyle konu başlığı olan konulara itibar etmeyiniz. Site Kuralları açık bu şekilde konu başlığı olması yasak. Çok acil diye birşey yazınca ne oluyor anlamıyorum. Bizim için hayat memat meselesi haline dönüşüyormu zannediliyor acaba?
) doğru söze ne denir?Cvp: Çok acil.Rakamı sayıya çevirme - hsnsrky40 - 11/01/2011
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
Cvp: Çok acil.Rakamı sayıya çevirme - alpeki99 - 11/01/2011
Konu üste çıkılmaya çalışılması nedeniyle kilitlenmiştir.