关于日期转换问题

Question

'-----------
'查询一个月的记录
Text1.Text = Mid(Format(Date, "YYYY/MM/DD"), 6, 2)
Dim lg As Long
lg = CLng(Text1.Text) - 1
Text2.Text = Format(Date, "yyyy/") + Format(CStr(lg), "0/") + Format(Date, "d")
DTPickerQN(0).Value = Text2.Text '这是前一个日期
DTPickerQN(1).Value = Format(Date, "YYYY-MM-DD") '这是最后一个日期查询一个月时间段的记录，由DTPickerQN(0).Value至DTPickerQN(1).Value，获取当前系统日期赋值给DTPickerQN(1).Value，再把当前日期转换了数值类型减1得到前一个月.
现在的问题是，DTPickerQN(0).Value = Text2.Text赋值出错，原先在简体系统是可以的，换了繁体系统，就出错了。报错是说类型不对。

Answer 1

DTPickerQN(1).Value=format(date,"yyyy/MM/dd")
DTPickerQN(0).Value=format(datediff("m",-1,DTPickerQN(1).Value,"yyyy/MM/dd")

Answer 2

DTPickerQN(0).Value=format(datediff("m",-1,DTPickerQN(1).Value),"yyyy/MM/dd")少半个胡