在文件上右單擊鼠標(biāo)可以看到文件的創(chuàng)建時間、修改時間以及最后訪問時間,你取到的時間只要和它們對上就行了,因?yàn)檫@些屬性取自文件自身的屬性,跟你把文件存了多長時間沒有必然的聯(lián)系。
成都創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比蒙陰網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式蒙陰網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們,業(yè)務(wù)覆蓋蒙陰地區(qū)。費(fèi)用合理售后完善,十多年實(shí)體公司更值得信賴。
File.GetLastAccessTime是文件的最后訪問時間。
Directory.GetLastAccessTime目錄(文件夾)的最后訪問時間。
Dim ThisDay As String = Format(Now, "yyyy-MM-dd") '獲得當(dāng)前日期字符串
Dim ThisDateTime As DateTime = Convert.ToDateTime(ThisDay) '當(dāng)前日期轉(zhuǎn)換成DateTime
Dim ThisWeekDay As Integer = ThisDateTime.DayOfWeek '獲得當(dāng)前日期是星期幾
Dim differadd As Integer = 1 - ThisWeekDay '相差的天數(shù)(星期1與當(dāng)前星期幾相差的天數(shù))
Dim MyAdd As New TimeSpan(differadd, 0, 0, 0)
Dim MyYear As Integer = Format(Now, "yyyy") '獲取當(dāng)前日期的年份
Dim MyMonth As Integer = Format(Now, "MM") '獲取當(dāng)前日期的月份
Dim MyDay As Integer = Format(Now, "dd") '獲取當(dāng)前日期是幾號
Dim MyToday As DateTime = New DateTime(MyYear, MyMonth, MyDay)
Dim Yourday As DateTime = MyToday.Add(MyAdd)
MsgBox("本周星期一的日期是:" Yourday)
其實(shí)電腦中的日期格式是Date類型,你所說的"yyyy-M-d“還是“yyyy/M/d"都是其轉(zhuǎn)換為字符串以后顯示的方式,你可以用Format函數(shù)將Date類型轉(zhuǎn)換為你希望顯示的任何形式,例如:
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日
用它自帶的下拉列表 來修改
數(shù)據(jù)庫 如果你字段是 日期型 你可以設(shè)置格式