VB访问数据库时，怎样将时间取值为当前时间的前一天。请高手赐教。必有重谢。

Question

之前定义当前时间是这样写的：

Dim CurrentTime As String

，请问在此基础上怎么修改？

Answer 1

如果是问,要取得当前系统日期的前一天，vlaoda 已经回答了，不过稍做修改，可以去除时间。
Dim Y As Date
Y = Format(Now - 1 ,"Short Date")

在数据库操作中，经常会遇到日期或时间类型的数据处理，VB的特点，要构造日期类型常量，要用#号括起来，例如：
Dim D As Date
D = #7/9/2012#
容易错误的是，会用双引号扩起来，我们知道双引号扩起来的是字符类型。

在用VB操作数据库进行查询时，若遇到日期类型的查询，例子如下：
要查询出生日期在1982年7月9日至2012年7月9日之间（不包括这两天）的记录，
SQL语句可以是如下：
Select * From 数据表名 Where 出生年月>#7/9/1982# And 出生年月<#7/9/2012#"

追问

试过了，都是编译错误啊，无效外部过程。
我是在用VB啊。在VB里这么写行么？我是新手，完全蒙圈了。

追答

请你把你错误代码,发上来分析,并说情你要做什么?

Answer 2

数据库中基本都提供日期运算的函数，不同有数据库使用的函数可能不同。
比如：SQL Server
1. 当前系统日期、时间
select getdate()
2. dateadd 在向指定日期加上一段时间的基础上，返回新的 datetime 值
例如：向日期加上2天
select dateadd(day,2,'2004-10-15')
那么你可以将这两个函数结合使用select dateadd(day,-1,getdate())就是你想要的结果
如果是在程序中处理可以使用DateAdd函数

Answer 3

dim 前一天 as date
前一天=now-1

回答补充：
cdate（CurrentTime）可以转换床日期型数据

Answer 4

dim YesToday
YesToday= DateAdd("d", -1, Date)

追问

编译错误啊，无效外部过程

追答

这个是VB的代码，不是sql 的。

Answer 5

取当前的时间，估计剩下的就只能自己计算了