날짜 임의로 변경시(datetime)

' 날짜 수정할수 있게 하자. 2004-10-15
' 2004-10-16 케케 찾은건가?
'sTime     = formatdatetime(theForm("sTime"),0)    '시간수정?
sTime     = theForm("sTime")    '시간수정?

'Response.Write sTime
'Response.Write "<br>"

sCvtDate = trim(left(sTime,10))
sCvtType = trim(mid(sTime,11,4))
sCvtTime = trim(right(sTime,8))

'Response.Write sCvtDate
'Response.Write sCvtType
'Response.Write sCvtTime

if sCvtType = "오전" then
    'Response.Write "okokok ----------------"
    sCvtDate = sCvtDate & " " & sCvtTime
else
    sH = Cint(trim(left(sCvtTime,2)))
    si = trim(mid(sCvtTime,4,2))
    ss = trim(right(sCvtTime,2))
    sH = sH + 12
    if sH < 10 then
        sH = "0" & sH
    end if
    sCvtTime = sH & ":" & si & ":" & ss
    sCvtDate = sCvtDate & " " & sCvtTime
end if


욕봣다