'2008.5.31前，普通住宅2%，144㎡以上4%
'2008.6.1-2009.3.19，普通住宅1%，144㎡以上2%
'2009.3.20-2009.12.31，全部1%
'2009.5.11-2009.5.18，优惠期间0%
'不符合条件的全部返回3%
Public Function shuli(srdate As Date, srsqu As Double) As Double
Select Case srdate
Case Is <= #5/31/2008#
If srsqu >= 144 Then
shuli = 0.04
Else
shuli = 0.02
End If
Case #6/1/2008# To #3/19/2009#
If srsqu >= 144 Then
shuli = 0.02
Else
shuli = 0.01
End If
Case #3/20/2009# To #5/10/2009#, #5/19/2009# To #12/31/2009#
shuli = 0.01
Case #5/11/2009# To #5/18/2009#
shuli = 0
Case Is >= #1/1/2010#
shuli = 0.03
End Select
End Function
If IsNull(Me.日期) Or IsNull(Me.面积) Then
MsgBox "日期或面积为空！"
Exit Sub
End If
Me.Text29 = shulu(Me.日期, Me.面积)
Me.Text29.Requery
