VBNet - Форум - Глупый вопрос по поводу формата даты

Вопрос: Глупый вопрос по поводу формата даты Добавлено: 20.09.11 13:47

Автор вопроса: Ishayahu | Web-сайт: ishayahu.blogspot.com | ICQ: 329944992

Есть скрипт из руководства для удаления файлов, созданных позже/раньше выбранной даты. Я хочу его переделать, чтобы дата вычислялась, опираясь на дату запуска скрипта, но там какой-то неизвестный мне формат даты. Что надо сделать, чтобы использовать текущую дату?

strDate = "20060601000000.000000+000"

' надо перевести дату в правильный формат
'strDate = CStr(date)
'Wscript.echo strDate
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colFileList = objWMIService.ExecQuery ("ASSOCIATORS OF {Win32_Directory.Name='m:\Scripts'} Where "&"ResultClass = CIM_DataFile")

For Each objFile In colFileList
    If objFile.CreationDate < strDate Then
        Wscript.Echo objFile.Name & " " & objFile.CreationDate
        objFile.Delete
    End If
Next

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: @lex Вопросов: 14 Ответов: 262	Профиль \| \| #1	Добавлено: 20.09.11 22:06
	Понятия не имею, что за странный формат даты, но логика подсказывает, что использовать ее можно как-то так: strDate = "20060601000000.000000+000" strDate = Mid(strDate, 7, 2) & "." & Mid(strDate, 5, 2) & "." & Left(strDate, 4) Получим 01.06.2006 Ответить

Номер ответа: 2 Автор ответа: Ishayahu ICQ: 329944992 Вопросов: 4 Ответов: 21	Web-сайт: ishayahu.blogspot.com Профиль \| \| #2	Добавлено: 21.09.11 08:38
	Мне как раз надо получить из 01.06.2006 такую строку)) Так что я сделал так: Dim sYear Dim sMonth dim sDay sYear=year(date) sMonth=month(date) sDay=day(date) sMonth=sMonth-1 If Len(sMonth)=1 Then sMonth="0"&sMonth If Len(sDay)=1 Then sDay="0"&sDay strDate = sYear&sMonth&sDay&"000000.000000+000" Хотя меня не покидает ощущение, что где-то в руководстве я видел какой-то более естественный способ)) Ответить

Страница: 1 |