急求日期格式YWD转化成yyyy-mm-dd,该如何处理

急！求日期格式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函数:

VB code

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

------解决方案--------------------
我5楼早就给了函数，没反映！