十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在文件上右单击鼠标可以看到文件的创建时间、修改时间以及最后访问时间,你取到的时间只要和它们对上就行了,因为这些属性取自文件自身的属性,跟你把文件存了多长时间没有必然的联系。
成都创新互联公司-专业网站定制、快速模板网站建设、高性价比蒙阴网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式蒙阴网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖蒙阴地区。费用合理售后完善,十多年实体公司更值得信赖。
File.GetLastAccessTime是文件的最后访问时间。
Directory.GetLastAccessTime目录(文件夹)的最后访问时间。
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)
其实电脑中的日期格式是Date类型,你所说的"yyyy-M-d“还是“yyyy/M/d"都是其转换为字符串以后显示的方式,你可以用Format函数将Date类型转换为你希望显示的任何形式,例如:
Format(DateTimePicker1.Value, "yyyy-MM-dd") '2014-08-30
Format(DateAndTime.Now, "yyyy-M-d") '2014-8-30
Format(DateTimePicker1.Value, "Long Date") '2014年8月30日
用它自带的下拉列表 来修改
数据库 如果你字段是 日期型 你可以设置格式