내 머릿속 데이터베이스

생년월일을 입력하면 오늘까지 몇일이 되었는지 체크하는 함수이다. Function DayofAge(ByVal birthy As Integer, ByVal birthm As Integer, ByVal birthd As Integer) As Integer Dim str_temp As String Dim dte_day As Date str_temp = Str(birthy) & "-" & Str(birthm) & "-" & Str(birthd) dte_day = str_temp DayofAge = Date - dte_day End Function

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

언젠가 선배가 다이어트 관련 프로그램을 제작할 때 옆에서 그래프 함수를 만들어줬었던 기억이 있다. 뭐 효율, 그런거 안따지고 만들었고 좋지 않은 소스일테지만 우연히 다시 발견하여 올린다. Function BioGraph(Target As Shape, ByVal Value As Integer, _ Optional COLOR As Long = vbRed, _ Optional MAX As Integer = 2000, _ Optional BASIC As Integer = 3000) 'Target : 그래프가 될 Shape 객체 'Value : 그래프의 값 (%) 'COLOR : 그래프의 색상 'MAX : 그래프의 최대 너비 (px) 'BASIC : 그래프의 기준점인 가운데 좌표 (px) Target.FillSt..