Private Sub Command1_Click() '月
DTPicker1.Value = DateAdd("m", -1, Date)
End Sub
Private Sub Command2_Click() '年
DTPicker1.Value = DateAdd("y", -1, Date)
End Sub
Private Sub Command1_Click() '月
DTPicker1.Value = DateAdd("m", -1, Date)
End Sub
Private Sub Command2_Click() '年
DTPicker1.Value = DateAdd("y", -1, Date)
End Sub