내 머릿속 데이터베이스

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

오래전에 짠 소스라 각각의 mode가 무엇을 나타내는지 잊어버렸다 ^^;뭐 흔히 쓰는 순서.. 그 차례대로 모드를 부여했으니.. 다시 알아내긴 쉬울듯.. Function BioRhythm(ByVal Mode As Integer, _                    ByVal Year As Integer, _       ..

언젠가 선배가 다이어트 관련 프로그램을 제작할 때 옆에서 그래프 함수를 만들어줬었던 기억이 있다.뭐 효율, 그런거 안따지고 만들었고 좋지 않은 소스일테지만 우연히 다시 발견하여 올린다. Function BioGraph(Target As Shape, ByVal Value As Integer, _                  Optional COLOR As Long ..

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

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