-
Notifications
You must be signed in to change notification settings - Fork 1
/
RAJ_HM.bas
58 lines (56 loc) · 1.6 KB
/
RAJ_HM.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Attribute VB_Name = "RAJ_HM"
Option Explicit
Public Function Select_Raj_Hm(Raj_Kod As String)
Select Case Raj_Kod
Case "01"
Select_Raj_Hm = "Áłëîăłđńüęčé đŕéîí"
Case "02"
Select_Raj_Hm = "Âłíüęîâĺöüęčé đŕéîí"
Case "03"
Select_Raj_Hm = "Âîëî÷čńüęčé đŕéîí"
Case "04"
Select_Raj_Hm = "Ăîđîäîöüęčé đŕéîí"
Case "05"
Select_Raj_Hm = "Äĺđŕćí˙íńüęčé đŕéîí"
Case "06"
Select_Raj_Hm = "Äóíŕşâĺöüęčé đŕéîí"
Case "07"
Select_Raj_Hm = "˛ç˙ńëŕâńüęčé đŕéîí"
Case "08"
Select_Raj_Hm = "Ęŕě`˙íĺöü-Ďîäiëüńüęčé đŕéîí"
Case "09"
Select_Raj_Hm = "Ęđŕńčëiâńüęčé đŕéîí"
Case "10"
Select_Raj_Hm = "Ëĺňč÷iâńüęčé đŕéîí"
Case "11"
Select_Raj_Hm = "Íîâîóřčöüęčé đŕéîí"
Case "12"
Select_Raj_Hm = "Ďîëîíńüęčé đŕéîí"
Case "13"
Select_Raj_Hm = "Ńňŕđîęîńň˙íňčíiâńüęčé đŕéîí"
Case "14"
Select_Raj_Hm = "Ńňŕđîńčí˙âńüęčé đŕéîí"
Case "15"
Select_Raj_Hm = "Ňĺîôiďîëüńüęčé đŕéîí"
Case "16"
Select_Raj_Hm = "Őěĺëüíčöüęčé đŕéîí"
Case "17"
Select_Raj_Hm = "×ĺěĺđîâĺöüęčé đŕéîí"
Case "18"
Select_Raj_Hm = "Řĺďĺňiâńüęčé đŕéîí"
Case "19"
Select_Raj_Hm = "ßđěîëčíĺöüęčé đŕéîí"
Case "20"
Select_Raj_Hm = "ě.Őěĺëüíčöüęčé - 20"
Case "21"
Select_Raj_Hm = "ě.Ęŕě`˙íĺöü-Ďîäiëüńüęčé"
Case "23"
Select_Raj_Hm = "Ńëŕâóňńüęčé đŕéîí ňŕ ě.Ńëŕâóňŕ"
Case "24"
Select_Raj_Hm = "ě.Íĺňiřčí"
Case "25"
Select_Raj_Hm = "ě.Őěĺëüíčöüęčé"
Case "26"
Select_Raj_Hm = "ě.Řĺďĺňiâęŕ"
End Select
End Function