0 голосов
спросил от в категории VB6
Ваша логика неверна!

If iDay < 6 Then

Проверьте это:
If iDay <> 6 Then


Для получения дополнительной информации см.:
If iDay < 6 Then
# [
If iDay <> 6 Then
# ]

Я бы изменил ваш код на:
For aDay = Date1 To Date2     If WeekDay(aDay) <> 6 Then         iDays = iDays + 1     End If Next aDay

Где <код> aDay variable - тип Date и iDays - это тип Integer .

Ваш ответ

Отображаемое имя (по желанию):
Конфиденциальность: Ваш электронный адрес будет использоваться только для отправки уведомлений.

Категории

Добро пожаловать на сайт DraftingCode Q&A, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Связанных вопросов не найдено

...