Dim st As SYSTEMTIME
Dim b As Long, c As Long, e As Long
st.wYear=2010
st.wMonth=5
st.wDay=6
st.wHour=16
st.wMinute=37
st.wSecond=19
b = (st.wHour *3600) + (st.wMinute *60) + st.wSecond
st.wYear=2010
st.wMonth=5
st.wDay=6
st.wHour=18
st.wMinute=27
st.wSecond=30
c = (st.wHour *3600) + (st.wMinute *60) + st.wSecond
e = st.wHour *3600
e = e + (st.wMinute *60) + st.wSecond