Gruppe
Matrix
Problem
Anzahl und Summe sollen unter Berücksichtigung von 2 Kriterien ermittelt werden.
StandardModule: basMain
Function Ph700(sTxt As String) As String
Dim iCounter As Integer, iChr As Integer
Dim sTmp As String
sTxt = UCase(sTxt)
For iCounter = 1 To 8
iChr = Asc(Mid(sTxt, iCounter, 1)) - 64
Select Case iChr
Case Is < 19
sTmp = sTmp & Fix((iChr - 1) / 3) + 2
Case Is < 26
sTmp = sTmp & Fix((iChr - 2) / 3) + 2
Case Else
sTmp = sTmp & Fix((iChr - 3) / 3) + 2
End Select
Next iCounter
Ph700 = "0700-" & sTmp
End Function