# Re: 请问一个小问题....

Posted by Phoebe on June 04, 1999 at 12:13:27:

In Reply to: Re: 请问一个小问题.... posted by job on June 01, 1999 at 14:56:13:

: : : : 请问各位先进....
: : : : SELECT * FROM TEST1 WHERE TESTDATE=1999/05
: : : : 在 SELECT 的语法中如何搜寻 TESTDATE 栏位符合 1999/05 的日期值
: : : : (* 但所搜寻出的资料是必须包含所有 5 月份的资料)

: : : : THANK..

: : : SELECT * FROM TEST1 WHERE TESTDATE between #1999/05/01# and #1999/5/31#

: : ::但是我的日期是一个变数,且只有显示到月份那我该如何下参数呢?
: : (* 我的变数型态是 maskeditbox 其值为(1999/05) )
: :
: 很简单,str1=maskedit.text & "/01"
: str2=maskedit.text & "/31"
: 这两个变数带进去
: 或用month()这个函数

'************************************************
'Sorry,前面的FromDate and ToDate漏打了"/"啦, 应该这
'样才对.
'************************************************
这样的话, 万一maskeditbox中的不是5月, 就可能会有问题哦..因为不是每个月都有31天呢.

如果这样写, 或许可以吧:

Dim DayOfMonth as integer
Dim Year as integer
Dim Month as integer
Dim FromDate as string
Dim ToDate as string
Dim SQL as string

Year=val(left(MaskEdit.text, 4))

Month=val(right(MaskEdit.text, 2))

DayOfMonth=Day(DateAdd("d", -1, DateAdd("m", 1, _
DateSerial(Year, Month, 1))))

FromDate=" #" & Year &"/" & Month & "/" & "1# "

ToDate=" #" & Year & "/" & Month & "/"& DateOfMonth & "# "

SQL= "SELECT * FROM TEST1 WHERE TESTDATE between" & FromDate & " and " & ToDate

Follow Ups: