1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Dim CursPos%, VirgPos%
If Me.Marge_in = "" Or IsEmpty(Me.Marge_in) Then Me.PV_out.Text = "": Exit Sub
If Left(Me.Marge_in, 1) = "," Then Me.Marge_in = "0,": Me.Marge_in.SelStart = 3: Exit Sub
Dim PosCursor%
PosCursor = Marge_in.SelStart
Dim strTemp As String
Dim arrTemp
VirgPos = InStr(1, Marge_in.Text, ",")
If VirgPos <> 0 Then
If Len(Mid(Marge_in.Text, VirgPos, Len(Marge_in.Text) - VirgPos)) > 2 Then Marge_in.Text = Left(Marge_in.Text, Len(Marge_in.Text) - 1)
End If
strTemp = FormatNumber(Marge_in.Text, 2)
arrTemp = Split(strTemp, ",")
strTemp = Mid(arrTemp(0), 1, 2) & "," & Mid(arrTemp(1), 1, 2)
Marge_in.Text = strTemp
Marge_in.SelStart = PosCursor
If Marge_in.SelStart = 2 Then Marge_in.SelStart = 3 |
Partager