1 kg 250 g yazıya çevirmek

[hsayar]

1 kg 256 g yazıya çevirmek
parayı yazıya çevirebiliyorz peki diğer ölçü birmlerini çevirmek nasıl olmalı

a1 hücresindeki değer 1,256 yazıyorsa a2 ye Bir kilogram ikiyüzellialtı gram
a1 hücresindeki değer 1,250 yazıyorsa a2 ye Bir kilogram ikiyüzelli gram
a1 hücresindeki değer 1,200 yazıyorsa a2 ye Bir kilogram ikiyüz gram

nasıl yazılır

 

[abtani]

1 kg 256 g yazıya çevirmek
parayı yazıya çevirebiliyorz peki diğer ölçü birmlerini çevirmek nasıl olmalı

a1 hücresindeki değer 1,256 yazıyorsa a2 ye Bir kilogram ikiyüzellialtı gram
a1 hücresindeki değer 1,250 yazıyorsa a2 ye Bir kilogram ikiyüzelli gram
a1 hücresindeki değer 1,200 yazıyorsa a2 ye Bir kilogram ikiyüz gram

nasıl yazılır

Parayı yazıya çeviren VBA kodlarında YTL yi kilogram,Ykr yi gram olarak yazabilirseniz sorun çözülür.

 

[abtani]

Ekli dosyayı incelermisiniz.Sayın Remzi Kuyugöz'e ait kodlarda küçük oynamalar yaptım.Bu acemi halimle

 

[Necdet]

Merhaba,

Sayın Leventm'nin parametrik Sayıyı Yazıya Çevirme Eklentisini inceleyiniz.

 

[hsayar]

Ekli dosyayı incelermisiniz.Sayın Remzi Kuyugöz'e ait kodlarda küçük oynamalar yaptım.Bu acemi halimle

100,25 > Yüz .-kg., YirmiBeş.-gr.

olarak dönüyor yüz kilo 250 gram dönmesi lazım.

herkese hayırlı geceler.

 

[Seyit Tiken]

Ekli dosyadaki uygulama farklı bir mantık ile yapılmıştır. Nisbeten işe yarayabilir. İlgili hücreye YTL şeklinde değer giriniz.

 

[hsayar]

değil hocam başlıkta anlış girmişim demek istediğim şimdiye kadar yazılmış olan rakamı yazıya çevirme uyguşamaları yüzdelik kısmı dikkate alıyor (1,25 > bir ytl yirmibeşkuruş gb), benim istediğim bindelik kısmı dikkate alması (1,25>bir kilo, ikiyüzelli gram gibi)

 

[İdris SERDAR]

değil hocam başlıkta anlış girmişim demek istediğim şimdiye kadar yazılmış olan rakamı yazıya çevirme uyguşamaları yüzdelik kısmı dikkate alıyor (1,25 > bir ytl yirmibeşkuruş gb), benim istediğim bindelik kısmı dikkate alması (1,25>bir kilo, ikiyüzelli gram gibi)

Kodlar sayın Leventm'e aittir. Ben sadece uyarladım.

Ekteki örneği inceleyin.

.

 

[abtani]

Kodlar sayın Leventm'e aittir. Ben sadece uyarladım.

Ekteki örneği inceleyin.

.

Sanıyorum tam cevap bu oldu.Teşekkürler "yurttas" ve "Leventm"

 

[omerceri]

Kimden aldığımı hatırladığım yaz fonksiyonu kullanarak yaptım.

Function yaz$(sayi)

Dim b$(9)
Dim y$(9)
Dim m$(4)
Dim v(15)
Dim c(3)

b$(0) = ""
b$(1) = "Bir"
b$(2) = "İki"
b$(3) = "Üç"
b$(4) = "Dört"
b$(5) = "Beş"
b$(6) = "Altı"
b$(7) = "Yedi"
b$(8) = "Sekiz"
b$(9) = "Dokuz"

