在VB中将数值型2004819转换成2004年8月19日的日期格式

[ypshilh]

刚接触vb就遇到一个问题，在VB中将数值型2004819转换成2004年8月19日的日期格式，如何转换请高手帮忙，谢谢!

[vbman2003]

你的规则不明确，比如2001119转成什么日子？
如果是8位，问题到不大，比如
20040819

dim s as string
s="20040819"
s=format(s,"####-##-##")
if isdate(s) then s=format(s,"yyyy年mm月dd日")

[ypshilh]

是这样的，我要从text1中输入的字符串中取出日期得到系统日期与取出来的日期相差的天数，比如我输入QM11043723123,其中0437代表2004年37周，我将这个转换成了20040819

[Tiger_Zhao]

自己拆成3段，然后用函数 DateSerial(2004,8,19) 可以得到日期值。

[ypshilh]

但是在我的程序中2004,8,19都是变量不固定的，

[ypshilh]

我的变量是这样定义的
m = "20"
a = date
b = Text1.Text
c = Mid(b, 5, 2)
d = Int((Mid(b, 7, 2) * 7) / 30)
f = (Mid(b, 7, 2) * 7) Mod 30
q = Str((m & c & d & f))

[ypshilh]

d = Int((Mid(b, 7, 2) * 7) / 30) 得到的是一个不如说是8，用什么函数可以得到08呢

[diablofriend]

?DateAdd("d", 7*37, cdate("2004/01/01 00:00:00"))
?format(format("2004/09/16","yyyymmdd"),"0000年00月00日")
希望这样可以给你一点启发！

[bbhere]

format函数

[diablofriend]

format(d，“00”)

[Tiger_Zhao]

自己哪个日历数数，周数算错了，应该这样：

Private Sub Command1_Click()
    Dim y As Integer, w As Integer, dt As Date
    y = CInt(Mid(Text1.Text, 5, 2))
    w = CInt(Mid(Text1.Text, 7, 2))
    dt = DateAdd("ww", w - 1, DateSerial(y, 1, 1)) '1月1日为第一周
    MsgBox dt
End Sub

[ypshilh]

谢谢Tiger_Zhao你了，我要将dt的结果与系统当前日期相减，将得到的值显示成周数呢,该怎么写？谢谢!

[ypshilh]

谢谢了

[波导终结者]

直接Date类型相减，得到天数，除七不就是周数了

[ypshilh]

谢谢。可以了

[Tiger_Zhao]

请少应该将 MSDN 中“Visual Basic 文档\参考\语言参考\函数”目录下浏览一遍，对 VB 基础函数的功能有个印象。

DateDiff("ww", dt, Date())

[meiZiNick]

都是很好的建议! 值得学习

[knowledge_Is_Life]

有点难度哦