SHOW:
|
|
- or go back to the newest paste.
| 1 | Dim cislo As Long | |
| 2 | ||
| 3 | Private Sub CommandButton1_Click() | |
| 4 | MsgBox operator(cislo) | |
| 5 | End Sub | |
| 6 | ||
| 7 | Private Sub UserForm_Click() | |
| 8 | Dim telefon As String | |
| 9 | Dim delka As String | |
| 10 | ||
| 11 | telefon = TextBox1.Text | |
| 12 | ||
| 13 | If (Len(telefon) = 0) Or (Len(telefon) >= 12) Then | |
| 14 | MsgBox "Musíte vyplnit telefon ve formátu XXX XXX XXX.", vbInformation, "Chyba" | |
| 15 | Else | |
| 16 | ||
| 17 | If (Mid(telefon, 4, 1) = " ") Or (Mid(telefon, 8, 1) = " ") Then | |
| 18 | MsgBox "Telefon je zadaný ve správném tvaru: " + telefon, vbInformation, "Telefon" | |
| 19 | ||
| 20 | cislo = telefon | |
| 21 | Else | |
| 22 | MsgBox "Musíte vyplnit telefon ve formátu XXX XXX XXX.", vbInformation, "Chyba" | |
| 23 | End If | |
| 24 | End If | |
| 25 | End Sub | |
| 26 | ||
| 27 | '### FUNKCE OPERATOR ###' | |
| 28 | ||
| 29 | Public Function operator(telefonni_cislo As Long) | |
| 30 | operator = Mid(telefonni_cislo, 1, 3) | |
| 31 | ||
| 32 | Select Case operator | |
| 33 | Case "735", "736", "737" | |
| 34 | operator = "T-Mobile" | |
| 35 | ||
| 36 | Case "721", "722", "723" | |
| 37 | operator = "O2" | |
| 38 | Case Else | |
| 39 | operator = "Nezname" | |
| 40 | End Select | |
| 41 | 'asd | |
| 42 | End Function |
