Commit f9553ec

committed

Обработка ситуации, где вместо ФИО - однословный код

1 parent 9add9f1 commit f9553ecCopy full SHA for f9553ec

File tree

-6

lines changed

-6

lines changed

Lines changed: 8 additions & 6 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,4 +1,4 @@`
`1`		`-'(c) Дмитрий Евдокимов, ред. 03.12.2015`
	`1`	`+'(c) Дмитрий Евдокимов, ред. 26.01.2016`
`2`	`2`
`3`	`3`	`' Исходные данные:`
`4`	`4`	`' 1) Этот XLSM-файл с модулем Turniket.bas`
`@@ -305,9 +305,11 @@ End Sub`
`305`	`305`	`Function FIO(s As String)`
`306`	`306`	`Dim A() As String`
`307`	`307`	`A = Split(s)`
`308`		`- If UBound(A) <> 2 Then`
`309`		`- MsgBox ("Ошибка в ФИО с парковки")`
`310`		`- Stop`
	`308`	`+ If UBound(A) = 2 Then`
	`309`	`+ FIO = A(0) & " " & Left(A(1), 1) & "." & Left(A(2), 1) & "."`
	`310`	`+ Else`
	`311`	`+ 'MsgBox ("Ошибка в ФИО с парковки")`
	`312`	`+ 'Stop`
	`313`	`+ FIO = s`
`311`	`314`	`End If`
`312`		`- FIO = A(0) & " " & Left(A(1), 1) & "." & Left(A(2), 1) & "."`
`313`		`-End Function`
	`315`	`+End Function`

Comments

(0)