[date]ritorno Nr del giorno di un Anno

[Toeke]

Eiste una funzione o qualche triggolo che dato una data mi restituisce il numero dei giorni dall'inizio dell'anno?

Per esempio se io in una variabile ho la data 21/03/2002 questa funzione mi ritorna "90" ossia 90° giorno dell'anno 2002.


Tnk per l'aiuto.

[Toeke]

Private Sub Form_Load()

    Dim x As Long
    Dim y As Long
    Dim z As Long
    Dim hdate As Date
    hdate = "21/03/2002"
    x = DateSerial(Year(hdate), Month(hdate), Day(hdate))
    y = DateSerial(Year(hdate), 1, 1)
    z = x - y
    MsgBox z
    Unload Me

End Sub

Smanettando ho risolto meta del mio problema

z mi restituisce "79" che corrispondono al numero di gg che sono trascorsi dal 01/01/2002 al 21/03/2002
Ora l'altra meta del mio problema ste ne processo inverso
Dato un numero mi deve tornare la data .

[sebamix]

Usa la funzione DateAdd

[Toeke]

Originariamente inviato da sebamix
Usa la funzione DateAdd

Smamettando ho risolto anke la versione inversa cosi :

Private Sub Form_Load()
    Unload Me

    Dim x As Long
    Dim y As Long
    Dim z As Long
    Dim hdate As Date
    hdate = "21/03/2002"
    x = DateSerial(Year(hdate), Month(hdate), Day(hdate))
    y = DateSerial(Year(hdate), 1, 1)
    z = x - y
    MsgBox z + 1
    
'viceversa

    z = 79
    x = y + z
    MsgBox  = DateSerial(Year(x), Month(x), Day(x))
End Sub

P.s. Sebamix, secondo te puo essere una soluzione buona o ci puo' essere di meglio?
Nel senso col date add come sarebbe al funzione?


Toe

[sebamix]

Non cambierebbe poi molto visto che ti gli dovresti semplicemente dire "Aggiungi xx giorni al primo gennaio di tale anno".

[Toeke]

effettivamente

    MsgBox DateAdd("d", 79, y)

da il medesimo risultato di :

    MsgBox  = DateSerial(Year(x), Month(x), Day(x))

Tnk Sebamix




P.s. Chissa perche' ho aperto il forum visto che ho praticamente risolto da sola (+ o -)

Vabbe speriamo che in un futuro possa servire a qualcuno

Ciao Sebamix e grazie


Toe

[Toeke]

Weekday()

Questa funzione passandogli una data ti ritorna un integer settimanale dove 1=domenica 2=lunedi etc.
Quello che mi chiedo e':

Sapete se esiste una funzione che mi ritorno anziche un integer settimanale direttamente il nome del gg della settimana o me la becco e mi faccio una select case?