Как из Даты взять первое число?

[valerij]

Как из Даты взять первое число?

В ячейке А(xxx) стоит дата "30(31).06.08"
Есть выражение, используется конечное число даты
For xxx = 1 To 30(31)
Как "30(31)" заменить, на значение из яч. А(ххх)?

[Pavel55]

Sub Макрос1()
Dim i As Long
Dim xxx As Long
    i = CLng(Left(Range("A1"), 2))
    For xxx = 1 To i
    'цикл
    Next
End Sub

[valerij]

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

i = CLng(Left(Range("A1"), 2))

Понял, Спасибо!
А вот второй вариант, не знаю даже как сформулировать?
В выражении
For xx = 1 To i
Где i = Автоматом ставит последний день месяца, а месяц определяется именем файла(Май.xls, Июнь.xls, .....)

[VictorM]

В справке по функциям Excel есть такое:

КОНМЕСЯЦА EOMONTH
Возвращает числовой формат последнего дня месяца, отстоящего на указанное количество месяцев от даты нач_дата. Функция КОНМЕСЯЦА используется для вычисления даты вступления в силу или даты платежа, которая приходится на конец месяца.

Если эта функция недоступна, следует установить надстройку Пакет Анализа, а затем включить его с помощью диспетчера надстроек.

Синтаксис

КОНМЕСЯЦА(нач_дата; число_месяцев)

Нач_дата - это начальная дата в числовом формате.

Число_месяцев - это число месяцев до или после нач_дата. Положительное значение аргумента число_месяцев означает будущую дату; отрицательное значение означает прошедшую дату.

Замечания

· Если нач_дата не является допустимой датой в числовом формате, то КОНМЕСЯЦА возвращает значение ошибки #ЧИСЛО!

· Если число_месяцев не целое, то производится усечение.

· Если нач_дата плюс число_месяцев дают недопустимую дату в числовом формате, то КОНМЕСЯЦА возвращает значение ошибки #ЧИСЛО!

Примеры

КОНМЕСЯЦА(ДАТАЗНАЧ("01.01.93"); 1) равняется 34028 или 28.2.93

КОНМЕСЯЦА(ДАТАЗНАЧ("01.01.93"); -1) равняется 33969 или 31.12.92

мож подойдет...
а может проще сразу указать в коде последний день каждого месяца
а потом If Then

[valerij]

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

а может проще сразу указать в коде последний день каждого месяца а потом If Then

Наверное!

Не могу найти, но где то(как в вопросе) так делалось!

[VictorM]

можно сделать где-то так:

Sub КолДней()
    МСинхр = ActiveWorkbook.Name
    Select Case МСинхр
    Case "Январь"
    sdv = 31
    Case "Февраль"
    sdv = 28 'здесь конечно разобраться бы
    Case "Март"
    sdv = 31
    Case "Апрель"
    sdv = 30
    Case "Май"
    sdv = 31
    Case "Июнь"
    sdv = 30
    Case "Июль"
    sdv = 31
    Case "Август"
    sdv = 31
    Case "Сентябрь"
    sdv = 30
    Case "Октябрь"
    sdv = 31
    Case "Ноябрь"
    sdv = 30
    Case "Декабрь"
    sdv = 31
    End Select
 End Sub

[valerij]

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

можно сделать где-то так:

Можно, но все это есть в самой винде....
Вобщем, пока сделал через If

[IgorGO]

эта функция вернет последний день месяца для указанной даты.

Function LastDay(d As Date) As Integer
  LastDay = Day(DateSerial(Year(d), Month(d) + 1, 1) - 1)
End Function

почему в качестве параметра должна идти дата, а не просто номер месяца? потому, не во всех февралях 28 дней.

[SAS888]

IgorGO. Предложенная Вами функция широко и успешно применяется. Но у автора вопрос в том, что

месяц определяется именем файла(Май.xls, Июнь.xls, .....)

(см пост № 3). Это текст, который нужно преобразовать в число, соответствующее последнему дню этого (имя файла) месяцу.
Интересно такое решение: В программном модуле в каждом файле объявить глобальную константу, соответствующую количеству дней в этом (имя файла) месяце, например, для января - Public Const LastDay = 31, для февраля - Public Const LastDay = 28 и т.д. А затем, в макросе обработки, использовать это значение. Если же одновременно может быть открыто несколько исходных файлов, то тогда можно использовать глобальную переменную, которая хранится, например, в какой-нибудь ячейке каждого файла. Еще брать коррекцию високосного года по системной дате.

[SAS888]

Пришло в голову еще одно (красивое) решение.
Чтобы воспользоваться формулой вычисления последнего дня месяца по дате, сформируем эту дату самостоятельно. Для этого: берем имя файла, заменяем ".xls" на пробел и сцепляем с текущим годом. Полученную текстовую строку преобразовываем в дату. Затем используем в формуле. Получится так:

Dim d As Date, LastDay As Integer
    d = CDate(Replace(ThisWorkbook.Name, ".xls", " ") & Year(Date))
    LastDay = Day(DateSerial(Year(d), Month(d) + 1, 1) - 1)

Где LastDay - последний день месяца, совпадающего с именем файла, текущего года (это для февраля).