y$(0) = ""
y$(1) = "On"
y$(2) = "Yirmi"
y$(3) = "Otuz"
y$(4) = "Kırk"
y$(5) = "Elli"
y$(6) = "Altmış"
y$(7) = "Yetmiş"
y$(8) = "Seksen"
y$(9) = "Doksan"

m$(0) = "Trilyon"
m$(1) = "Milyar"
m$(2) = "Milyon"
m$(3) = "Bin"
m$(4) = ""

a$ = Str(sayi)

If Left$(a$, 1) = " " Then pozitif = 1 Else pozitif = 0
a$ = Right$(a$, Len(a$) - 1)
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
e$ = "Y&#252;z"
Else
e$ = b$(c(1)) + "Y&#252;z"
End If
e$ = e$ + y$(c(2)) + b$(c(3))
If e$ <> "" Then e$ = e$ + m$(x)
If (x = 3) And (e$ = "BirBin") Then e$ = "Bin"
s$ = s$ + e$
Next x

If s$ = "" Then s$ = "S&#305;f&#305;r"
If pozitif = 0 Then s$ = "Eksi" + s$

yaz$ = s$
GoTo tamam
hata: yaz$ = "Hata"
tamam:
End Function
Function gram(kilo)
kilosu = Int(kilo)
gram&#305; = Right(Format(kilo - kilosu, "0.000"), 3)
gram = yaz(kilosu) & " kiogram " & yaz(gram&#305 & " gram"
End Function

 

[hsayar]

omerceri te&#351;ekk&#252;rler

 

[İdris SERDAR]

omerceri teşekkürler[/UOTE]

Ben teşekkür falan beklemiyorum. Eklediğim dosyanın işinize yarayıp, yaramadığı konusunu bilmek gibi bir hakkım olsa gerek.

.

 

[omerceri]

Sanıyorum tam cevap bu oldu.Teşekkürler "yurttas" ve "Leventm"

sayın Yurttaş
Gözünüzden kaçtı herhalde

 

[omerceri]

say&#305;n Yurttas
Kusura bakmay&#305;n, te&#351;ekk&#252;r eden arkada&#351; ba&#351;kas&#305;ym&#305;&#351;.

 

[İdris SERDAR]

sayın Yurttaş
Gözünüzden kaçtı herhalde

Sayn omerceri,

Onu gördüm. Ama soruyu soran arkadaşımızın geri dönüş yapma zahmetinde bulunması daha uygun olmaz mıydı? Neyse o kadar da önemli değil.

.

 

[hsayar]

8.mesaj

Kodlar sayın Leventm'e aittir. Ben sadece uyarladım.

Ekteki örneği inceleyin.
.

10. mesaj

Kimden aldığımı hatırladığım yaz fonksiyonu kullanarak yaptım.

Function yaz$(sayi)

Dim b$(9)
Dim y$(9)
Dim m$(4)
.............
.

11/12.mesajlar

omerceri teşekkürler[/UOTE]

Ben teşekkür falan beklemiyorum. Eklediğim dosyanın işinize yarayıp, yaramadığı konusunu bilmek gibi bir hakkım olsa gerek.

.

15.mesaj

Sayn omerceri,
Onu gördüm. Ama soruyu soran arkadaşımızın geri dönüş yapma zahmetinde bulunması daha uygun olmaz mıydı? Neyse o kadar da önemli değil.
.

sn. yurttaş sizin yaptığınız örnek uygulama daha pratik ve elbette işime yaradı ancak uıygulmanızı daha sonra gördüm, indirdim elktrik kesintisi nedeni ile teşekkür edemedim. kusur bakmayın daha sonra bağlandığımda ise aklıma gelmedi...

yalnız bu rakamı yazıya çevirme uygulamalarındaki 15 karakter uzunluğunda olması sınırlması nedendir bilemiyorum.
saygılarımla