Как распечатать дату в формате мм/дд/гггг в VB
Вопрос
Мне нужно напечатать дату в формате мм/дд/гггг.если дата 24.04.2009, она должна быть напечатана как 24.04.2009.то есть заполнение нулями также необходимо..Я использовал функцию даты, чтобы получить текущую дату... но дата получает формат м/дд/гггг...
Решение
Протестировано в ближайшем окне и у меня работает (вывод в виде комментария)
Format(Now, "MM/dd/yyyy") '04/29/2009
Format(Date, "MM/dd/yyyy") '04/29/2009
Format(CStr(Now), "MM/dd/yyyy") '04/29/2009
Format(Date$, "MM/dd/yyyy") '04/29/2009
Format(CDate(Date), "MM/dd/yyyy")'04/29/2009
Поэтому не имеет значения, является ли это строкой или датой и временем.
Редактировать:Видел ваш комментарий Фредрику.Не имеет значения, как это выглядит, когда вы сохраняете его в таблице БД (формат даты столбца будет свойством БД, а не ответственностью вашей программы (или vb).Просто отформатируйте значение по мере его получения из базы данных.
Другие советы
Обратите внимание, что символ «/» в функциях форматирования даты имеет особое значение как «разделитель даты».Это означает, что i можно заменить разделителем даты для текущей локали, в которой выполняется программа (например, здесь, в Швеции, он будет заменен на «-»).Я думаю, что чтобы убедиться, что вы действительно получаете символ «/» на выходе (у меня нет установки VB для проверки):
Format(date, "MM'/'dd'/'yyyy")
для справки: экранирование косой черты поможет
Format(dt,"MM\/dd\/yyyy")
Попробуйте следующий код:
Format(dt,"MM/dd/yyyy")
Когда вы вводите дату в любом формате, она преобразует значение по умолчанию, поэтому сделайте одну вещь, чтобы при доступе изменить дату/время вашего типа данных на текст, тогда это не повлияет на вашу работу.
Я также использую VB6, и мне нужно отформатировать дату в моем текстовом отчете.
это работает для меня
Format$(Now, "yyyy-mm-dd-00.00.00")
но только если я объявлю дату как строку
strdate = format (strdate, "yyyy-mm-dd") bildtime = format (billtime, "HH: MM: SS")