ต้องการคำนวณวันที่โดยใช้ DateDiff VB2010 จะต้องเขียนโค้ตยังไงครับพยายามมาหลายวันแล้ว

 Dim leadtime As Integer = 0  'ตัวแปรคอลัมน์ LeadTime
                    Dim ETADate As Date          'ตัวแปรเก็บค่า ETA
                    Dim deliveDate As Date       'ตัวแปรเก็บค่า Deliveryv
                    Dim daychk As String
                    Dim chkDateAdd As Date
                    deliveDate = dt.Rows(i)("Delivery")  'เก็บข้อมูล Delivery ไว้ในตัวแปร deliveDate
                    ETADate = DateAdd(DateInterval.Day, 1, dt.Rows(i)("ETA"))          'เพิ่มวันขึ้น 1 วันของ ETA
                    leadtime = DateDiff(DateInterval.Day, ETADate, deliveDate) 'เช็ควันที่ใน ETA แล้ว Delivery ว่าต่างกันกี่วันแล้วเก็บไว้ในตัวแปร leadtime
dim j as interger = 0
                    While (j <= leadtime.ToString)
                        chkDateAdd = DateAdd(DateInterval.Day, 1, ETADate)          'เพิ่มวันขึ้น 1 วันของ ETA
                        daychk = chkDateAdd.DayOfWeek
                        If (daychk <> 0 Or daychk <> 6) Then
                            leadtime -= 1
                            j += 1
                        Else
                            leadtime.ToString()
                        End If
                    End While