主题：时间段金额计算

参考代码

Dim n as integer = 18
Dim dr As DataRow = DataTables("表B").find("")
Dim sum As Double = 0
If n > 15 Then
    sum = (n-15)*dr("费率3")+5*dr("费率2")+5*dr("费率1")
ElseIf n >10 Then
    sum = (n-5)*dr("费率2")+5*dr("费率1")
ElseIf n > 5
    sum = 5*dr("费率1")
End If