Подскажите пож-та как определить порядковый день года?

[MagicMan]

Подскажите пож-та как определить порядковый день года?

[GSerg]

d - dateserial(year(d),1,1) + 1

[MagicMan]

СПАСИБА!

[Andrey Fedorov]

d - dateserial(year(d),1,1) + 1

Или

Код: Выделить всё

Format$(Date,"y")

[uhm]

Еще можно через DateDiff, до кучи. Хотя самый лучший способ - способ Andrey Fedorov.

Кстати, GSerg, твой метод выдаст нецелое число, если d у тебя нецелое (например, если сделать d=Now()).

[alibek]

Нет, самый лучший способ -- от текущей даты отнять дату первого дня года и прибавить один. Дробность никак не мешает, в крайнем случае можно сделать Fix(d).
А Format$() надо еще переводить в число.

[uhm]

Ладно, на любителя.
Я обычно за самый короткий код. Тут получается так:

DateDiff('d',d,dateserial(year(d),1,1) + 1

Fix(d) - dateserial(year(d),1,1) + 1

CInt(Format$(d, "y"))

[alibek]

Самый короткий?
Ты знаешь, во что раскладывается Format$() при компиляции?

[uhm]

Ага. И это прекрасно иллюстрирует принцип "на любителя" - поскольку я не пишу ни коммерческих программ, ни даже программ, которыми будут пользоваться много пользователей, мне проще написать программу с более коротким кодом на VB и более длинным машинным кодом, чем наоборот. Именно это я и имел в виду.

[Andrey Fedorov]

Самый короткий?
Ты знаешь, во что раскладывается Format$() при компиляции?

А ты что, в цикле это вычисляешь? Интересно зачем?

Если нужно в Grid-е показать день от начала года, то в нормальном Grid-e должно быть свойство форматирования в котором достаточно указать тое-же символ y. Аналогично и в отчете. В остальных случаях вызов данной функции более одного раза практически никогда и не требуется - разницы в скорости и специально замерить не сможешь.

Так что краткость в данном случае лучше...