主题：[求助]关于农历生日的转换!

For Each r As DataRow In DataTables("个人信息").DataRows

    Dim s As Date = r("出生日期")

    Dim nl As new Lunar(s)

    Dim ns As Date

    ns =  New Date(nl.Year,nl.Month,nl.Day)

    r("农历生日") = ns

Next

提示错误,搞不懂,请求帮助,呵呵!
此主题相关图片如下：qq图片.jpg