- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
flagnum=Isnumeric(pSum$) 'сумма к погашению
If flagnum=False Then
If Instr(pSum$,",")=0 Then
flagnum1$=Strleft(pSum$,".")
flagnum2$=Strrightback(pSum$,".")
pSum$=flagnum1$&","&flagnum2$
Else
flagnum1$=Strleft(pSum$,",")
flagnum2$=Strrightback(pSum$,",")
pSum$=flagnum1$&"."&flagnum2$
End If
End If