VBScript: работа с датами с помощью компонента ISO8601 Component

2009-02-25T15:12:25Z

Бесплатный COM-сервер ISO8601 Component позволяет преобразовывать даты VBScript к формату ISO8601 ("2009-02-25" или "2009-02-25T19:15:30.045") и обратно, конструировать даты и получать текущее время с миллисекундами. Компонент можно скачать здесь, ссылка на скачивание высылается на e-mail. Размер дистрибутива (архив) — чуть более 40 Кб.

Преобразование дат к формату ISO8601:

Set objISO8601 = CreateObject("XStandard.ISO8601")
objISO8601.Date = DateAdd("d", 2, Now())
WScript.Echo objISO8601.String
objISO8601.Date = DateAdd("d", 2, Date())
WScript.Echo objISO8601.String
objISO8601.Date = DateAdd("d", 2, "25.02.2009")
WScript.Echo objISO8601.String
objISO8601.Date = DateAdd("d", 2, "2009/02/25 15:25:59")
WScript.Echo objISO8601.String
objISO8601.Date = Time()
WScript.Echo objISO8601.String
objISO8601.Date = "2009/02/25 15:25:59"
WScript.Echo objISO8601.String

Обратное преобразование:

Set objISO8601 = CreateObject("XStandard.ISO8601")
WScript.Echo objISO8601.Convert("2009-11-11T10:15:00.002") ' объект Date

Получение текущего времени с миллисекундами:

Set objISO8601 = CreateObject("XStandard.ISO8601")
WScript.Echo objISO8601.String
WScript.Sleep 500
objISO8601.Reset()
WScript.Echo objISO8601.String

Конструирование даты:

Set objISO8601 = CreateObject("XStandard.ISO8601")
WScript.Echo objISO8601.Version ' версия компонента
objISO8601.Year = 2009
objISO8601.Month = 1
objISO8601.Day = 31
objISO8601.Hours = 13
objISO8601.Minutes = 59
objISO8601.Seconds = 58
objISO8601.Milliseconds = 666
WScript.Echo objISO8601.Date
WScript.Echo objISO8601.String
WScript.Echo objISO8601.DayOfWeek ' день недели строкой

Серый форум — VBScript: работа с датами с помощью компонента ISO8601 Component

VBScript: работа с датами с помощью компонента ISO8601 Component