|
1 | | -'(c) Дмитрий Евдокимов, ред. 09.09.2015 |
| 1 | +Attribute VB_Name = "Turniket" |
| 2 | +'(c) Дмитрий Евдокимов, ред. 10.11.2015 |
2 | 3 |
|
3 | 4 | ' Исходные данные: |
4 | 5 | ' 1) Этот XLSM-файл с модулем Turniket.bas |
@@ -302,12 +303,16 @@ Sub TurnOver() |
302 | 303 | Application.StatusBar = False |
303 | 304 | End Sub |
304 | 305 |
|
305 | | -Function FIO(S As String) |
306 | | - Dim A() As String |
307 | | - A = Split(S) |
308 | | - If UBound(A) <> 2 Then |
309 | | - MsgBox ("Ошибка в ФИО с парковки") |
310 | | - Stop |
311 | | - End If |
312 | | - FIO = A(0) & " " & Left(A(1), 1) & "." & Left(A(2), 1) & "." |
| 306 | +Function FIO(s As String) |
| 307 | + Dim A() As String, items As Integer |
| 308 | + A = Split(s) |
| 309 | + items = UBound(A) + 1 |
| 310 | + Select Case items |
| 311 | + Case 3: FIO = A(0) & " " & Left(A(1), 1) & "." & Left(A(2), 1) & "." |
| 312 | + Case 2: FIO = A(0) & " " & A(1) |
| 313 | + Case 1: FIO = s |
| 314 | + Case Else |
| 315 | + 'MsgBox ("Ошибка в ФИО с парковки") |
| 316 | + 'Stop |
| 317 | + End Select |
313 | 318 | End Function |
0 commit comments