vb 筛选日期

日期字段自然要用日期类型（datetime）啦。选择一个时间范围的语句可以这样写：

select * from 表 where 日期 between #2011/10/1# and #2012/12/30#

这里的between，是SQL中指定范围的运算符，具体请参考下面的说明信息：

语法

test_expression [ NOT ] BETWEEN begin_expression AND end_expression

备注

若要指定排他范围，请使用大于 () 和小于 () 运算符。如果任何 BETWEEN 或 NOT BETWEEN 谓词的输入为 NULL，则结果为 UNKNOWN。

参数

test_expression

要在由 begin_expression 和 end_expression 定义的范围内测试的表达式。test_expression 必须与 begin_expression 和 end_expression 具有相同的数据类型。

NOT

指定谓词的结果被取反。

begin_expression

任何有效的表达式。begin_expression 必须与 test_expression 和 end_expression 具有相同的数据类型。

end_expression

任何有效的表达式。end_expression 必须与 test_expression 和 begin_expression 具有相同的数据类型。

AND

用作一个占位符，指示 test_expression 应该处于由 begin_expression 和 end_expression 指定的范围内。

结果类型

Boolean

结果值

如果 test_expression 的值大于或等于 begin_expression 的值，并且小于或等于 end_expression 的值，则 BETWEEN 返回 TRUE。

如果 test_expression 的值小于 begin_expression 的值或者大于 end_expression 的值，则 NOT BETWEEN 返回 TRUE。

关于VB选日期的问题

应为：

Data1.RecordSource = "select * from 记录 where 时间 = #" Text1.Text "#"

当月的：

Data1.RecordSource = "select * from 记录 where year(时间) month(时间)=" Format(Text1, "yyyym")

或：

Data1.RecordSource = "select * from 记录 where year(时间) =" Year(Text1) " and month(时间)=" Month(Text1)

而且没有当月1号的：

Data1.RecordSource = "select * from 记录 where year(时间) month(时间)=" Format(Text1, "yyyym") " and day(时间)1"

示例：

Private Sub Command1_Click()

Data1.RecordSource = "select * from 记录 where year(时间) month(时间)=" Format(Date, "yyyym") " and day(时间)1"

Data1.Refresh

Cls

With Data1.Recordset

Do While Not .EOF

For i = 0 To .Fields.Count - 1

Print .Fields(i),

Next

Print

.MoveNext

Loop

End With

End Sub

VB中日期控件如何使用

DateTimePicker控件使您可以提供格式化的日期字段，使得进行日期选择很容易。另外，用户还可以从类似于MonthView控件的下拉式日历界面中选择日期。

DateTimePicker控件，有两种操作模式：

下拉式日历模式（缺省）—允许用户显示一种能够用来选择日期的下拉式日历。

时间格式模式—允许用户在日期显示中选择一个字段（例如：月、日、年等等），按下控件右边的上下箭头来设置它的值。

可以自定义控件的下拉式日历的外观。使用各种颜色属性，例如CalendarBackColor、CalendarForeColor、CalendarTitleBackColor、CalendarTitleForeColor和CalendarTrailingForeColor，允许创建属于您自己的颜色方案。

DateTimePicker控件是ActiveX控件组的一部分，包含在 MSCOMCT2.OCX 文件中。要在应用程序中使用DateTimePicker控件，必须将 MSCOMCT2.OCX 文件加入到工程之中。

VB如何设计选择日期和时间并填入文本框？

Private Sub DTPickerEta_Click()

TXTETA.Locked = False

TXTETA.Text = DTPickerEta.Value "/" ComboEtaHour.Text ComboEtaMinute.Text

TXTETA.Locked = True

End Sub

Private Sub DTPickerEta_Change()

TXTETA.Locked = False

TXTETA.Text = DTPickerEta.Value "/" ComboEtaHour.Text ComboEtaMinute.Text

TXTETA.Locked = True

End Sub

Private Sub ComboEtahour_Click()

TXTETA.Locked = False

If ComboEtaHour.ListIndex 0 Then

If ComboEtaMinute.Text "" Then '有“时”有“分”，显示日期时间

TXTETA.Text = DTPickerEta.Value "/" ComboEtaHour.Text ComboEtaMinute.Text

Else

ComboEtaMinute.ListIndex = 1 '有“时”则必有“分”，最小默认“分”为“0”，显示时间日期

TXTETA.Text = DTPickerEta.Value "/" ComboEtaHour.Text ComboEtaMinute.Text

End If

Else

ComboEtaMinute.ListIndex = 0 '无“时”则无“分”，只显示日期

TXTETA.Text = DTPickerEta.Value "/"

End If

TXTETA.Locked = True

End Sub

Private Sub ComboEtaMinute_Click()

TXTETA.Locked = False

If ComboEtaMinute.ListIndex 0 Then

If ComboEtaHour.Text "" Then '有“分”有“时”，显示日期时间

TXTETA.Text = DTPickerEta.Value "/" ComboEtaHour.Text ComboEtaMinute.Text

Else

ComboEtaHour.ListIndex = 1 '有“分”则必有“时”，最小默认“时”为“0”，显示日期时间

TXTETA.Text = DTPickerEta.Value "/" ComboEtaHour.Text ComboEtaMinute.Text

End If

Else

If ComboEtaHour.Text "" Then '无“分”但有“时”，最小默认“分”为“0”，显示日期时间

ComboEtaMinute.ListIndex = 1

TXTETA.Text = DTPickerEta.Value "/" ComboEtaHour.Text ComboEtaMinute.Text

Else '无“分”也无“时”，只显示日期

TXTETA.Text = DTPickerEta.Value "/"

End If

End If

TXTETA.Locked = True

End Sub