首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

一个艰难的有关问题

2012-02-03 
请教各位一个艰难的问题我希望将类似19900805这样的日期自动保存为1990-08-05的形式可是找了很多函数比如C

请教各位一个艰难的问题
我希望将类似19900805这样的日期自动保存为1990-08-05的形式
可是找了很多函数比如Cdata,format等都不行,我不知道是否有其他的函数
我的程序如下:

VB code
Public Const x = "20091224"Public Function wode(x)    Dim a '因为我不知道Isdata()函数参数必须要用什么样的类型,所以没有规定    Dim b    Dim c    Dim sql    a = Mid(x, 1, 4)    b = Mid(x, 5, 2)    c = Mid(x, 7, 2)    sql = "#" & b & "/" & c & "/" & a & "#"    MsgBox sj    If IsDate(sj) = True Then        MsgBox "ok"    Else        MsgBox "no"    End IfEnd Function

程序运行完后Isdata的结果总是返回FALSE,我不知道哪错了?
还有,有什么更好的方法直接将类似19900805这样的日期自动保存为1990-08-05的形式?请大侠们指明?不胜感激!
还有就是#08/05/1999#在VB中输入后直接变成了#8/5/1999#,这样ISDATA()函数就运行成功了

[解决办法]
Debug.Print Format("20111122", "####-##-##")
[解决办法]
用Format,可以百度一下 VB Format,查一下具体的使用方法。会有收获的。

热点排行