一个关于日期计算和自动录入的问题

xsm361

在窗体中有两个文本框T1和T2，用来输入日期，T2默认为当前的系统日期DATE()。
？＝
如果T2的日期月份为1－9，则年份－1，并将日期(年份－1/10/1)作为T1的默认值,
如果T2的日期月份为10－12，则年份不变，并将日期（年份/10/1)作为T1的默认值。
主要问题两个：1、日期的计算；2、数值的自动录入。
非常谢谢！

wufeng980114

if month（date）>0 AND month（date）<10 THEN Text1= (YEAR(DATE)-1) & "/" & "10" & "/" & "1" elseif month（date）>9 AND month（date）<13 THEN Text1= (YEAR(DATE)-1) & "/" & "10" & "/" & "1" end if

xsm361

谢谢指点.