usd cinsinden rakamı yazıya cevirmek
Tarih
13/09/2012 14:51
Konu Sahibi
habatay
Yorumlar
5
Okunma
2913
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



habatay
Aktif Üye
Kullanici Avatari
Aktif Üye
36
12/12/2011
0
Belirtilmemiş
Belirtilmemiş
03/08/2016,10:16
Çözüldü 
USD olarak fatura kesiyorum bunu yazıya nasıl çevirebilirim ?
YTL olrak var ancak USD gerekli teşekkürler
Cevapla


raham
FEDA
Kullanici Avatari
Aktif Üye
H....
127
02/06/2011
32
İstanbul
Ofis 2010
14/10/2015,12:26
Çözüldü 
Rakamları yazıya çevirmek için muhtemelen bir modül kullanıyorsun. Bununda bir çok örneği var, hangisini kullandığınızı bilemiyorum.
Bu konuyu geçen hafta açmıştım, benim bir çalışmam vardı. (Power hocamın katkısıyla)
Cevaplanmış sorulara bakarsan benim örneğimi kullanabilirsin.
http://accesstr.net/konu-fatura-programi...orunu.html
Cevapla


habatay
Aktif Üye
Kullanici Avatari
Aktif Üye
36
12/12/2011
0
Belirtilmemiş
Belirtilmemiş
03/08/2016,10:16
Çözüldü 
evet istediğim bu ancak açıklamam eksik oldu benim istediğim usd yi yazıya ingilizce olarak çevirmek.
Cevapla


raham
FEDA
Kullanici Avatari
Aktif Üye
H....
127
02/06/2011
32
İstanbul
Ofis 2010
14/10/2015,12:26
Çözüldü 
Bir sorum olacak.

Aynı formda hem İngilizce temde Türkçe olacak mı?
Cevapla


Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
Bugün,19:17
Çözüldü 
Parametre olarak TR/EN/DE olabilir. almanca için kesin doğrudur diyemem.

Kullanimi:
Me.Yalniz= yazt("12345,23" , "USD" , "EN")
veya
me.Rakam=12345,23
me.Yalniz=yazt(me.Rakam , "USD" , "DE")

Sonuç:
ONİKİBİNÜÇYÜZKIRKBEŞ USD YİRMİÜÇ SENT
TENTWOTHOUSANDTHREEHUNDREDFORTYFIVE USD TWENTYTHREE SENT
ZEHNZWEITAUSENDDREIHUNDERTVIERZIGFÜNF USD ZWANZIGDREI SENT


Not:Ondalık işaretine dikkat ediniz. bazı bilgisayarlarda nokta bazılarında virgüldür.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
Function yazt(Sayi, Doviz, Dil)
 'Sayi = Rakamınız
 'Doviz = USD/TL/GBP
 'Dil = TR/EN/DE
 Dim B$(9)
 Dim Y$(9)
 Dim m$(4)
 Dim v(15)
 Dim C(3)
 If Dil = "TR" Then GoTo TR
 If Dil = "EN" Then GoTo EN
 If Dil = "DE" Then GoTo DE
 
TR:
 B$(0) = ""
 B$(1) = "BİR"
 B$(2) = "İKİ"
 B$(3) = "ÜÇ"
 B$(4) = "DÖRT"
 B$(5) = "BEŞ"
 B$(6) = "ALTI"
 B$(7) = "YEDİ"
 B$(8) = "SEKİZ"
 B$(9) = "DOKUZ"

 Y$(0) = ""
 Y$(1) = "ON"
 Y$(2) = "YİRMİ"
 Y$(3) = "OTUZ"
 Y$(4) = "KIRK"
 Y$(5) = "ELLİ"
 Y$(6) = "ALTMIŞ"
 Y$(7) = "YETMİŞ"
 Y$(8) = "SEKSEN"
 Y$(9) = "DOKSAN"

 m$(0) = "TRİLYON"
 m$(1) = "MİLYAR"
 m$(2) = "MİLYON"
 m$(3) = "BİN"
 m$(4) = ""
 GoTo Devami
 
EN:
 B$(0) = ""
 B$(1) = "ONE"
 B$(2) = "TWO"
 B$(3) = "THREE"
 B$(4) = "FOUR"
 B$(5) = "FIVE"
 B$(6) = "SIX"
 B$(7) = "SEVEN"
 B$(8) = "EIGHT"
 B$(9) = "NINE"

 Y$(0) = ""
 Y$(1) = "TEN"
 Y$(2) = "TWENTY"
 Y$(3) = "THIRTY"
 Y$(4) = "FORTY"
 Y$(5) = "FIFTY"
 Y$(6) = "SIXTY"
 Y$(7) = "SEVENTY"
 Y$(8) = "EIGHTY"
 Y$(9) = "NINETY"

 m$(0) = "TRILLION"
 m$(1) = "BILLION"
 m$(2) = "MILLION"
 m$(3) = "THOUSAND"
 m$(4) = ""
 GoTo Devami

