Newsgroup: it.comp.appl.access
Titolo: Numero della settimana del mese ?

Ciao a tutto il NG.
Dopo aver cercato invanamente nel' it.comp.appl.access, ho pensato di 
chiedere aiuto a voi
Domanda ?
se in questo modo trovo il quadrimestre: DatePart("q";[Data fattura])
considerando che in un mese ci sono 4 settimane
Cosa devo scrivere per ricavare il numero della settima del corrente mese 
es. 1 2 3  4
Grazie a chi mi sarà d'aiuto
Pabel 


Come dice l'Help:
Msg = "Settimana: " & DatePart("w";[Data fattura])
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 Pabel
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 @Alex (Alessandro Baraldi)
-- 


 @Alex (Alessandro Baraldi)
Scusami Alessandro, so che non sei l'ultimo arrivato in questo NG, 
sicuramente o non ho posto bene la domanda, o non riesco ad interprettare la 
tua risposta, premetto che questa stringa la so usare solo in un campo di 
una querry e oltre a darmi errore, cambiando il W con ii mi restituisce il 
numero della settimana da 1 a 52 mentre io vorrei se possible vedere il 
numero da 1 a 4 relative al mese.
Pabel



Ok Roberto già pensavo che non si potesse fare in maniera semplice, ti 
voglio comunque spiegare qual'era il mio scopo.
ho una lista di donatori di sangue e in base alla data dell'ultima donazione 
e ai giorni di intervallo tra una donazione e l'altra mi sona ricavato la 
data di avviso donazione, visto che la donazione vengono fatte sempre di 
giovedì della 1 2 3 o 4 settimana mi serviva per stampare l'avviso ricavare 
questa Etichetta: Il sig. Rossi Mario è invitato a donare il sangue il 
Giovedì del 11/2004 la 4 settima del mese 


Ho sicuramente frainteso la domanda, nel migliore dei modi
sarebbe stato "ww", in ogni caso dato che il riferimento è Settimana nel
Mese
in effetti non è corretto e come hai suggerito non c'è un metodo Nativo.
Trattandosi però della settimana all'interno del Mese e quindi un
Riferimento
relativo svincolato dall'Assoluto (Annuale) forse si potrebbe sfruttare una
banale divisione matematica partendo dal Day([Data]):
If Day([Data]) Mod 7 >0 then
    Settimana=Fix(Day([Data])/7)  + 1
 Else
    Settimana=Fix(Day([Data])/7)
End if
Non ho avuto modo di provarla, ma vuole essere solo un suggerimento
operativo.
Ciao
-- 
@Alex (Alessandro Baraldi)


 ha scritto nel messaggio
news:8Fkld.163449$b5.80...@news3.tin.it...

Potresti tentare con:
SetimanaMese=datepart("ww",DataCheMiInteressa)  -
datepart("ww",dateserial(year(DataCheMiInteressa)  & "/" &
month(DataCheMiInteressa) & "01")  +1
Al

 Giovedì del 11/2004 la 4 settima del mese
Ma io non mi complicherei tanto la vita indicando la settimana del mese, ma
indicherei nella lettera la data precisa della prossima donazione
(gg/mm/aaaa) calcolandomela sommando i giorni di intervallo alla data ultima
donazione e poi determinando il primo giovedì successivo a tale data.



Ok la data l'ho calcolata, per trovare il giorno del primo giovedě 
successivo cosa devo fare?
Pabel 

 Pabel
Se la data che hai calcolato si chiama MiaData, prova con il seguente codice
VBA:
Dim PrimoGiovedì As Date
For PrimoGiovedì = MiaData To MiaData + 7
    If WeekDay(PrimoGiovedì) = 5 Then
        Exit For
    End If
Next PrimoGiovedì
All'uscita dal ciclo For ... Next la variabile PrimoGiovedì conterrà la data
del primo giovedì successivo a MiaData.


 ha scritto nel messaggio 
news:im1md.33745$Ni.12...@twister1.libero.it...

Ok crazie mi va benissimo anche così
Pabel