Добрый день увожаемые специалисты и просто гуру excel Возникла такая задача у меня есть три отдельных числа: -день в виде "2" -месяц в виде "7" -год в виде "2014" и с помощью DateSerial я преобразую в дату [vba]
Код
Dim DateExpert as String iCell34=2014 iCell33=7 iCell32=2 DateExpert = DateSerial(iCell34, iCell33, iCell32) MsgBox DateExpert
[/vba] всё хорошо но вот с помощью DateValue преобразовать в число не удаётся ... это мне надо чтобы выявить минимальную дату или наименьшую дату Благодарю за внимание
Добрый день увожаемые специалисты и просто гуру excel Возникла такая задача у меня есть три отдельных числа: -день в виде "2" -месяц в виде "7" -год в виде "2014" и с помощью DateSerial я преобразую в дату [vba]
Код
Dim DateExpert as String iCell34=2014 iCell33=7 iCell32=2 DateExpert = DateSerial(iCell34, iCell33, iCell32) MsgBox DateExpert
[/vba] всё хорошо но вот с помощью DateValue преобразовать в число не удаётся ... это мне надо чтобы выявить минимальную дату или наименьшую дату Благодарю за вниманиеElhust
nilem, слушай а если такая загвоздка как посчитать минимальное значение если ты не в рабочей книге а в активной книге ? а то у меня цикл по книгам в папке
nilem, слушай а если такая загвоздка как посчитать минимальное значение если ты не в рабочей книге а в активной книге ? а то у меня цикл по книгам в папкеElhust
"в вид 45452" - потому что дата - это число, вот Double и показывает число. А если объявить как Date, то покажет нормальную дату (вернее, число в формате даты) Если выбирать мин дату из нескольких книг, то попробуйте как-то так [vba]
Код
Dim DateExpert As Date DateExpert = #5/15/2159# 'назначаем заранее какую-то большую дату
Dim dt As Date
Цикл по книгам
dt = DateSerial(2014, 7, 2) 'эту дату берем из книги If dt < DateExpert Then DateExpert = dt
Next
MsgBox "минимальная дата в книгах " & DateExpert
[/vba]
"в вид 45452" - потому что дата - это число, вот Double и показывает число. А если объявить как Date, то покажет нормальную дату (вернее, число в формате даты) Если выбирать мин дату из нескольких книг, то попробуйте как-то так [vba]
Код
Dim DateExpert As Date DateExpert = #5/15/2159# 'назначаем заранее какую-то большую дату
Dim dt As Date
Цикл по книгам
dt = DateSerial(2014, 7, 2) 'эту дату берем из книги If dt < DateExpert Then DateExpert = dt
nilem, то есть в таком случае нет какой то одной функции только сравнением ... просто тут не то что бы из рабочей надо сравнивать в той что открылась а у меня так примерно открываю книгу запускаю макрос выбираю папку с книгами где есть даты и мне нужно чтобы из списка дат открытой книги считалось минимальная ... затем она вводиться напротив имени открытой книги переходит к след и тоже самое
nilem, то есть в таком случае нет какой то одной функции только сравнением ... просто тут не то что бы из рабочей надо сравнивать в той что открылась а у меня так примерно открываю книгу запускаю макрос выбираю папку с книгами где есть даты и мне нужно чтобы из списка дат открытой книги считалось минимальная ... затем она вводиться напротив имени открытой книги переходит к след и тоже самоеElhust
Каждый сам выбирает правила игры
Сообщение отредактировал Elhust - Понедельник, 15.05.2017, 09:49
Elhust, вы 90 года, а Николай (nilem,) - 67... разница более 20 лет... Да и вообще, у нас на форуме приято общаться на "вы". Это я еще могу Коле сказать "ты", как и он мне - мы друг друга давно знаем, но и то, по привычке обычно говорим "вы". Извините за нравоучения.
Elhust, вы 90 года, а Николай (nilem,) - 67... разница более 20 лет... Да и вообще, у нас на форуме приято общаться на "вы". Это я еще могу Коле сказать "ты", как и он мне - мы друг друга давно знаем, но и то, по привычке обычно говорим "вы". Извините за нравоучения.Michael_S