聽說幸福…在山的那邊 (浪機子)

       --利用TimeSpan來相減

        Dim diff As TimeSpan 

        diff = New System.TimeSpan(4 , 0, 0, 0) --要定義成這樣才能使用，4表示會加或減四日

        Dim date1 as datetime = date.Now.Add(diff)  --加四日

        Dim date2 as datetime = Today.Subtract(diff).date  --減四日

        Dim diff1 As TimeSpan  --記錄兩日期相加減後的天數

        diff1 = date2.Subtract(date1)

        response.write(diff1.tostring)  --印出兩日期相差的天數

　　--利用日期格式來相減

        Response.Write("===" & Today.Subtract("2007-12-26").Days)   --今天是１２／２７日，所以會印出１