Изменить текущий год, - Microsoft Office Excel - Страница 2

segail · 16.01.2010, 12:39

Здравствуйте.
Подскажите как формировать текущую дату и месяц в зависимости от года указанного в ячейки R1
В ячейку R1 вводится числовое значение года.

Код:

Private Sub UserForm_Initialize()
    Lab_Dat = Format(Date, "dd.mm" & "." & Sheets("Отчет").Range("R1"))
End Sub

EducatedFool · 16.01.2010, 15:29

Вот 2 варианта получения даты:

Код:

НоваяДата = dateserial( Sheets("Отчет").Range("R1"), month(now), day(now))
НоваяДата = cdate(Format(Date, "dd.mm" & "." & Sheets("Отчет").Range("R1")))

segail · 16.01.2010, 15:45

Спасибо...................

16.01.2010, 12:39	#11
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Здравствуйте. Подскажите как формировать текущую дату и месяц в зависимости от года указанного в ячейки R1 В ячейку R1 вводится числовое значение года. Код: `Private Sub UserForm_Initialize() Lab_Dat = Format(Date, "dd.mm" & "." & Sheets("Отчет").Range("R1")) End Sub`

16.01.2010, 15:29	#12
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,858	Вот 2 варианта получения даты: Код: `НоваяДата = dateserial( Sheets("Отчет").Range("R1"), month(now), day(now)) НоваяДата = cdate(Format(Date, "dd.mm" & "." & Sheets("Отчет").Range("R1")))` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Определить текущий столбец	big_big	Общие вопросы Delphi	4	02.07.2009 18:50
Текущий проводник не поддерживает возврат нескольких наборов записей	Crasty	Помощь студентам	1	17.05.2009 16:35
Windows Media Player, текущий трек	DeDoK	Мультимедиа в Delphi	1	08.12.2008 19:44
Условие на текущий год.	ГОСЕАН	БД в Delphi	2	27.06.2008 11:27
Текущий уровень звука !	XuMuK	Win Api	3	11.10.2007 10:25

16.01.2010, 15:45	#13
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Спасибо...................