내 머릿속 데이터베이스

오래전에 짠 소스라 각각의 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 * P..