用VB取得系统前一天的日期,要String型,格式如"2012-05-02"

[pxhubu]

我想在VB里面得到系统前一天的日期,比如今天是2012年5月5日,那我想得到String型的2012-05-04.以此类推...
定义 Dim searchPattern As String,存放此类字符串.同志们,怎么写啊??

[myjisgreat]

dim a as string
a=format(date-1,"yyyy-mm-dd") 'Date是VB内部变量，表示系统日期

[贝隆]

Option Explicit

Private Sub Command1_Click()
    Dim searchPattern As String
    Dim strNow As String
    strNow = Now
    strNow = Format(Now, "YYYY-MM-DD")
    Debug.Print strNow
    searchPattern = Format(DateAdd("D", -1, strNow), "YYYY-MM-DD")
    Debug.Print searchPattern
End Sub

[思考]

Dim searchPattern As String
searchPattern = Format(Now - 1, "yyyy-mm-dd")
MsgBox searchPattern

[jhjinpei]

searchPattern=format(dateadd("d",-1,date$),"YYYY-MM-DD")

[还有人用VB6吗]

searchPattern =dateadd("d",-1,date),"YYYY-MM-DD"

[王二.麻子]

无语了,
vb
vb6
vb.net
vb.net脚本

请明白人解释吧.

[pxhubu]

哎,不好意思啊,是我没有说清楚.我是要做一个数据仓库,要分析tomcat日志文件,每天要读取前一天的日志文件(txt格式)到数据库,比如今天是2012-05-07,那我今天就得把2012-05-06.txt文件加载到数据库中.我在微软提供的SSIS里面,需要用到VB.NET脚本.其实vb啥的我也不懂.见谅.所以现在就想得到类似于2012-05-06.txt的String变量.哎,帮帮忙啊.[Quote=引用 12 楼 的回复:]
无语了,
vb
vb6
vb.net
vb.net脚本

请明白人解释吧.
[/Quote]

[choovy123]

楼主好坑爹啊......

[王二.麻子]

[Quote=引用 14 楼 的回复:]

楼主好坑爹啊......
[/Quote]
不是一般的坑呀,估计把大家的代码都贴坑里了.

lz是否安装了vb6?

[whqcx]

Format(Now - 1, "yyyy-mm-dd")

[pxhubu]

能不能给我一个完整的啊,这个总是提示Debug未声明.我最后其实想得到2012-05-04.txt 这种String,先把2012-05-04赋给searchPattern,然后和.txt合并成一个字符串,能不能写个完整的程序啊.我不懂VB,谢谢了.给个完整的.[Quote=引用 2 楼 的回复:]
VB code

Option Explicit

Private Sub Command1_Click()
Dim searchPattern As String
Dim strNow As String
strNow = Now
strNow = Format(Now, "YYYY-MM-DD")
Debug.Print strNow
……
[/Quote]

[pxhubu]

大哥,你测试过没啊,不行啊.[Quote=引用 4 楼 的回复:]
searchPattern=format(dateadd("d",-1,date$),"YYYY-MM-DD")
[/Quote]

[pxhubu]

提示"-"没定义,哎,给个靠谱的答案啊.[Quote=引用 6 楼 的回复:]
Format(Now - 1, "yyyy-mm-dd")
[/Quote]

[王二.麻子]

LZ你用的是VB吗?你确定是VB?"-"没定义...运算符嘛

Dim a As Date
Dim b As String
a = Now - 1
b = Format(a, "YYYY-MM-DD")
Debug.Print a
Debug.Print b
b = b & ".TXT"
Debug.Print b

[pxhubu]

需要用VB.NET脚本语言来读取得到2012-05-05.txt格式的字符串.我是做java web的现在做一个数据仓库,需要每天读取前一天的txt文件,所以需要写一个VB.net脚本,我根本不会啊.a = Now - 1这一句,编译器提示"没有为类型DATE和Integer定义运算符-",你这个还是不行啊.郁闷.[Quote=引用 10 楼 的回复:]
LZ你用的是VB吗?你确定是VB?"-"没定义...运算符嘛

Dim a As Date
Dim b As String
a = Now - 1
b = Format(a, "YYYY-MM-DD")
Debug.Print a
Debug.Print b
b = b & ".TXT"
Debug.Print b
[/Quote]