VB .net Date数据转换有关问题

VB .net Date数据转换问题


如图 只有月份有问题 其他还都正常

转换函数是用以前写的VB6代码改过来的 找不到问题  月份好像被赋给了一个全局变量 每运行一次，加1

求解释