public int NumberOfWeeks()
{
int days = Math.Abs((d1.Date - d2.Date).Days) + 1;
weeks = ((int)Math.Floor((decimal)days / 7));
weeks += (((decimal)days % 7) > 0) ? 1 : 0;
return weeks;
}
EDIT ===============
Since you seem to be incabpable of converting simple code to VB, here it is:
public Function NumberOfWeeks() As Integer
Dim days As Integer = Math.Abs((d1.Date - d2.Date).Days) + 1
Dim weeks As Integer = CType(Math.Floor((decimal)days / 7)), Integer)
If ((decimal)days Mod 7) > 0) Then
weeks += 1
End If
Return weeks
End Function