current day is day # of this year

[wh00t]

greetings all

I need to obtain the day number for a database I'm working on i.e. today is the 42nd day of this year, I do recall seeing something to get this, but I can't remember it now :/

any help would be appreciated

 

[dcx693]

DatePart("y",Date)
will get you 42.

 

[Mile-O]

Pointless function.

Public Function DayOfYear(ByVal dteTemp As Date) As Integer
    On Error GoTo Err_DayOfYear
    DayOfYear = DateDiff("d", DateSerial(Year(dteTemp), 1, 0), dteTemp)
Exit_DayOfYear:
    Exit Function
Err_DayOfYear:
    MsgBox Err.Description, vbExclamation, "Error #" & Err.Number
    Resume Exit_DayOfYear
End Function

 

[wh00t]

ta