Получить нормализованное значение счета ОСВ

Function GetNormalOSV(r As Range)
TXT = Trim(r.Value)
If Len(TXT) = 3 And Mid(TXT, 2, 1)  0 Then
   L1 = Left(TXT, 1)
   R1 = Right(TXT, 1)
   GetNormalOSV = L1 + ",0" + R1
ElseIf Len(TXT) = 4 And Mid(TXT, 3, 1)  0 Then
   L1 = Left(TXT, 2)
   R1 = Right(TXT, 1)
   GetNormalOSV = L1 + ",0" + R1
Else: GetNormalOSV = r.Value
End If
End Function

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

Ваш адрес email не будет опубликован.