ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/11/2008 03:14
Konu Sahibi
chopper07
Yorumlar
7
Okunma
3858
Konuyu Oyla:
  • Derecelendirme: 2.33/5 - 3 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 2.33/5 - 3 oy

chopper07

Uzman
Kullanici Avatari
Uzman
E....
1.803
29/01/2008
376
Aydın
Ofis 2003
02/11/2017,22:45
formumuza bir adet textbox bir adet label ve command buton ekleyip aşağıdaki kodları formumuza yapıştırıyoruz.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Explicit

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 Command1_Click()
Label1.Caption = SayiyiYaziyaCevir(Text1.Text)
End Sub


™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla

mesudi

Aktif Üye
Kullanici Avatari
Aktif Üye
M.... A....
249
30/10/2008
63
İstanbul
Ofis 2003
12/12/2016,17:50
hocam eline sağlık.


Cevapla

chopper07

Uzman
Kullanici Avatari
Uzman
E....
1.803
29/01/2008
376
Aydın
Ofis 2003
02/11/2017,22:45
rica ederim ne demek.


™Hiç Birimiz, Hepimiz Kadar Akıllı Olamayız...®

resim
resim
resim
Cevapla

Çopumuryalı

Access
Kullanici Avatari
Üye
6
2
20/05/2010
0
İstanbul
Ofis 2003
28/01/2011,14:07
Fur
Hocam ayrıntı verebilirmisiniz?
denedim olmadı bende


Çopumuryalı, 20-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ogulcan92

Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
480
İzmir
Ofis 2003
07/08/2015,11:50
Sn:Çopumuryalı
Aşağıdaki örneği inceleyeniz.


Ek Dosyalar
.rar   SayyıYazıyaCevir.rar (Dosya Boyutu: 5,99 KB / İndirme Sayısı: 59)
Cevapla

Çopumuryalı

Access
Kullanici Avatari
Üye
6
2
20/05/2010
0
İstanbul
Ofis 2003
28/01/2011,14:07
Örnek için Teşekkür ederim. Yapılması hususunda bilgi almak istedim. Açık bir tanım olması daha iyi olurdu ?


Çopumuryalı, 20-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  vB Sayıyı Yazı İle Gösterme SérqeN 2 3.065 09/03/2013, 18:31 dido2304
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.