Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
13/09/2012 14:51
Konu Sahibi
habatay
Yorumlar
5
Okunma
5798
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
habatay

habatay

Aktivasyon Bekleyen
42929
 Belirtilmemiş
 10
 36
 12/12/2011
 -
 
 -
 22/06/2018,11:26
Çözüldü 
USD olarak fatura kesiyorum bunu yazıya nasıl çevirebilirim ?
YTL olrak var ancak USD gerekli teşekkürler




raham

raham

Aktif Üye
36718
Ha....
 39
 22
 129
 02/06/2011
32
 İstanbul
 Bilgi İşlem Uzmanı
 Ofis 2010 64 Bit
 26/12/2017,23:05
Çö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



...........
habatay

habatay

Aktivasyon Bekleyen
42929
 Belirtilmemiş
 10
 36
 12/12/2011
 -
 
 -
 22/06/2018,11:26
Çözüldü 
evet istediğim bu ancak açıklamam eksik oldu benim istediğim usd yi yazıya ingilizce olarak çevirmek.



raham

raham

Aktif Üye
36718
Ha....
 39
 22
 129
 02/06/2011
32
 İstanbul
 Bilgi İşlem Uzmanı
 Ofis 2010 64 Bit
 26/12/2017,23:05
Çözüldü 
Bir sorum olacak.

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




...........
Yandemir

Yandemir

Onursal Üye
9224
Mu.... Ya....
 46
 17
 1.441
 26/08/2009
487
 Tekirdağ
 Yazılım
 Ofis 2003
 18/07/2019,22:16
Çö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

benremix

benremix

Onursal Üye
6766
Ra.... So....
 52
 127
 4.444
 17/05/2009
365
 Ankara
 Şirket Sahibi
 Ofis 2010 64 Bit
 Bugün,06:38
Çö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



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Excel Kodu Access Koda Çevirmek C*e*l*o*y*c*e 3 223 18/05/2019, 01:34
Son Yorum: C*e*l*o*y*c*e
Çözüldü Takvim Ajanda Programını Ofis 2016 Da Çalıştırmak İçin Çevirmek hayalibey 11 330 28/03/2019, 21:04
Son Yorum: halily
Çözüldü Kimlik Numarasının İlk 7 Rakamı te-kin 6 370 26/02/2019, 22:40
Son Yorum: te-kin
Çözüldü Sayıyı Yazıya Çevirme notrino 5 351 28/12/2018, 13:03
Son Yorum: notrino
Çözüldü Metin Kutusunda Veriyi Görmek Ama Kimlik Cinsinden Kaydetmek notrino 11 526 24/12/2018, 15:22
Son Yorum: notrino

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.