graviz
Registered User.
- Local time
- Yesterday, 22:28
- Joined
- Aug 4, 2009
- Messages
- 167
I created two functions to use when I'm pulling data using a query (QBE). I would like to combine the two into a 3rd Function that works like this:
BB_Only = DishNetActivityCode = 1 and VideoActivityCode = 0
Hybrid = DishNetActivityCode = 1 and VideoActivityCode = 1
V_Only = DishNetActivityCode = 0 and VideoActivityCode = 0
Function DishNetActivityCode(service_code_string As String) As Integer
Dim CodeArray, i As Integer
CodeArray = Array("60", "64", "74", "8.", "~R", "R=")
For i = 0 To UBound(CodeArray)
If InStr(service_code_string, CodeArray(i)) Then
DishNetActivityCode = 1
Exit Function
End If
Next
DishNetActivityCode = 0
End Function
Function VideoActivityCode(service_code_string As String) As Integer
Dim CodeArray, i As Integer
CodeArray = Array("6;", "62", "73", "77", "78", "79", "-8", "82", ";$", "<2", "2~")
For i = 0 To UBound(CodeArray)
If InStr(service_code_string, CodeArray(i)) Then
VideoActivityCode = 1
Exit Function
End If
Next
VideoActivityCode = 0
End Function
I hope this explains what I'm trying to do. Any ideas?
BB_Only = DishNetActivityCode = 1 and VideoActivityCode = 0
Hybrid = DishNetActivityCode = 1 and VideoActivityCode = 1
V_Only = DishNetActivityCode = 0 and VideoActivityCode = 0
Function DishNetActivityCode(service_code_string As String) As Integer
Dim CodeArray, i As Integer
CodeArray = Array("60", "64", "74", "8.", "~R", "R=")
For i = 0 To UBound(CodeArray)
If InStr(service_code_string, CodeArray(i)) Then
DishNetActivityCode = 1
Exit Function
End If
Next
DishNetActivityCode = 0
End Function
Function VideoActivityCode(service_code_string As String) As Integer
Dim CodeArray, i As Integer
CodeArray = Array("6;", "62", "73", "77", "78", "79", "-8", "82", ";$", "<2", "2~")
For i = 0 To UBound(CodeArray)
If InStr(service_code_string, CodeArray(i)) Then
VideoActivityCode = 1
Exit Function
End If
Next
VideoActivityCode = 0
End Function
I hope this explains what I'm trying to do. Any ideas?