Dim B As String
txttm = "20" & Left(Txtnik, 2)
Txtal = Mid(Txtnik, 3, 2)
B = Mid(Txtnik, 6, 1)
If B = "A" Then
Txtjab = "Staff Pemerintah"
Txtgj = "800.000"
Txttun = "50.000"
ElseIf B = "B" Then
Txtjab = "Staff Umum"
txttgj = "1100.000"
Txttun = "80.000"
ElseIf B = "C" Then
Txtjab = "Staff kesejahteraan"
txttgj = "1300.000"
Txttun = "100.000"
ElseIf B = "D" Then
Txtjab = "Staff pendapatan"
txttgj = "1500.000"
Txttun = "110.000"
ElseIf B = "E" Then
Txtjab = "Staff keamanan"
txttgj = "500.000"
Txttun = "30.000"
End If
B = Right(Txtnik, 3)
If B = "001" Then
Txtwilker = "Kemuning & muara dua"
ElseIf B = "002" Then
Txtwilker = "batu Bedil & Tekad"
ElseIf B = "003" Then
Txtwilker = "talang jawa & tanjung rejo"
ElseIf B = "004" Then
Txtwilker = "penantian & sindang Marga"
ElseIf B = "005" Then
Txtwilker = "pulaupanggung & talang tebat"
End If
Txtgatot = Val(Txtgj) + Val(Txttun)
End Sub