[asto]

حط تكست 4 و ليكن مخفي

كود :

If Text2.Text < Text1.Text Then Text3.Text = 0

If Text2.Text > Text1.Text Then Text3.Text = Val(Text2.Text) - Val(Text1.Text)
c = Len(Text3.Text)
Text4.Text = Split(Text3.Text, ".")(1)
a = Left(Text4.Text, 1)
b = Len(Text4.Text) + 1
bb = c - b
If a > 4 Then Text3.Text = Split(Text3.Text, ".")(0) + 1
If a < 4 Or a = 4 Then Text3.Text = Left(Text3.Text, bb)

طبعا جربته و يعمل