فصل الكسر عن العدد الصحيح

توصلت إلى الحل بوضع الكود التالي في حدث الحالي للنموذج :

dd = Int(cc)
ee = cc - dd
aa = ee * 100
bb = dd
ff = aa
If aa < 10 Then
ff = "0" & aa
aa = ff
End If

db1.rar