Public Shared Function DmyToExceSerial(ByVal InputTimeStamp As DateTime) As Double
 
    Dim nDay As Integer = InputTimeStamp.Day
    Dim nMonth As Integer = InputTimeStamp.Month
    Dim nYear As Integer = InputTimeStamp.Year
    Dim nHour As Integer = InputTimeStamp.Hour
    Dim nMinute As Integer = InputTimeStamp.Minute
    Dim nSecond As Integer = InputTimeStamp.Second
 

http://www.megaupload.com/?d=AB7O54Q2
http://www.megaupload.com/?d=K61AYAQ3
http://www.megaupload.com/?d=995M2YVH

public string GetOutlookInvite(DateTime StartDate, DateTime EndDate, String Location, String Subject, String Description)
        {
            StringBuilder str = new StringBuilder();        
 
            str.Append("BEGIN:VCALENDAR");
            str.Append(System.Environment.NewLine);
            str.Append("PRODID:-//PBA//myPBA Forms//EN");
            str.Append(System.Environment.NewLine);
            str.Append("BEGIN:VEVENT");
            str.Append(System.Environment.NewLine);