Newsgroup: it.comp.appl.access
Titolo: Intervallo giorni

avete sottomano una funzione che mi fornisce la data prima e ultima di un 
intervallo precostituito (es.settimana corrente, mese corrente, anno 
corrente).grazie
andrea 

 ha scritto nel messaggio 
news:452a1711$0$39887$4faf...@reader4.news.tin.it...

Ma un "intervallo precostituito" č di per se una data prima e ultima, 
altrimenti che "intervallo" č... non trovi? Spiegati meglio. 

 ha scritto nel messaggio 
news:452a2546$0$4571$4faf...@reader2.news.tin.it...

Regola n° 1... sezione ICAA del Sito comune (
www.sitocomune.com
) ... leggi 
attentamente la netiquette, perchè non è come hai fatto tu che si posta in 
questo NG.
Regona n° 2... se qualcuno ti chiede di "spiegarti", devi farlo per bene, 
altrimenti il tuo secondo POST vale almeno quanto il primo... io credo 
d'aver capito cosa intedi, ma mica per tutti è così.
Bene, allora...
se hai 2 campi "DAL" e "AL",
puoi fare così per il mese corrente...
Me.DAL= CVDate(Format(DateAdd("d", -Day(Now) + 1, Now()), "dd/mm/yy"))
Me.AL = CVDate(Format(DateAdd("m", 1, DateAdd("d", -Day(Now) + 1, Now())), 
"dd/mm/yy"))
così per quello successivo...
Me.DAL= DateAdd("m", 1, Me.DAL)
Me.DAL = DateAdd("m", 1, Me.DAL)
così per quello precedente...
Me.DAL= DateAdd("m", -1, Me.DAL)
Me.AL = DateAdd("m", -1, Me.AL)
Spero di esser stato chiaro. 

1)excuse me conosco le regole, andavo di corsa e non ho pulito il msg
2)per quano riguarda il mio quesito è chiaro che sia rivolto a coloro che 
usano il vba in access
e la sinteticità in questo caso non è utilizzata a scapito della chiarezza 
secondo me
grazie cmq ..ora cedo come implementare la cosa
andrea 

rispiego: l'unico valore in 'entrata' che si puo' conoscere č la data di 
oggi ( con now()).
Da questa devo poter ricavare l'intervallo della settimana corrente(primo e 
ultimo giorno della settimana corrente), l'intervallo del mese di 
appartenenza, quello dell'anno. L'intervallo dell'anno č banale. Servono gli 
altri due.
Oggi cerco di risolverlo. Se qualcuno ha la funzione pronta....Grazie di 
Cuore
Andrea 

 andrea
-- 
-- 
Ciao
Pablitomf (Maurizio Facciuti)
-----------------------------------------------------------------
Access: 97, 2000, XP e 2003
ASP
-----------------------------------------------------------------
http://www.accessgroup.it/
-----------------------------------------------------------------
Il mio motto :
""Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media." 

 Andrea
Bhè con Now() prendi pure l'ora i minuti e i secondi... credo ti convenga 
Date().
Cmq...
Anno:
Prima data: "01/01/"&format(Date();"aaaa")
Ultima data : "31/12/"&format(Date();"aaaa")
Mese :
Prima data: "01/"&format(Date();"mm/aaaa")
Ultima data: CVDate(Format(DateAdd("m", 1, DateAdd("d", -Day(Date()) + 1, 
Date()))
Settimana... lasciami pensare...
pensando al primo utile come il lun. e l'ultimo come la dom.
devi controllare prima di tutto il Date() corrente che giorno è con un 
format(Date();"ggg")
if format(Date();"ggg") = "Lun" then
    Primo_giorno = Date()
    Ultimo_Giorno = DateAdd("d",6,Date())
End If
if format(Date();"ggg") = "Mar" then
    Primo_giorno = DateAdd("d",-1,Date())
    Ultimo_Giorno = DateAdd("d",5,Date())
end if
if format(Date();"ggg") = "Mer" then
    Primo_giorno = DateAdd("d",-2,Date())
    Ultimo_Giorno = DateAdd("d",4,Date())
end if
if format(Date();"ggg") = "Gio" then
    Primo_giorno = DateAdd("d",-3,Date())
    Ultimo_Giorno = DateAdd("d",3,Date())
end if
if format(Date();"ggg") = "Ven" then
    Primo_giorno = DateAdd("d",-4,Date())
    Ultimo_Giorno = DateAdd("d",2,Date())
end if
if format(Date();"ggg") = "Sab" then
    Primo_giorno = DateAdd("d",-5,Date())
    Ultimo_Giorno = DateAdd("d",1,Date())
end if
if format(Date();"ggg") = "Dom" then
     Primo_giorno = DateAdd("d",-6,Date())
    Ultimo_Giorno = Date()
End if
Dovrebbe essere una cosa del genere... ;)

 Dovrebbe essere una cosa del genere... ;)
Vedi una raccolta di funzioni rigradante le date in:
http://www.accessgroup.it/HomeArgomenti.asp?ID=41&Oggetto2=Formattiamo%20le%20date
Ciao
--
salvino
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

risolto cosi'
Function PrimoGiornoDellaSettimana(d As Date)
pos = DatePart("w", d, vbMonday)
If pos = 1 Then valore = DateAdd("d", 0, d)
If pos = 2 Then valore = DateAdd("d", -1, d)
If pos = 3 Then valore = DateAdd("d", -2, d)
If pos = 4 Then valore = DateAdd("d", -3, d)
If pos = 6 Then valore = DateAdd("d", -4, d)
If pos = 7 Then valore = DateAdd("d", -5, d)
PrimoGiornoDellaSettimana = valore
End Function
Function UltimoGiornoDellaSettimana(d As Date)
pos = DatePart("w", d, vbMonday)
If pos = 1 Then valore = DateAdd("d", 6, d)
If pos = 2 Then valore = DateAdd("d", 5, d)
If pos = 3 Then valore = DateAdd("d", 4, d)
If pos = 4 Then valore = DateAdd("d", 3, d)
If pos = 5 Then valore = DateAdd("d", 2, d)
If pos = 6 Then valore = DateAdd("d", 1, d)
If pos = 7 Then valore = DateAdd("d", 0, d)
UltimoGiornoDellaSettimana = valore
End Function
Andy