前言：这两个窗体代码逻辑基本类似，开始正文

逻辑图：

重要代码展示：
从下机来说下机时间的确定是一个承上启下的作用

    basicSQL = "select * from BasicData_Info "   ’连接基本数据表
    Set basicmrc = ExecuteSQL(basicSQL, basicText)
    If onlinemrc.RecordCount = 0 Then            '处理3021
       Exit Sub 
    Else
        txtConsume.Text = DateDiff("n", onlinemrc.Fields(9), Format(Now, "yyyy/mm/dd h:mm:ss"))'判断时间间隔
        If Val(txtConsume.Text) < basicmrc.Fields(4) Then
            txtConscash.Text = 0
        Else
            If Val(txtConsume.Text) > 60 Then
                If txtType.Text = "固定用户" Then
                    txtConscash.Text = Int(basicmrc.Fields(0) / 60 * Val(txtConsume.Text))
                Else
                    txtConscash.Text = Int(basicmrc.Fields(1) / 60 * Val(txtConsume.Text))
                End If
            Else
                If txtType.Text = "临时用户" Then
                    txtConscash.Text = basicmrc.Fields(1)
                Else
                    txtConscash.Text = basicmrc.Fields(0)
                End If
            End If
        End If
    End If

总结：上下机理清思路之后，没有那么难，每个人处理代码的方式不一样，尽量让代码变得简单。