Newsgroup: it.comp.appl.access
Titolo: DateAdd: problema con codice e con cifre anno

Avrei un problema con la funzione DateAdd
Ho bisogno che, inserendo una data, mi venga calcolata la data dopo 6 anni.
Ho un campo Data1 (iniziale) e Data2 (finale) in una tabella.
Tramite VB ho inserito questo codice nella Proprietà>DopoAggiornamento di
Data1:
    Dim Data1 As Date
    Dim Data2 As Date
    Me.Data1 = Inizio
    Fine = DateAdd ("yyyy", 6, Inizio)
    Me.Data2 = Fine
Inserendo la data in Data1 e premendo TAB, succede che Data1 mi diventa
0.0.00 e Data2 mi risulta qualcosa come 10.01.1905.
La prova l'ho fatta inserendo come Data1 = 12.12.2000, e mi sarei aspettato
Data2 = 12.12.2006 (o giù di lì), e invece niente.
Inoltre, e non ho idea di come risolvere il problema, il campo data cosidera
l'anno solo con 2 cifre finali, mentre a me ne servono 4.
Grazie, ciao.
Andrea

Andrea
Ciao
--
Alberto
No alle guerre

Proverò con i suggerimenti e le correzioni.
Grazie
Andrea

Ha funzionato, però mettendo come formato della casella di testo relativa
alla data calcolata con DateAdd gg/mm/aaaa non mi esce l'anno a 4 cifre
(nella casella iniziale invece è tutto a posto)
Ho provato anche a creare un pulsante, alla cui pressione si effettua una
altra operazione con DateAdd, il cui scopo sarebbe quella di aggiungere 1
anno alla data attuale, ma che a me interessa solo la visualizzazione
dell'anno. Ho provato con:
DateAdd ("yyyy", 1, Now), ma, giustamente, mi restituisce la data attuale
aumentata di un anno. Pensavo che forse c'entra la funzione Year, ma non ho
trovato come usarla. Dovrei dire al sistema di prendere l'anno attuale,
aumentarlo di 1 e magari premettere al valore calcolato la stringa "31/12/",
ma non so come fare.
Ciao
Andrea

Ciao


Me.MiaCasellaDiTesto = Year(Now) + 1
Io avevo provato a discriminare l'anno in Now() usando qusto codice:
MiaVariabile = DateAdd("yyyy", 1, Year(Now))
però mi dava errore proprio nella discriminazione (adesso non ricordo il
messaggio, ci lavoro in ufficio).
Sai, a volta penso che la guida in linea non dia molti aiuti, nel senso che,
se conosci già i comandi, ti da dei suggerimenti, ma se non hai idea di come
fare una cosa (per esempio io non aveva la minima idea di dover usare
DateSerial) non ti è di aiuto.
Anche la manualistica cartacea da parte terzi non è di molto aiuto.
Mi toglieresti una curiosità: in uno dei primi post mi hai fatto cambiare
l'ordine di Me.MioElemento e la variabile assegnata; perchè è così
importante questo ordine (variando l'ordine come suggerivi funzionava)? non
è comunque una uguaglianza?
Grazie per i suggerimenti
Andrea

Andrea
Ciao a te.


>La materia è molto vasta
Questo è sicuro, però più vado avanti, più mi diverto a fare cose.  Il bello
è che non devo pensare a cosa fare, in quanto lavorando in un ufficio ti
vengono in mente sempre dei modi per facilitarti il lavoro (o almeno spero)
e quindi inizi a smanettare. Riuscire poi ad ottenere ciò che ti serve,
questo è da vedere, però non si sa mai. Adesso per esempio sto cecando di
risolvera un preoblema collegato a questo che mi hai aiutato a risolvere,
però dal NG ancora nessuna nuova (il posto Problema complesso etc etc), ma
contemporaneamente effettua varie prove autonomamente.
Per quanto riguarda il problema delle date, effettivamente il tuo
suggerimento ha risolto il problema in modo molto egregio (o meglio,
ottimanente), e poi ho trovato perchè non cambiava il formato alla data
(anno a 2 e non a 4 cifre): nella tabella di riferimento la seconda data era
impostata come testo (avevo dimenticato di variarla in data).
Grazie ancora, ciao e a presto.
Andrea

Andrea
Buon lavoro (e buon divertimento) ... anche buone ferie ovviamente
Ciao
