관리 메뉴

내 머릿속 데이터베이스

바이오리듬 구하는 함수 본문

Programming/VB/VB.NET

바이오리듬 구하는 함수

Namioto 파도소리 2007. 2. 8. 18:14

오래전에 짠 소스라 각각의 mode가 무엇을 나타내는지 잊어버렸다 ^^;

뭐 흔히 쓰는 순서.. 그 차례대로 모드를 부여했으니.. 다시 알아내긴 쉬울듯..

Function BioRhythm(ByVal Mode As Integer, _
                    ByVal Year As Integer, _
                    ByVal Month As Integer, _
                    ByVal Day As Integer)
                   
Const PI As Double = 3.141592654
Dim i As Integer

Select Case Mode
  Case 0:
    i = 23
  Case 1:
    i = 28
  Case 2:
    i = 33
Default:
    i = 1
End Select

    BioRhythm = Sin((DayofAge(Year, Month, Day) / i) * 2 * PI) * 100

End Function

0 Comments
댓글쓰기 폼