VB6 Funzione per trovare giorno dell'anno

[predator80]

esiste una funzione per trovare il giorno dell'anno?


esempio:

31 dicembre = 365
2 gennaio = 2
1 febbraio = 32

[raffaeu]

Dim D as Date
D = Date.Now()
D = D.DayOfYear()

[predator80]

Originariamente inviato da raffaeu

Dim D as Date
D = Date.Now()
D = D.DayOfYear()

ho sbagliato in vba access 2000
in un campo ho una data e devo prendere il giorno dell'anno di quella data, quella funzione li nn mi va....

:master:

[raffaeu]

Scusa era in NET, in VBA non credo proprio ... Devi fare una funzione personalizzata ...
Infatti lui ti da :

FirstDayOfWeek o FirstDayOfYear e basta.

[Brainjar]

Il codice :

Dim D as Date
D = Date.Now()
D = D.DayOfYear()

è errato. Oltre alla sintassi errata, in VB60 l'oggetto Date non ha
metodi.

Prova con questa funzione ad hoc, funzionante anche in VBA :

Public Function DayOfYear(data As Date) As Long
    DayOfYear = DateDiff("d", CDate("01/01/" & Year(data)), data) + 1
End Function

Private Sub Command1_Click()
  MsgBox DayOfYear(CDate("31/12/2005"))
End Sub

Ciao,

[xegallo]

datediff("d",date, cdate("01/01/"& year(date)))

[Brainjar]

Per una volta sono stato più veloce del mitico xegallo !!
Ciao,

PS: Questa volta il tuo avatar ha un qualcosa di meridionale, neh?

[xegallo]

Originariamente inviato da Brainjar


è errato. Oltre alla sintassi errata, in VB60 l'oggetto Date non ha
metodi.




Ciao,

anche perchè non è un oggetto ma un tipo di dato.
Scusate se sono pedante ma le cose in programmazione hanno dei nomi specifici e se si voglino evitare misunderstanding è auspicabile usarli nel modo corretto

[predator80]

Questo VBA 2000 è obsoleto non ha niente di già fatto c'è da fare tutto
:master:

[xegallo]

Originariamente inviato da Brainjar
Per una volta sono stato più veloce del mitico xegallo !!
Ciao,

PS: Questa volta il tuo avatar ha un qualcosa di meridionale, neh?

considerando che ho scritto i parametri al contrario poi

veramente è Marco Paolini di Belluno (credo)