int number 128;

int i 1;

While(i < (number/2))

{

if ( number i 0)

return number;

i++;

}

int month dt.Month;

int i 1;

while( month dt.AddDays(i).Month)

{

i+ 1;

}

System.DateTime lastDayOfMonth dt.AddDays(i-1);

System.DateTime 8thLastDayOfMonth dt.AddDays(i-1);

Q2) Actualy the date formate will be mm/dd/yyyy if we changed the formate to assaigned into date variable it will show formate error.

date variable will accept some foramate as per my knowledge.

--> If we assaigned 12/2000 formate date variable will take 12/1/2000 formate.

ex:

dim _date as date 12/2000

msgbox(_date) //output is 12/1/2000 by default it will take 1 day

--> If we assaigned 12/2000/31 fomate date variable will take 12/31/2000 formate

dim _date as date 12/2000/31

msgbox(_date) //output is 12/31/200

In Below example: we are removeing 31/ from 31/12/2000 formate and added that at lost of the word like : 12/2000/31 and finally i assaigned to date variable then as i said above that formate will be 12/31/2000 formte.

--------------

Dim _strdate_string As String 31/12/2000

_strdate_string Mid(_strdate_string _strdate_string.IndexOfAny( / ) + 2 _strdate_string.Length) + / + Mid(_strdate_string 1 _strdate_string.IndexOfAny( / ))

Dim _strdate As Date Convert.ToDateTime(_strdate_string)

MsgBox(_strdate) //out put 12/31/2000

Q3)

If Date.Now.Month + 8 > 12 Then

MsgBox(Date.DaysInMonth(CType(Date.Now.Year + 1 Integer) Date.Now.Month + 8 - 12))

Else

MsgBox(CType(Date.DaysInMonth(Date.Now.Year Date.Now.Month + 8) String))

End If