내 머릿속 데이터베이스

생년월일을 입력하면 오늘까지 몇일이 되었는지 체크하는 함수이다. 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..

출처 : 자근앙마님의 블로그(http://blog.naver.com/essbihan) ======================기본소스===================== rec = Shell("c:\windows\notepad.exe", vbNormalFocus) '메모장 실행 소스 입니다. rec = Shell("abcd.exe", vbNormalFocus) '정확한 파일 위치를 지정해주세야 됩니다. '----- 실행 Dim PROC As Integer PROC = Shell("C:\TEST_PROCESS.exe", AppWinStyle.NormalFocus) '----- 종료 Dim GP As System.Diagnostics.Process GP = System.Diagnostics.Process...

출처 : 넷인터님의 블로그(http://blog.naver.com/netinter) 1. 프로젝트를 컴파일하기 전에, 베이직을 종료하고, 컴퓨터를 재시작하라. 그리고, 프로젝트를 컴파일하게 되면, 메모리에 남아 있는 자질구레한 변수들이 사라지게 되고, 파일 사이즈를 줄일 수도 있다. 2. 프로젝트를 컴파일하기 전에 사용하지 않는 변수와 서브 프로시져, 선언문, 컨트롤 같은것을 제거하라. 이것은 파일크기를 상당히 줄여줄 것이다. 3. 프로그램을 종료할 때는 END문을 사용하라. 프로그램의 종료코드나 QueryUnload이벤트에 End문을 사용하면 프로그램이 메모리에 남아 있지 않도록 해 준다. 4. Variant 변수 사용을 자제하라. 변수를 선언할 때 형식을 지정해 주지 않으면 베이직은 자동으로 그 변수..