Değişkene atamak istediğim kod hata veriyor

[Korhan Ayhan]

Selamlar,

Arkadaşlar aşağıdaki kodu kullanarak 0,45678 gibi bir sayının ondalık kısmının uzunluğunu bulup X değişkenine atamak istiyorum fakat beceremedim. Nasıl düzenlemeliyim.

X = Len(Mid(Target, Find("", "", Target) + 1, Len(Target)))

 

[abdi]

COST_CONTROL, Kardeş

Bi Denermisin

Sub dene()
Dim a As Double
Dim x As Double
a = 0.45678
x = Right(a, Len(a) - 3)
Debug.Print x
End Sub

 

[Korhan Ayhan]

Selamlar,

Arkadaşlar aşağıdaki kod ile işlemimi yaptım. :hey:

X = Len(Target) - Len(Int(Target)) - 1