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