Функция fillzero: если две даты, месяц и день, являются нечетными числами, добавьте 0 впереди. Например, общий формат на 3 марта 2011 г. заключается в том, что 2011-3-3 преобразуется в такой формат, как 2011-03-03, с помощью функции. Скопируйте код кода следующим образом:
публичная функция fillzero(l1)
если len(l1)=1, то
заполнитьноль=0&l1
еще
fillzero=l1
конец, если
конечная функция
Примеры использования:
Скопируйте код кода следующим образом:
год ответа (сейчас), месяц (сейчас) и день (сейчас) результат: 201116
год ответа(сейчас)&fillzero(месяц(сейчас))&fillzero(день(сейчас)) Отображение результатов: 20110106
Как управлять отображением длинного формата даты и короткого формата даты:
Короткая дата: FORMATDATETIME(ДАТА,vbShortDate)
Полная дата: FORMATDATETIME(ДАТА,vbLongDate)
При отображении даты в соответствии с локалью Великобритании (США) дата отображается в следующем формате:
Короткая дата: 09.07.97
Длинная дата: среда, 9 июля 1997 г.
Примечание. Краткий формат даты выглядит точно так же, как и без форматирования. По умолчанию даты отображаются в коротком формате.
Как использовать функцию FORMATDATETIME() для управления временем:
Короткое время: FORMATDATETIME(TIME,vbShortTime)
Долгое время: FORMATDATETIME(TIME,vbLongTime)
При отображении времени в локали Великобритании (США) время форматируется следующим образом:
Короткое время: 03:20
Долгое время: 3:20:08 утра
Скопируйте код кода следующим образом:
<%
функция FillZero(строка)
ттт=стр
если len(str)=1, то
ттт=0&стр
конец, если
FillZero=ттт
конечная функция
'Дата преобразования, добавьте ноль к одной цифре 2003-1-2 --> 2003-01-02
функция ConvertDate(tDate)
ttt=tДата
если isdate(tDate), то
ttt=год(tDate) & - & FillZero(месяц(tDate)) & - & FillZero(день(tDate))
конец, если
ConvertDate=ттт
конечная функция
'Введите строку даты и времени, преобразуйте ее в четыре цифры для взрослых, а две другие цифры в новую строку даты и времени.
функция ConvertDateTime(tDateTime)
ttt=tDateTime
если isdate(tDateTime), то
ttt=year(tDateTime) & - & FillZero(месяц(tDateTime)) & - & FillZero(day(tDateTime)) & & FillZero(cstr(hour(tDateTime))) & : & FillZero(cstr(минута(tDateTime)) ) & : & FillZero(cstr(секунда(tDateTime)))
конец, если
ConvertDateTime=ттт
конечная функция
%>