Изменить формат даты с помощью VBA

Question

Я бы хотел изменить формат даты ячейки с помощью VBA, но понятия не имею. В качестве примера возьмем ниже, столбец A - это ввод, а столбец B - это вывод, как и должно быть в тайском календаре ...

Моя цель - извлечь значение из столбца A листа She1 для многих листов с помощьюДата конвертации ...

Answer 1

извините за это, у меня низкая репутация, чтобы комментировать. изменение даты не является проблемой кода. изменение с западной даты на buddadate добавляет 543 года к западной дате как превосходство, используя число для даты. 1 равняется 1900-01-01 2 равняется 1900-01-02 43752 равняется 2019-10-14

вам нужно добавить 543 года к западной дате и поместить это в ячейку b1.

= A1 * 1 + 543 * 365 + округление (543 / 4,0)

напомните, что високосный год наступает каждые 4 года, чтобы вы могли скорректировать + округление () до правильной даты

Answer 2

Вот как вы можете скопировать данные из ячейки 'A1' в 'B1' и преобразовать тип даты в тайский.

Dim mydate As Date 'create date variable

    mydate = Range("A1").Value 'copy date value from Cell A1
    Range("B1").Value = mydate 'paste date value into cell B1
    Range("B1").NumberFormat = "[$-th-TH,107]d mmmm yyyy;@" 'convert copied format to Thai

Надеюсь, что это ответ на ваш вопрос.