Fechas

Hola, mire tengo 2 text uno para la fecha actual, y otra es el mismo día pero un mes atrás ya ise que tomara la fecha actual con
thisform.text1.value=Dtoc(date())
Y en el segurndo tex me debe de dar el mismo día pero un mes atrás, ¿cómo le podría hacer?