vb 已知某年的第多少天计算这天的日期

[ajunajun]

比如两个文本框中分别为“2015”、“043”，代表2015年的第43天，怎么计算这天的日期，输出格式为“20150212”。

[of123]

Private Sub Command1_Click()
    Dim tmp As Date
    
    tmp = DateAdd("d", Val(Text2), CDate(Text1 & "-01-01")) - 1
    
    Label1 = Format(tmp, "yyyymmdd")
End Sub

[脆皮大雪糕]

且不说直接用函数，这种题目我儿子四年级数学课也要求自己算出来。

[of123]

引用 2 楼 chewinggum 的回复:

且不说直接用函数，这种题目我儿子四年级数学课也要求自己算出来。

哈哈，估计美国小学推荐的方法是在日历上数数。