VBA: преобразование даты

Узнай цену своей работы

Формулировка задачи:

Ввод даты производится в формате dd.mm.yyyy.
Как преобразовать дату из этого формата в yyyy-mm-dd

при любых региональных настройках

?
Спасибо!

Решение задачи: «VBA: преобразование даты»

textual
Листинг программы
<font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()

<font color="blue">Dim</font> date_for_sql <font color="blue">As</font> <font color="blue">String</font>
<font color="blue">Dim</font> date_for_sql1 <font color="blue">As</font> <font color="blue">String</font>

date_for_sql = Format(Sheet1.Range(<font color="teal">"A1"</font>).Value, <font color="teal">"yyyymmdd"</font>)
date_for_sql1 = Format(Sheet1.Range(<font color="teal">"B1"</font>).Value, <font color="teal">"yyyymmdd"</font>)

MsgBox date_for_sql & <font color="teal">"     "</font> & date_for_sql1
<font color="blue">End</font> <font color="blue">Sub</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

7   голосов , оценка 3.857 из 5