'===================================================================================================================== ' 파일 : cCommon.vbs ' 언어 : VBScript ' 설명 : 대부분의 프로그램에서 사용자 인터페이스를 위해 사용되는 함수들 '===================================================================================================================== '**Start Encode** ' 모듈 : 문자 함수 (시작) '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : Trim ' 반환 : String ' 예제 : TrimAll(vStr) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function TrimAll(vStr) TrimAll = Trim(vStr) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : Left Trim ' 반환 : String ' 예제 : TrimLeft(vStr) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function TrimLeft(vStr) TrimLeft = LTrim(vStr) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : Right Trim ' 반환 : String ' 예제 : TrimRight(vStr) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function TrimRight(vStr) TrimRight = RTrim(vStr) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 숫자 자리수 맞추기 ' 반환 : String ' 예제 : NumToStr(vVal, 3) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function NumToStr(vVal, vLen) Dim vStr, vI vStr = "" For vI = 1 To vLen vStr = vStr + "0" Next vStr = vStr + CStr(vVal) NumToStr = Right(vStr, vLen) End Function '--------------------------------------------------------------------------------------------------------------------- ' 모듈 : 문자 함수 (종료) '===================================================================================================================== ' 모듈 : 날짜 함수 (시작) '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 날짜 확인 ' 반환 : Boolean ' 예제 : IsValidDate(vDate) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function IsValidDate(vDate) vDate = Replace(vDate, " ", "") If (IsDate(ToFDate(vDate))) Then IsValidDate = True Else IsValidDate = False End If End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 년 연산 ' 반환 : String ' 예제 : AddYear(vDate, 1) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function AddYear(vDate, vVal) AddYear = DateToStr(DateAdd("yyyy", vVal, ToDate(vDate))) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 월 연산 ' 반환 : String ' 예제 : AddMonth(vDate, -1) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function AddMonth(vDate, vVal) AddMonth = DateToStr(DateAdd("m", vVal, ToDate(vDate))) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 일 연산 ' 반환 : String ' 예제 : AddDay(vDate, 15) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function AddDay(vDate, vVal) AddDay = DateToStr(DateAdd("d", vVal, ToDate(vDate))) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 두 날짜 간의 년 차이 ' 반환 : Number ' 예제 : DiffYear(vSDate, vTDate) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function DiffYear(vSDate, vTDate) DiffYear = DateDiff("yyyy", ToDate(vSDate), ToDate(vTDate)) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 두 날짜 간의 월 차이 ' 반환 : Number ' 예제 : DiffMonth(vSDate, vTDate) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function DiffMonth(vSDate, vTDate) DiffMonth = DateDiff("m", ToDate(vSDate), ToDate(vTDate)) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 두 날짜 간의 일 차이 ' 반환 : Number ' 예제 : DiffDay(vSDate, vTDate) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function DiffDay(vSDate, vTDate) DiffDay = DateDiff("d", ToDate(vSDate), ToDate(vTDate)) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 요일 알기 ' 반환 : Number, (1:일~7:토) ' 예제 : GetWeekDay(vDate) ' 작성 : 2005.05.11 '--------------------------------------------------------------------------------------------------------------------- Function GetWeekDay(vDate) GetWeekDay = DatePart("w", ToDate(vDate)) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 해당 월의 첫 날짜 ' 반환 : String ' 예제 : FirstDate(vDate) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function FirstDate(vDate) FirstDate = Left(UnformDate(vDate), 6) + "01" End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 해당 월의 마지막 날짜 ' 반환 : String ' 예제 : LastDate(vDate) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function LastDate(vDate) LastDate = AddDay(AddMonth(FirstDate(vDate), 1), -1) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 날짜 형식 추가 ' 반환 : String ' 예제 : FormDate(vDate) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function FormDate(vDate) Dim vDateChr vDateChr = GetSystemConfigDateSeparator() Select Case (Len(vDate)) Case 6 vDate = Left(vDate, 2) + ":" + Mid(vDate, 3, 2) + ":" + Right(vDate, 2) Case 8 vDate = Left(vDate, 4) + vDateChr + Mid(vDate, 5, 2) + vDateChr + Right(vDate, 2) Case 14 vDate = Left(vDate, 4) + vDateChr + Mid(vDate, 5, 2) + vDateChr + Mid(vDate, 7, 2) + " " + Mid(vDate, 9, 2) + ":" + Mid(vDate, 11, 2) + ":" + Right(vDate, 2) End Select FormDate = vDate End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 날짜 형식 제거 ' 반환 : String ' 예제 : UnformDate(vDate) ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function UnformDate(vDate) Select Case (Len(vDate)) Case 8 If (Mid(vDate, 3, 1) = ":") Then vDate = Left(vDate, 2) + Mid(vDate, 4, 2) + Right(vDate, 2) End If Case 10 vDate = Left(vDate, 4) + Mid(vDate, 6, 2) + Right(vDate, 2) Case 19 vDate = Left(vDate, 4) + Mid(vDate, 6, 2) + Mid(vDate, 9, 2) + Mid(vDate, 12, 2) + Mid(vDate, 15, 2) + Right(vDate, 2) End Select UnformDate = vDate End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 현재 날짜와 시간 ' 반환 : String, 현재 날짜와 시간 ' 예제 : GetClientDateTime() ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function GetClientDateTime() GetClientDateTime = GetClientDate() + GetClientTime() End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 현재 날짜 ' 반환 : String, 현재 날짜 ' 예제 : GetClientDate() ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function GetClientDate() GetClientDate = DateToStr(Date()) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 현재 날짜 ' 반환 : String, 현재 시간 ' 예제 : GetClientTime() ' 작성 : 2005.01.20 '--------------------------------------------------------------------------------------------------------------------- Function GetClientTime() GetClientTime = TimeToStr(Time()) End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 현재 날짜와 시간 ' 반환 : String, 현재 날짜와 시간 ' 예제 : GetServerDateTime() ' 작성 : 2005.11.11 '--------------------------------------------------------------------------------------------------------------------- Function GetServerDateTime() GetServerDateTime = vServerDateTime End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 현재 날짜 ' 반환 : String, 현재 날짜 ' 예제 : GetServerDate() ' 작성 : 2005.11.11 '--------------------------------------------------------------------------------------------------------------------- Function GetServerDate() GetServerDate = vServerDate End Function '--------------------------------------------------------------------------------------------------------------------- ' 권한 : Public ' 기능 : 현재 날짜 ' 반환 : String, 현재 시간 ' 예제 : GetServerTime() ' 작성 : 2005.11.11 '--------------------------------------------------------------------------------------------------------------------- Function GetServerTime() GetServerTime = vServerTime End Function '--------------------------------------------------------------------------------------------------------------------- ' 모듈 : 날짜 함수 (종료) '===================================================================================================================== ' 모듈 : 내부 함수 (시작) '--------------------------------------------------------------------------------------------------------------------- Function ToFDate(vDate) Select Case (Len(vDate)) Case 8 vDate = Left(vDate, 4) + "-" + Mid(vDate, 5, 2) + "-" + Right(vDate, 2) Case 14 vDate = Left(vDate, 4) + "-" + Mid(vDate, 5, 2) + "-" + Mid(vDate, 7, 2) + " " + Mid(vDate, 9, 2) + ":" + Mid(vDate, 11, 2) + ":" + Right(vDate, 2) Case 10 If (Mid(vDate, 5, 1) <> "-" Or Mid(vDate, 5, 1) <> "/") Then vDate = Left(vDate, 4) + "-" + Mid(vDate, 6, 2) + "-" + Right(vDate, 2) End If Case 19 If (Mid(vDate, 5, 1) <> "-" Or Mid(vDate, 5, 1) <> "/") Then vDate = Left(vDate, 4) + "-" + Mid(vDate, 6, 2) + "-" + Mid(vDate, 9) End If End Select ToFDate = vDate End Function Function ToDate(vDate) ToDate = CDate(ToFDate(vDate)) End Function Function DateToStr(vDate) DateToStr = NumToStr(Year(vDate), 4) + NumToStr(Month(vDate), 2) + NumToStr(Day(vDate), 2) End Function Function TimeToStr(vTime) TimeToStr = NumToStr(Hour(vTime), 2) + NumToStr(Minute(vTime), 2) + NumToStr(Second(vTime), 2) End Function '--------------------------------------------------------------------------------------------------------------------- ' 모듈 : 내부 함수 (종료) '=====================================================================================================================