主题：日期计算

当前月份向前推12个月，代码怎么赋值呢 

Dim y As Integer = Date.Today.Year
        Dim dt1 As New Date(y, 1, 1)（这个代码怎么赋值呢）
        Dim dt2 As New Date(y, 12, 31)
当期日期向前推365天，怎么赋值？ 谢谢