What @Yoichi said is right.
I just re-did what she have done. Follow steps
- Assign this in new DT
dt = (From dr As datarow In dt Where DateTime.FromOADate(Double.Parse(dr.item("Start Date").ToString)).Date=Today AndAlso DateTime.FromOADate(Double.Parse(dr.Item("Approved On").ToString)).Date<=Today AndAlso DateTime.FromOADate(Double.Parse(dr.Item("Approved On").ToString)).Date>=New Date(Now.Year,Now.Month,1).AddMonths(-1) Select dr).copytodatatable
Once you have new dt
'use for each row
and 2 assigns
assign 1
row("Start Date")=date.FromOADate(Double.Parse(row("Start Date").tostring))
Assign 2
row(“Approved On”)=date.FromOADate(Double.Parse(row(“Approved On”).tostring))
- Write this new dt to your sheet