1. VisualBasic / Говнокод #4743

    −102

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 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

    LotusScript
    Преобразования строкового представления числа в число. При входе "0" на выходе строка ".", которая пытается безусловно быть преображена в число.

    Запостил: Dimly, 25 Ноября 2010

    Комментарии (2) RSS

    • ava TEEN 25.11.2010 16:21 # +1

      Собственно "программер" не знает Replace. Но выкрутился же :)
      If Not IsNumeric(pSum$) Then pSum$ = Replace(pSum$, ",", ".")
      Ответить

    • ava -A- 24.08.2021 20:44 # 0

      Мы дошли до развилки, где должны были расстаться. Было темно. Мы остановились.
      Ответить

    Добавить комментарий