AccessTr.neT

Tam Versiyon: Ondalık Sayıda Virgülden Sonra İlk Basamağı Alma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
iyi günler benim yuzde1 adında bir değişkenim var bu değikenimin sonucu ondalık sayı olduğu zaman virgülden sonra ilk rakamı tutsun diğerlerini silsin

yuzde1 = 85.6 -> doğru (bu şekil yazmasını istiyorum)
yuzde1 = 85.6532 -> yanlış
Metin Kutusunun özelliklerinde bulunan Biçim = Standart ve Ondalık Basamaklar =1 olarak düzenleyin.

Örneksiz cevap ancak bu kadar.Img-grin
dediğiniz gibi denedim olmuyor
dim yuzde1 as double
dim i as integer
dim toplam as long
dim genel as long
yuzde1=0
toplam=0
genel=0
for i=0 to liste2.listcount
genel=genel+1
if liste2.column(2,i)= "Bursa" then
toplam =toplam+1
yuzde1=(toplam1*100)\genel
end if
next i
metin1.value=yuzde1


kodum bu buradaki yüzdeyi metin kutusuna Örnek 85,7 olarak yazdırmak istiyorum virgülden sonra 1 karakterden fazla olmasın
Lütfen örnek ekleyiniz.

Saygılar...
Eklediğin koda göre;

metin1.value=yuzde1 
yerine

metin1 = Left(yuzde1, InStr(1, yuzde1, ",") + 1)
yazman yeterli.
Arkadaşın geri döneceği yok, konu taşınmıştır.