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][/img]

Instr yada split fonksiyonları işinize yarayabilir

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

merhabalar
küsuratlı veri olduğnda sonuç doğru,
aşağıdaki giibi
[img][/img]


sonuç küsuratsız olduğunda
sonuç doğru olmuyor,
[img][/img]


küsuratsız olduğunda da sıfır (0) sonucu verdilrilebilir mi?

aşağıdaki kodu dener misiniz?

xBol = Split(DEGER & ",", ",")

TAMSAYI = xBol(0)

ONDALIK = Val(xBol(1))

(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.