VBA Excel конвертировать дату время в текст

Question

Я хотел бы преобразовать дату и время в текст.

Пример: 22.10.2009 14:10 следует преобразовать в 43760.59028. Я знаю, как это сделать, если я пытался преобразовать ячейку в электронной таблице, но я пытаюсь преобразовать переменную даты и времени.

Я пытался: vdate = Format(CDate("10/22/2019 2:10 PM"), "@")

Я получаю строку, а не преобразование текста в число.

Как преобразовать дату или время и сохранить значение в переменной?

Answer 1

Format дает String, вы этого не хотите.

Объявите vdate как Double:

Dim vdate As Double

Теперь это будет работать:

vdate = CDate("10/22/2019 2:10 PM")

... но это неявное преобразование типов из Date в Double;Вы можете сделать это явно:

vdate = CDbl(CDate("10/22/2019 2:10 PM"))

... as Скотт, упомянутый в комментариях