Dim flt As String
Dim FirstDay,LastDay,Mind1,Maxd2 As Date
Dim dt1 As DataTable = DataTables("明细表")
FirstDay
= New
Date(2008,2,1)
'第一天
LastDay
= New
Date(2008,2,Date.DaysInMonth(2008,2))
flt = "日期 >= #" & FirstDay & "# and 日期<= #" & LastDay & "#"
Maxd2 = dt1.Compute("Max(日期)",flt)Mind1=dt1.Compute("Min(日期)",flt)
至於寫在哪裡,看幫助吧,總不能新娘都娶回來了,郤不會揭頭蓋吧?