DE:
 B$(0) = ""
 B$(1) = "EIN"
 B$(2) = "ZWEI"
 B$(3) = "DREI"
 B$(4) = "VIER"
 B$(5) = "FÜNF"
 B$(6) = "SECHS"
 B$(7) = "SIEBEN"
 B$(8) = "ACHT"
 B$(9) = "NEUN"

 Y$(0) = ""
 Y$(1) = "ZEHN"
 Y$(2) = "ZWANZIG"
 Y$(3) = "DREIßIG"
 Y$(4) = "VIERZIG"
 Y$(5) = "FÜNFZIG"
 Y$(6) = "SECHZIG"
 Y$(7) = "SIEBZIG"
 Y$(8) = "ACHTZIG"
 Y$(9) = "NEUNZIG"

 m$(0) = "BILLION"
 m$(1) = "MILLIARDE"
 m$(2) = "MILLION"
 m$(3) = "TAUSEND"
 m$(4) = ""
 GoTo Devami

Devami:
 A$ = Str(Int(Sayi))
 
 If Left$(A$, 1) = " " Then pozitif = 1 Else pozitif = 0
 A$ = Right$(A$, Len(A$) - 1)
 Kurus = (Sayi - Val(A$)) * 100
 Kurus = Format(Kurus, "00")
 
 For X = 1 To Len(A$)
 If (Asc(Mid$(A$, X, 1)) > Asc("9")) Or (Asc(Mid$(A$, X, 1)) < Asc("0")) Then GoTo Hata
 Next X

 If Len(A$) > 15 Then GoTo Hata
 A$ = String(15 - Len(A$), "0") + A$

 For X = 1 To 15
 v(X) = Val(Mid$(A$, X, 1))
 Next X

 s$ = ""
 For X = 0 To 4
 C(1) = v((X * 3) + 1)
 C(2) = v((X * 3) + 2)
 C(3) = v((X * 3) + 3)
 If C(1) = 0 Then
 e$ = ""
 ElseIf C(1) = 1 Then
 If Dil = "TR" Then e$ = "YÜZ"
 If Dil = "EN" Then e$ = "HUNDRED"
 If Dil = "DE" Then e$ = "HUNDERT"
 Else
 If Dil = "TR" Then e$ = B$(C(1)) + "YÜZ"
 If Dil = "EN" Then e$ = B$(C(1)) + "HUNDRED"
 If Dil = "DE" Then e$ = B$(C(1)) + "HUNDERT"
 End If
 e$ = e$ + Y$(C(2)) + B$(C(3))
 If e$ <> "" Then e$ = e$ + m$(X)
 
 If Dil = "TR" Then
 If (X = 3) And (e$ = "BİRBİN") Then e$ = "BİN"
 End If
 If Dil = "EN" Then
 If (X = 3) And (e$ = "THOUSAND") Then e$ = "THOUSAND"
 End If
 If Dil = "DE" Then
 If (X = 3) And (e$ = "TAUSEND") Then e$ = "TAUSEND"
 End If
 
 s$ = s$ + e$
 Next X
 
 If Dil = "TR" Then
 If s$ = "" Then s$ = "SIFIR"
 If pozitif = 0 Then s$ = "EKSİ" + s$
 End If
 If Dil = "EN" Then
 If s$ = "" Then s$ = "ZERO"
 If pozitif = 0 Then s$ = "MINUS" + s$
 End If
 If Dil = "DE" Then
 If s$ = "" Then s$ = "NULL"
 If pozitif = 0 Then s$ = "MINUS" + s$
 End If
 
 KY = "%"
 If Doviz = "YTL" Or Doviz = "TL" Then KY = "KURUS"
 If Doviz = "USD" Or Doviz = "EUR" Then KY = "SENT"
 If Doviz = "GBP" Then KY = "FENIK"

 
 If Val(Kurus) <> 0 Then
 Ke$ = Y$(Left(Kurus, 1)) + B$(Right(Kurus, 1))
 yazt = s$ & " " & Doviz & " " & Ke$ & " " & KY
 GoTo Tamam
 Else
 yazt = s$ & " " & Doviz
 GoTo Tamam
 End If
 
 GoTo Tamam
Hata: yazt = "Hata!!!"
Tamam:
End Function

Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
05/12/2016,09:18
Çözüldü 
Sn Habatay size emek verilip cevap verilmiş. Lütfen geri bildirimde bulunmayı unutmayalım.

Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Metin Kutusundaki rakamı şartlı göstermek m_demir 2 86 05/10/2016, 13:17 m_demir
Çözüldü Access Sayıyı Yazıya Çevirme naftalanj 12 8.302 13/06/2016, 18:40 RES
Çözüldü Raporda Sayıyı yazıya çevirme accessasist 4 378 10/04/2016, 18:00 accessasist
Çözüldü Yazıya çevir silka 10 910 29/11/2015, 13:57 atoz112
Çözüldü Raporda Ad-Soyad'ın İlk Harfleri ve Dosya No İlk Rakamı Çıkmasını Nasıl Sağlarız?? mehami 10 1.098 18/07/2015, 23:35 mehmetdemiral


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya