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]
sonuç küsuratsız olduğunda
sonuç doğru olmuyor,
[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.