Obliczanie wibracji numerologicznej - EXCEL :)

[Quasi]

Dzień dobry ;)

Takiego wątku chyba jeszcze nie było :). Dla niezorientowanych w
temacie - wibrację numerologiczną oblicza się poprzez dodanie do
siebie wszystkich pojedynczych cyfr daty urodzenia np. moja data to
27.12.1980 więc 2+7+1+2+1+9+8=30 3+0=3.

Jaka formuła pozwoliłaby obliczyć taką wibrację? W każdym przypadku
powinna nam wyjść liczba z przedziału 1-9 - wyjątkiem są wibracje
mistrzowskie czyli 11,22,33 i 44 które możemy uzyskać po zsumowaniu
dnia, miesiąca i roku urodzenia.

Pozdrawiam :)

[Marek]

To siê fachowo nazywa "Zastosowanie komputera w uk³adzie G-G"
(G... na wej¶ciu i g... na wyj¶ciu)

[Quasi]

??????????????????

[Tajan]

Post by Quasi
??????????????????

No to w wolnej chwili robimy to GG :-)
Formuła obliczjąca sumę cyfr daty urodzenia:

=SUMA(1*(FRAGMENT.TEKSTU(TEKST(A1;"ddmmrrrr");WIERSZ($1:$8);1)))

(oczywiście, tablicowa!) oraz następna, wyliczająca z tej sumy wibrację:

=JEŻELI(LUB(B1={11;22;33;44});B1;LEWY(B1;1)+PRAWY(B1;1))

Chyba coś takiego?

Tajan

[Tajan]

Post by Tajan

Post by Quasi
??????????????????

No to w wolnej chwili robimy to GG :-)
=SUMA(1*(FRAGMENT.TEKSTU(TEKST(A1;"ddmmrrrr");WIERSZ($1:$8);1)))

Zakładam, że data jest w poprawnym typem daty Excela.

Tajan

[Quasi]

Good job :)

Tylko jest jeszcze jedna sprawa - te wibracje mistrzowskie dotyczą
tylko sumy cyfr daty urodzenia czyli tej pierwszej formuły, jeżeli
wyjdzie np. 38 to potem już liczymy dodając wszystko czyli 3+8 = 11
1+1=2

Szacunek! ;)

[exhuma]

Post by Quasi
Good job :)
Tylko jest jeszcze jedna sprawa - te wibracje mistrzowskie dotyczą
tylko sumy cyfr daty urodzenia czyli tej pierwszej formuły, jeżeli
wyjdzie np. 38 to potem już liczymy dodając wszystko czyli 3+8 = 11
1+1=2
Szacunek! ;)

A może by tak skorzystać raczej z VBA ?!

Public Function VibNum(AValue As String) As String

Dim St As String
Dim i As Integer
Dim ch As String * 1
Dim Sum As Integer

' odcedź wszystkie znaki z wyjątkiem cyfr
St = ""
For i = 1 To Len(AValue)
ch = Mid(AValue, i, 1)
If IsNumeric(ch) Then
St = St & ch
End If
Next i

' właściwa pętelka
Do
Sum = 0
For i = 1 To Len(St)
ch = Mid(St, i, 1)
If IsNumeric(ch) Then
Sum = Sum + Val(ch)
End If
Next i
St = Format(Sum)
Loop Until St = "11" Or St = "22" Or St = "33" Or St = "44" Or
Len(St) < 2

VibNum = St

End Function