gestione scadenze

Question

salve a tutti,

da diversi esempi nella rete sto provando ad applicare dei codici vba per ottenere determinati risultati.

in pratica ho diversi campi

data emissione 

scadenza anni

data scadenza

data odierna

stato tessera (puo essere scaduta oppure ok)

tempo restante giorni 

tempo trascorso dalla scadenza in gg mesi e anni

dal codice inserito riesco soltanto ad effettuare l'aggiunta dei giorni e non degli anni.

Inoltre sono riuscito ad inserire la formattazione.

ho qualche difficoltà con i calcoli dei tempi trascorsi.

In pratica in base allo stato della tessera si dovrebbero compilare automaticamente i campi che indicano i giorni trascorsi dalla scadenza oppure il tempo restante prima della scadenza

Provo a postare il linkcon il file

Grazie a tutti in anticipo

Answer 1

ciao Peppino,

devi aprire un modulo standard e copiare incollare e salvare in esso il codice della funzione 'Diff2Dates' contenuta nel link.

ciao, Sandro.

Answer 2

Ciao Sandro grazie,

ho riniziato da capo come da tuo consiglio

ho creato una semplice tabella con 2 campi (tabella2)

poi sono andato in crea struttura query e din visualizzazione SQL ho incollato il codice.

Quando eseguo la query esce il messaggio Funzione 'Diff2Dates' non definita nell'espressione

E' corretta la procedura oppure devo modificare qualcosa?

Grazie ancora

Answer 3

ciao Peppino,

data la tabella :

ottieni questo :

con questo predicato SQL :

SELECT Tabella2.ID, Tabella2.[data emissione],

             Tabella2.dataScadenza,

             DateDiff("yyyy",[data emissione],[datascadenza]) AS anniScadenza,

            [datascadenza]-Date() AS giorniRestanti,

            Date()-[datascadenza] AS giorniScadenza,

            Diff2Dates("ymd",[data emissione],[datascadenza]) AS scadenzaDettaglio

FROM 

            Tabella2;

Ciao, Sandro.

Answer 4

ciao Sandro, ho visto il link ma proprio non saprei da dove iniziare :-(

Riesci a darmi qualche ulteriore aiuto?

Grazie

Answer 5

ciao Peppino,

non si memorizzano calcoli nella tabelle ma i totali si fanno al volo quando servono.

Imposta solo due campi, dataEmissione e dataScadenza se sono variabili, soprattutto per quanto alla scadenza ( nel senso, non legata a specifici calcoli).

Applica le funzione native dateAdd/dateDiff oppure vedi questa

http://www.accessmvp.com/djsteele/Diff2Dates.html

che è completa anche per il calcolo dettagliato in anni, mesi giorni.

Facci sapere.

ciao, Sandro.