+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma (/konu-sayinin-tamsayi-ve-ondalik-kisimlarini-ayirma.html)
Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - alikagan - 26/04/2022
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]
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - berduş - 26/04/2022
Instr yada split fonksiyonları işinize yarayabilir
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - mozuer - 27/04/2022
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
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - alikagan - 28/04/2022
merhabalar
küsuratlı veri olduğnda sonuç doğru,
aşağıdaki giibi
[img]
sonuç küsuratsız olduğunda
sonuç doğru olmuyor,
[img]
küsuratsız olduğunda da sıfır (0) sonucu verdilrilebilir mi?
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - berduş - 28/04/2022
aşağıdaki kodu dener misiniz?
xBol = Split(DEGER & ",", ",")
TAMSAYI = xBol(0)
ONDALIK = Val(xBol(1))RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - alikagan - 28/04/2022
(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.