Obliczanie biorytmu

Czy zna sie ktos na biorytmice? Chodzi mi o to na jakiej zasadzie obliczany jest biorytm, czy jest na to jakis konkretny wzor czy co? Z gory dzieki za wszelkie odpowiedzi...

Ja Się znam :-)

Są 4 rodzaje biorytmów z odpowiednimi okresami:
Fizyczny - 23
Psychiczny - 28
Intelektualny - 33
Subtelnościowy - 38

Obliczanie:

function TForm1.ProcBio(DaysBetween: Integer; BioPom: TBioPom; AfterNoon: Boolean): Integer;
begin
{F:=F-Trunc(F);
F:=F*BioPom;}
Result:=DaysBetween mod BioPom;
If not AfterNoon then
Result:=Result+1;
end;

o afternoon chodzi czy osoba urodziła się po południu, bio pom to jeden z okresów biorytmów, days between to czas od urodzenia do daty na którą oblicza się biorytm, a interpretacja sprowadza się do:

function TForm1.Interprete(Bio: Byte; BioPom: TBioPom): String;
begin
If Bio=BioPom then
begin
result:='-/+';
Exit;
end;
if Bio=Round(BioPom/2) then
begin
Result:='X';
Exit
end;
if Bio>Round(BioPom/2) then
begin
Result:='-';
Exit;
end
else
begin
Result:='+';
end;
end;

bio w zakresie 0..okres liczonego biorytmu, jakby co to mam gotowy program

DZIEKI!!

http://wacki.pozyton.net.pl/biorytmy/index.php
Sorki za spam ale to bylo konieczne do rozwiazania mojego problemu :/ to tylko odnosnik nie zadna treklama mojej sieci... Konkretnie chodzi mi o taki biorytm... 3 biorytmy oblicza... Jedyna dana jest data urodzenia klienta :) Na phpie kompletnie sie nie znam wiec nie bijcie mnie ze nie zagladnalem do skryptu (a mam ten skrypcik)