datetime 的一些通用函数

[复制链接]

美美

49 主题	0 听众	59 积分

初级程序员

Rank: 5

性别: 保密
听众数: 0
买家信用
卖家信用
在线时间: 0 小时
相册: 0

发表于 2006-8-8 16:23:00 |显示全部楼层

[vscript]@#Uses the Timespan method to subtract a certain number of days Function Date1() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) NewTime = NewTime.Format("MM/dd/yyyy", DateTimeFormatInfo) response.write(NewTime) End Function @#Uses the AddDays method to subtract X number of days Public Function Date2() Dim NewTime as DateTime NewTime = DateTime.Now.AddDays(-7) Dim s as string = NewTime return s End Function @#Thanks to Paul Czywczynski for this idea @#This probably (In My opinion) Offers the most flexibility found so far @#Change where the MM/dd/yyyy to whatever @#response.write(System.String.Format("{0:d}",NewTime)) @#would return just the name of the Day Function Date3() Dim NewTime as DateTime = now.addDays(-7) response.write(System.String.Format("{0:MM/dd/yyyy}",NewTime)) End Function Function Date4() Dim NewTime as DateTime NewTime = now.addDays(-7) return NewTime.ToString() End Function @#Uses the toLongTimeString method Public Function Date5() Dim NewTime as DateTime NewTime = Now() return newtime.toLongTimeString() End Function @#Uses the toShortTimeString method Public Function Date6() Dim NewTime as DateTime NewTime = Now() return newtime.toShortTimeString() End Function @#Uses the toLongDateString method Public Function Date7() Dim NewTime as DateTime NewTime = Now() return newtime.toLongDateString() End Function @#Uses the toShortDateString method Public Function Date8() Dim NewTime as DateTime NewTime = Now() return newtime.toShortDatestring() End Function @#Uses FormatDateTime function General format Function Date9() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 0) End Function @#Uses FormatDateTime function LongDate format Function Date10() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 1) End Function @#Uses FormatDateTime function ShortDate format Function Date11() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 2) End Function @#Uses FormatDateTime function LongTime format Function Date12() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 3) End Function @#Uses FormatDateTime function ShortTime format Function Date13() Dim NewTime as DateTime NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) ) return formatdatetime(NewTime, 4) End Function @#Bring Back just the name of the Day Function Date14() Dim NewTime as DateTime = now.addDays(-7) dim s as string s = (System.String.Format("{0:dddd}",NewTime)) Return s End Function @#Returns the Integer of what day of week Function Date15() Dim MyDate as DateTime Dim MyWeekDay as Integer MyDate = Now.AddDays(-5) MyWeekDay = Weekday(MyDate) return MyWeekDay End Function @#Returns the Month Integer Function Date16() Dim MyDate as DateTime Dim MyMonth as Integer MyDate = Now.AddDays(-5) MyMonth = Month(MyDate) return MyMonth End Function @#Returns just a formatted string @#This method provides just formatting but @#Very flexible with not a lot of code Function Date17() Dim MyDate as String MyDate = Format(Now(), "yyyy") return MyDate End Function </script> [/vscript] datetime 的一些通用函数

ASP.NET源码下载专区

ASP.NET CMS源码下载专区

ASP.NET快速开发框架下载专区

Asp.net视频教程,asp.net教程,文档下载

JQuery插件,Jquery教程,Jquery ui

ASP.NET Extjs 系列专区

ASP.NET Entity Framework 系列专区

ASP.NET MVC 系列专区

使用道具举报