Newsgroup: it.comp.appl.access
Titolo: Si lo so sono un rompip£"e ....

Allora.
Devo fare l'ultima cosa e poi ho finito questo ｣$｣%!$"%$ database.
Ho una tabella con i movimenti che contiene 2 date, quella di uscita e
quella di entrata.
Fare la differenza in giorni e' facile, pero' devo anche poter dire quanti
giorni in un anno.
Cioe', se ho entrata : 20/12/2000 e uscita : 10/1/2001 i giorni relativi
all'anno 2001 devono essere 10.
Come faccio ? Saprei fare il modulo concettualmente, ma praticamente non ne
ho mai fatti .....
Inverse

 ha scritto nel messaggio
news:92fkmn$i0o$1...@nread1.inwind.it...

Potresti agire come segue:
dtData1 = <prima data>        ' Nel tuo esempio 20/12/2000
dtData2 = <seconda data>    ' Sempre ne tuo esempio 10/1/2001
If Year(dtData1) = Year(dtData2) Then
    Diff1 = 0
    Diff2 = DateDiff("d", dtData1, dtData2)
Else
    Diff1 = DateDiff("d", dtData1, DateSerial(Year(dtData2), 1, 1))
    Diff2 = DateDiff("d", DateSerial(Year(dtData2) - 1, 12, 31), dtData2)
End If
Su Diff1 hai il valore zero se le date sono dello stesso anno, altrimenti
hai i giorni intercorsi dalla prima data all'anno della seconda data. Su
Diff2 hai i giorni dall'inizio dell'anno alla seconda data, se la prima data
appartiene ad un'anno diverso, altrimenti hai la differenza fra la prima
data e la seconda data.
Ciao
LaLo

"LaLo" <reg...@LLtin.it> ha scritto nel messaggio
news:92fmc9$s6b$1...@pluto.sm.dsi.unimi.it...

Ho dimenticato di aggiungere che questa idea non è l'unica strada
percorribile e non è merito mio ... anche se sinceramente non ricordo bene
dove l'ho visto (sito comune? puo darsi)
Ciao
LaLo

 ha scritto nel messaggio
news:92fkmn$i0o$1...@nread1.inwind.it...

Antò, je posso risponne? :o)
GiorniDaInizioAnno = Format([DataUscita]; "a")
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
---------------------------------------------

 ha scritto nel messaggio
news:o2K26.195468$hk4.7...@news.infostrada.it...

Scusa Roberto ma sono rimasto allibito; sono andato a consultare la funzione
Format sull'help ma il parametro 'a' non  l'ho trovato; quindi ho fatto una
prova per vedere se funziona, ma non si ottiene il risultato sperato.
Potresti essere più esplicito sulla tua soluzione? Grazie
LaLo


Scusami, se lavori in VBA è *y* anzichè *a* e virgola anziché punto e
virgola;
ovvero:
If Year(Me!DataEntrata) = Year(DataUscita) Then
    Me!Differenza = Me!DataUscita - Me!DataEntrata
Else
    Me!Differenza = Format(Me!DataUscita, "y")
End If
Mentre se la formula la devi scrivere nell'origine controllo di Differenza,
allora:
=Format([DataUscita];"a")
Di fatto l'help (Formati di data e ora definiti dall'utente (funzione
Format)) non esplicita il fatto che il parametro formato deve essere scritto
in italiano ( a invece di y, g invece di d, i invece di w) se la funzione è
scritta nenell'origine controllo e, se non sbaglio, in una query; quanto a
punto e virgola anziché virgola come sai è una regola nota.
Buon Anno


 in italiano ( a invece di y, g invece di d, i invece di w) se la funzione
č...
... e che cazz#@
Ma non era meglio se lasciavano le lettere di formattazione non tradotte,
almeno si evitavano ste cose.
Le solite cose all'italiana, lasciate a meta'. O si traduceva tutto, o era
meglio non tradurre niente.
;-)
Sib