Tool to calculate the value of alphabets

[nj.astrology]

I am trying to make a tool for numerology. Every number has a specific value. I have attached an xls to show what I want to get.

I can use access to calculate and then I can export it to xls. Attached is the document which shows the look up values of all alphabets from A - z and their values.
How these numbers are used to calculate the values of Infosys or Infsys Ltd.

Example
Infosys Ltd
Infosys = 1587313 . add all numbers = 28
Ltd = 344 . add 3, 4, 4, and get 11
Then add 28 + 11 to get39


then add 3 + 9 to get 12 and then add 1 + 2 to get 3.

[nj.astrology]

Anyone can you help

[maximus]

I donot have a vivid understanding of numerology but this is what I understand from your post.

1) Each alphabet has a numeric value.
2) The total numeric value is calculated by summing up all the value of the characters in the string.
3) If the Result is a number of 1 digit then the process ends there and the value is the numerology number.
4) If the result is a two digit number or more the digits have to be added to find there sum this process will continue till we have a single digit number.

e.g Infosys LTD is a classic example:

Sum of alphabets of each word=1587313 344
Total=39
then again 3+9=12
then again 1+2=3

Three is the number required.

with this understanding i have proceeded and here is the codes:

Here the code below calculates the character value and gives the intial sum. Now the last part of the code is very important and is bolded and highlighted in red. This part of the code does the following:

1) Checks if the Character value is less than 10
2) If more than or = to 10 it passes the sum on to another function result which breaks the sum into its individual digits and calculates the sum. This is done through a loop and the process continues While MySum >=10. The proccess is stoped as soon as a single digit numerology number is isolated.

Option Compare Database
Option Explicit
Dim Mystring As String
Dim Mylength As Integer
Dim MyAlpha As String
Dim MyInteger As Integer
Dim MySum As Integer
Dim Counter As Integer
Dim dd As Integer
Function Numerology(Mystring) As Integer
If IsNull(Mystring) Then
Exit Function
End If
MySum = 0
Mylength = Len(Mystring)
For Counter = 1 To Mylength
MyAlpha = Right$(Left$(Mystring, Counter), 1)
If MyAlpha <> " " Then
Select Case MyAlpha
Case Is = "A"
MyInteger = 1
Case Is = "B"
MyInteger = 2
Case Is = "C"
MyInteger = 3
Case Is = "D"
MyInteger = 4
Case Is = "E"
MyInteger = 5
Case Is = "F"
MyInteger = 8
Case Is = "G"
MyInteger = 3
Case Is = "H"
MyInteger = 5
Case Is = "I"
MyInteger = 1
Case Is = "J"
MyInteger = 1
Case Is = "K"
MyInteger = 2
Case Is = "L"
MyInteger = 3
Case Is = "M"
MyInteger = 4
Case Is = "N"
MyInteger = 5
Case Is = "O"
MyInteger = 7
Case Is = "P"
MyInteger = 8
Case Is = "Q"
MyInteger = 1
Case Is = "R"
MyInteger = 2
Case Is = "S"
MyInteger = 3
Case Is = "T"
MyInteger = 4
Case Is = "U"
MyInteger = 6
Case Is = "V"
MyInteger = 6
Case Is = "W"
MyInteger = 6
Case Is = "X"
MyInteger = 5
Case Is = "Y"
MyInteger = 1
Case Is = "Z"
MyInteger = 7
End Select
MySum = MySum + MyInteger
End If
Next Counter
If MySum < 10 Then
Numerology = MySum
Else
Do While MySum >= 10
dd = Result(MySum)
MySum = dd
Loop
Numerology = MySum
End If
End Function

The second function:

This function breaks the Mysum Value into its digits and finds the sum of the digits.

Option Compare Database
Option Explicit
Dim intCounter As Integer
Dim intMyNumber As Integer
Dim intMySum As Integer
Dim intMyinteger As Integer
Function Result(intMyNumber) As Integer
If IsNull(intMyNumber) Then
Exit Function
End If
intMySum = 0
For intCounter = 1 To Len(intMyNumber)
intMyinteger = Right$(Left$(intMyNumber, intCounter), 1)
intMySum = intMySum + intMyinteger
Next intCounter
Result = intMySum
End Function


I am attaching a sample with this post. Download the same and open it a start form Form4 will open type the string in the first text box and then click on the second textbox u will see the numerology number appear in the second text box.

Please mark this thread solved if your problem is resolved

[maximus]

were you able to solve your problem if yes mark this thread solved

[nj.astrology]

were you able to solve your problem if yes mark this thread solved

Thank you . Though 3 is the number required, I need to see others numbers also.

Example a = 1, b = 2, c = 3 , d = 4 , e = 5, f = 6

Col 1 says ABC DEF
Col 2 should display 123 456 ( separated by a space)
Col 3 should display 6 15
Col 4 should display 6 6
Col 5 should display 3 ( 6 + 6 = 12, 1 + 2)

In this way, I have 5000 names. It is a one time shot

I apologize for the trouble. THe form opens up but when I click the numerology number nothing happens.

[maximus]

First of all let me tell u how the sample works:

When u type the name in the "Type the string here" text box then on clicking the "Numerology Number" Textbox ur final numerology number will appear:

Example: if you type Infosys Ltd in the First text box and click the second textbox the number 3 will appear in it. The sample was not designed to display all the data. Clicking on the second text box AFTER U HAVE ENTERED A NAME IN TH FIRST TEXT BOX WILL GIVE YOU THE FINAL NUMEROLOGY NUMBER.

Now about what u want:
To display the Numerical value of all the Numbers u can Declare a string variable and store the values in it when the Loops run. This can be then displayed in the order you want them.


well this will require some modification of the code try it out. If you need my help please contact me on the email address given in my signature. Note send your email in both the ids.