Nano Hash - криптовалюты, майнинг, программирование

Сценарий VBA Outlook - оператор If Or возвращает неправильное значение

 MName = Format(dtDate, "mm", vbUseSystemDayOfWeek, vbUseSystem)

 If MName = "04" Or "06" Or "09" Or "11" Then 
        DName = "30"
    ElseIf MName = "02" Then
        DName = "28"
    ElseIf MName = "01" Or "03" Or "05" Or "07" Or "08" Or "10" Or "12" Then
        DName = "31"
    Else
 End If

Я создаю этот скрипт, чтобы сохранять вложения электронной почты в папки, имена которых указаны на конец месяца. Например, если электронное письмо отправлено 10-25-16, оно будет сохранено в папке 10-31-16.

Проблема возникает при определении того, какой день конца месяца использовать. «MName» равно 10 (за октябрь). Однако «DName» возвращается как «30», когда должно возвращаться как «31», когда MName равно «10».

Есть идеи, почему это вызывает первую строку оператора If? Заранее спасибо!

outlook vba
11.10.2016

  • Дэвид дал вам отличный пример того, как использовать Or, но мне нравится использовать Select Case ;-) 11.10.2016

Ответы:


1

Не так работает оператор Or в VBA. Or - это логический оператор, который работает следующим образом:

> result = expression1 Or expression2

В вашем случае у вас есть:

If MName = "04" Or "06" ...

И в этом случае "06" само по себе является выражением, вы говорите:

If (MName = "04") Or ("06") Or (expression3) Or ...

Вот почему ваши результаты не такие, как вы ожидаете.

Вместо этого рассмотрите возможность использования оператора Case:

Select Case MName
    Case "04", "06", "09", "11"
        Dname = "30"
    Case "30"
        DName = "28"
    Case "01", "03", "05", "07", "08", "10", "12"
        DName = "31"
    Case Else
        DName = "" 'Modify if needed...
End Select

Сделать это с помощью операторов If намного сложнее.

 If MName = "04" Or MName = "06" Or MName = "09" MName = Or MName = "11" Then 
        DName = "30"
    ElseIf MName = "02" Then
        DName = "28"
    ElseIf MName = "01" Or MName = "03" Or MName = "05" _
                    Or MName = "07" Or MName = "08" Or MName = "10" Or MName = "12" Then
        DName = "31"
    Else
 End If
11.10.2016
  • Ах, теперь это имеет смысл. Большое спасибо за помощь и урок! 11.10.2016

    • 2

    Каждый оператор OR запускает новое условие, поэтому вам нужно добавить MName = к каждому.

    MName = Format(dtDate, "mm", vbUseSystemDayOfWeek, vbUseSystem)

 If MName = "04" Or MName = "06" Or MName = "09" Or MName = "11" Then 
        DName = "30"
    ElseIf MName = "02" Then
        DName = "28"
    ElseIf MName = "01" Or MName = "03" Or MName = "05" Or MName = "07" Or MName = "08" Or MName = "10" Or MName = "12" Then
        DName = "31"
    Else
 End If

    Возможно, вам будет лучше использовать функцию CASE.

    MName = Format(dtDate, "mm", vbUseSystemDayOfWeek, vbUseSystem)

Select Case CInt(MName)
    Case 4 To 5
        Debug.Print "hi"
    Case 6, 7, 8
        Debug.Print "ho"
    Case 9 To 10
        Debug.Print "hum"
    Case Else
        Debug.Print "error!"
End Select

    Где вместо моего debug.print вы помещаете DName = "XX".

    11.10.2016
  • Большое спасибо за помощь и урок! 11.10.2016
    • Новые материалы
    Кластеризация: более глубокий взгляд
    Кластеризация — это метод обучения без учителя, в котором мы пытаемся найти группы в наборе данных на основе некоторых известных или неизвестных свойств, которые могут существовать. Независимо от..
    Как написать эффективное резюме
    Предложения по дизайну и макету, чтобы представить себя профессионально Вам не позвонили на собеседование после того, как вы несколько раз подали заявку на работу своей мечты? У вас может..
    Частный метод Python: улучшение инкапсуляции и безопасности
    Введение Python — универсальный и мощный язык программирования, известный своей простотой и удобством использования. Одной из ключевых особенностей, отличающих Python от других языков, является..
    Как я автоматизирую тестирование с помощью Jest
    Шутка для победы, когда дело касается автоматизации тестирования Одной очень важной частью разработки программного обеспечения является автоматизация тестирования, поскольку она создает..
    Работа с векторными символическими архитектурами, часть 4 (искусственный интеллект)
    Hyperseed: неконтролируемое обучение с векторными символическими архитектурами (arXiv) Автор: Евгений Осипов , Сачин Кахавала , Диланта Хапутантри , Тимал Кемпития , Дасвин Де Сильва ,..
    Понимание расстояния Вассерштейна: мощная метрика в машинном обучении
    В обширной области машинного обучения часто возникает необходимость сравнивать и измерять различия между распределениями вероятностей. Традиционные метрики расстояния, такие как евклидово..
    Обеспечение масштабируемости LLM: облачный анализ с помощью AWS Fargate и Copilot
    В динамичной области искусственного интеллекта все большее распространение получают модели больших языков (LLM). Они жизненно важны для различных приложений, таких как интеллектуальные..