急！求日期格式YWD转化成yyyy-mm-dd
我已经写了个函数 VBA
yyyy-mm-dd转化成 YWD（年，一年中的第几周"vbFirstFourDays"，一周中的第几天"vbMonday"）
2010-01-12 YWD 2010022
现在 2010022 转会2010-01-12不会写了
求教高手！！！！
[解决办法]
友情帮顶。。。
[解决办法]
木有下文了。。。
[解决办法]
楼上理解错误...
2010-01-12 YWD 2010022 的意思是将日期2010-01-12 转换为对应的年（Y=2010）周（W=02）这一周的第几天（D=2），合起来即：2010022
他求助的是如何再将这个YWD格式转换回对应的日期...
只是查了一下好象2010-1-12应该是第三周，不知楼主的 YWD是如何换算的...
[解决办法]
大概看了下你的函数,感觉你有自己的显示逻辑,一下没转过弯来...
想了个比较笨但比较保险的方法,就是利用你自己的getYWD函数:
Function YWDToDate(YWD) As Date
Dim y As Long, w As Long
Dim dt As Date
Dim i As Date
y = YWD \ 1000
w = (YWD Mod 1000) \ 10
dt = DateSerial(y, 1, 1)
For dt = DateAdd("ww", w - 1, dt) To DateAdd("ww", w + 1, dt)
If getYWD(Year(dt), Month(dt), Day(dt)) = YWD Then
Exit For
End If
Next
YWDToDate = dt
End Function
