Створіть рядок за допомогою функції дати з попереднім нулем дня та місяця

Я намагаюся створити дату у VBA. Я хочу, щоб це відображалось як 13.04.2018 на сьогоднішню дату.

Однак наразі я можу його відобразити лише 13.4.2018

Як я включаю попередній нуль у дні та місяці з однією цифрою?

На даний момент я:

stDateDay = Day(Date)
stDateMonth = Month(Date)
stDateYear = Year(Date)
stDateFull = stDateDay & "." & stDateMonth & "." & stDateYear

microsoft-excel vba date

— ПетроХ
джерело

strDateFull = format (Date, "dd.mm.yyyy")?

— Беренд

Пошук у "форматі дати [microsoft-excel]" містить 1148 публікацій. Відповідь на ваше запитання, ймовірно, серед них.

— Том Брунберг

@TomBrunberg - це на кілька менше, ніж пошук Google за "форматом дати vba", який дає 1,8 мільйона варіантів, другий з яких - власні документи MS ...;)

— FreeMan

Так @Безкоштовно, занадто багато :)

— Том Брунберг,

@Berend Дякуємо, допишіть відповідь, і я можу прийняти як правильне

— PeterH

Відповіді:

Щоб відформатувати дату (або будь-яке інше значення) у VBA, можна скористатися Formatфункцією. Наприклад:

strDateFull = Format(Date, "dd.mm.yyyy")

Другий параметр є рядком формату , який може бути або попередньо визначеним формат ім'я ( General Date, Long Date, Medium Dateабо Short Date), або специфікатор формату в тому числі символів , такі як dd, mmабо yy.

Повний список символів див. У документації: https://msdn.microsoft.com/en-us/VBA/language-reference-vba/articles/format-function-visual-basic-for-applications

— Беренд
джерело

просто Ви можете спробувати це:

Range("A1").Value = Format(StDateFull, "dd.mm.yyyy")

Або ви також можете відформатувати клітинку або діапазон комірок, перш ніж передати їй значення StDateFull, наприклад:

Range("A1").NumberFormat = "dd.mm.yyyy"

Range("A:C").Select
Format$ ("dd.mm.yyyy")

Range("A1").value = stDateFull

— Раджеш S
джерело

Привіт Раджеш, я не використовую жало для значення клітини, все одно

— дякую

Тоді, де ви хочете його використовувати?

— Rajesh S

stDateFull = Формат (дата, "dd.mm.yyyy") ActiveSheet.Name = stDateFull

— PeterH

я потрапив туди врешті-решт

— PeterH

Приємно, але в кінцевому рахунку ви використовуєте його десь на аркуші !!

— Rajesh S