Преобразовать дату в число

@Sadma1 · Регистрация: 04.04.2019

Author24 — интернет-сервис помощи студентам

Есть дата в переменной в формате «01.02.3088» как ее преобразовать в число 433941 ?
То есть просто cells().numberformat = “@“. Но как это сделать в переменной, не изменяя ячейку?

@ArtNord · 21.05.2019, 14:26

Попробуйте так:

Visual Basic

1
2
3

а =cells(b,c)
a=a*1
cells(b,c) = a

Добавлено через 8 минут

Сообщение от ArtNord

3
а =cells(b,c)
a=a*1
cells(b,c) = "'"&a

Точнее так, но число станет текстом

@Kate_27 · 21.05.2019, 14:34

Sadma1, Может Вам обратить внимание на функцию CLng?

Visual Basic

Sub DateInLong()
    Dim A As Date
    A = Cells(1, 1)
    Cells(2, 1) = CLng(A)
End Sub

@pashulka · 21.05.2019, 18:19

Sadma1, Если дата изначально хранится в ячейке, то можно использовать свойство Value2

Visual Basic

1
2
3

Cells(1) = Date 'для наглядности
dt = Cells(1).Value2
MsgBox dt

@Sadma1 0 / 0 / 0 Регистрация: 04.04.2019 Сообщений: 54
		1
	Excel Преобразовать дату в число 21.05.2019, 14:16. Показов 21936. Ответов 3 Метки нет (Все метки) Есть дата в переменной в формате «01.02.3088» как ее преобразовать в число 433941 ? То есть просто cells().numberformat = “@“. Но как это сделать в переменной, не изменяя ячейку? 0

	21.05.2019, 18:19

Преобразовать дату в число

Решение