본문 바로가기
개발언어/VB

현재 시스템 시간을 구하는 함수

by 엔돌슨 2007. 12. 27.
반응형
mssql 에서 gettime()라는 함수가 있다
select getdate() as date
출력결과 : 2007-12-27 16:45:38.470


이함수를 이용하여 vb에서 mssql 함수를 실행하여 현재 시간을 구할수 있다
[CODE]
select substring(replace(replace(replace(convert(varchar(17),getdate(),20),'-',''),':',''),' ',''),1,12)  as sysdate
[/CODE]

출력결과: 200712271646
날짜 시 분 초 로 숫자만 나오게 하였다 ~


VB에서 함수화를 하면
[CODE]
Public Function GetSysDate(Optional returnlength As Integer = 8) As String
 
    Dim SQL As String
    Dim RS_tmp As rdoResultset
 
    SQL = SQL & " select substring(replace(replace(replace(convert(varchar(17),getdate(),20),'-',''),':',''),' ',''),1,12)  as sysdate1"
    Set RS_tmp = cdb.OpenResultset(SQL, rdOpenKeyset, rdConcurValues)
      
    If Not RS_tmp.EOF Then
        GetSysDate = checkNull(RS_tmp!sysdate1)
    End If
    RS_tmp.Close
    Set RS_tmp = Nothing
       
    If returnlength = 8 Then
        If Len(GetSysDate) <> 8 Then GetSysDate = Format(Date, "YYYYMMDD")
    End If
 
End Function
[/CODE]