ขอความช่วยเหลือเรื่องการคำนวนวันที่ใน vb.net ครับ คือว่าผมทำโปรแกรมเก็บเงินครับ อยากได้ตัวคำนวนรายได้ให้ลูกค้าผมไม่รู้จะเรี่มตรงไหนครับ ลูกค้านำเงินมาฝากแล้วเราจะจ่ายดอกเบี้ยรอบละ 38 วันครับรบกสนพี่ๆช่วยหน่อยครับ

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Double.Parse(TextBox1.Text) <= 0 Then
            MessageBox.Show("กรุณาระบุเงินต้น")
            Return
        End If
        If DateTimePicker2.Value = DateTimePicker1.Value Or DateTimePicker2.Value < DateTimePicker1.Value.AddDays(37) Then
            MessageBox.Show("กรุณาระบุวันที่ตามเงื่อนไข")
            Return
        End If
        Dim d As DateTime = Me.DateTimePicker1.Value
        RichTextBox1.Text = ""
        RichTextBox1.Text = "วันที่ " & Me.DateTimePicker1.Value.ToString("dd/MM/yyyy") & " เรี่มฝาก เงินต้น " & TextBox1.Text & " บาท"
        Dim count As Integer = 0
        Dim db As Double = Double.Parse(TextBox1.Text) * 10 / 100
        Do While d < DateTimePicker2.Value
            d = d.AddDays(37)
            count += 1
            RichTextBox1.Text += vbCrLf & "วันที่ " & d.ToString("dd/MM/yyyy") & " เงินต้น " & TextBox1.Text & " คิดดอกเบี้ยครั้งที่ " & count & " ดอกเบี้ย " & db & " บาท"

        Loop
        RichTextBox1.Text += vbCrLf & vbCrLf & vbCrLf & " รวมดอกเบี้ย " & count & " งวด เป็นเงิน " & count * db & " บาท"
    End Sub

"Select * form ดอกเบี้ยบานเบอะ   where cusID  = "  + cusID 

Dim cri As String = ""
        Dim db As Double = Double.Parse(DataGridView1(1, 0).Value)
        Dim item As Integer = 0
        Dim cl As Color = Color.Beige

        Try
            For i As Integer = 1 To DataGridView1.RowCount - 1
                If DataGridView1(0, i).Value = DataGridView1(0, i - 1).Value Then
                    cl = cl
                    db = db + Double.Parse(DataGridView1(1, i).Value)
                Else
                    DataGridView1(2, item).Value = db
                    If cl = Color.Beige Then
                        cl = Color.LightGreen
                    Else
                        cl = Color.Beige
                    End If
                    item = i
                    db = 0
                End If
                DataGridView1.Rows(i).DefaultCellStyle.BackColor = cl
            Next
        Catch ex As Exception

        End Try