Skip to main content

AccessTr.neT


Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma

Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma

Çözüldü #1
merhaba arkadaşlar,
örneğin: 1,45 verisinin 
tam sayı ve ondalık kısımlarını ayırmak istiyorum,
yardımcı olabilir misiniz?
1,45
tam sayı kısmı=1
ondalık sayı=45
gibi

[img][Resim: do.php?img=11525][/img]
.rar form_ak.rar (Dosya Boyutu: 16,3 KB | İndirme Sayısı: 4)
Cevapla
#2
Instr yada split fonksiyonları işinize yarayabilir
Cevapla
#3
Private Sub Metin0_AfterUpdate()
On Error Resume Next
Dim myVal As Double
Dim myInt As Integer, Kusurat As Integer, myOnd As Integer
myVal = Me.Metin0
myInt = Int(myVal)
Kusurat = Len(CStr(Format((myVal - myInt), "0,00###"))) - 2
myOnd = CInt(Mid(myVal, InStr(myVal, ",") + 1, Kusurat))
Me.Metin2 = myInt
Me.Metin4 = myOnd
End Sub
Cevapla
#4
merhabalar
küsuratlı veri olduğnda sonuç doğru,
aşağıdaki giibi
[img][Resim: do.php?img=11532][/img]


sonuç küsuratsız olduğunda
sonuç doğru olmuyor,
[img][Resim: do.php?img=11533][/img]


küsuratsız olduğunda da sıfır (0) sonucu verdilrilebilir mi?
.rar akd.rar (Dosya Boyutu: 20,48 KB | İndirme Sayısı: 2)
Cevapla
#5
aşağıdaki kodu dener misiniz?
xBol = Split(DEGER & ",", ",")
TAMSAYI = xBol(0)
ONDALIK = Val(xBol(1))
Cevapla
#6
(28/04/2022, 03:50)berduş yazdı: aşağıdaki kodu dener misiniz?
xBol = Split(DEGER & ",", ",")
TAMSAYI = xBol(0)
ONDALIK = Val(xBol(1))

mehaba
sizin kodlar oldu,
denedim, tamsayı ve ondalık kısmını benim istediğim şekilde yapıyor,
çok teşekkür ederim,
iyi çalışmalar dilerim.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da