Part 1
Dim totdays as long totdays = DateDiff(\"d\", \"01/2011\", DateAdd(\"m\", 1, \"01/2011\"))
The above code will retu
Use format function like this. Here i used Now but you can pass any date and format return string of dayname
Format(Now, "ffffdd")