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
Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma
| Bu Konudaki Yorumlar |
|
Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - Yazar: alikagan - 26/04/2022, 20:23
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - Yazar: berduş - 26/04/2022, 20:38
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - Yazar: mozuer - 27/04/2022, 09:38
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - Yazar: alikagan - 28/04/2022, 01:26
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - Yazar: berduş - 28/04/2022, 03:50
RE: Sayının Tamsayı Ve Ondalık Kısımlarını Ayırma - Yazar: alikagan - 28/04/2022, 04:39
|
Konuyu Okuyanlar: 1 Ziyaretçi
