vb.net日期,vbnet日期比较

vb.net日期格式问题，高分求教

用它自带的下拉列表来修改

成都创新互联公司专注于景县网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供景县营销型网站建设，景县网站制作、景县网页设计、景县网站官网定制、成都微信小程序服务，打造景县网络公司原创品牌,更为您提供景县网站排名全网营销落地服务。

数据库如果你字段是日期型你可以设置格式

var reg = /(.{4}年.{2}月.{2}日|.{2}年.{2}月.{2}日|[^\-]{2}\-[^\-]{2}|[^\/]{2}\/[^\/]{2}|[^\\]{2}\\[^\\]{2})/g;

var str = "sdfasf****年**月**日，**年**月**日，**-**，**/**，**\**asdfadf";

str.match(reg);

Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '获得当前日期字符串

Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '当前日期转换成DateTime

Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '获得当前日期是星期几

Dim differadd As Integer = 1 - ThisWeekDay '相差的天数（星期1与当前星期几相差的天数）

Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)

Dim MyYear As Integer = Format(Now, "yyyy") '获取当前日期的年份

Dim MyMonth As Integer = Format(Now, "MM") '获取当前日期的月份

Dim MyDay As Integer = Format(Now, "dd") '获取当前日期是几号

Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)

Dim Yourday As DateTime = MyToday.Add(MyAdd)

MsgBox("本周星期一的日期是：" Yourday)

名称栏目：vb.net日期,vbnet日期比较
本文地址：http://mswzjz.cn/article/dsciopo.html