Buongiorno a tutti,
approfitto della vostra bonta'
ho girato in largo e in lungo sul forum ma non mi racapezzo piu
mi piacerebbe una funzionacina settimana
cioe passando la data del giorno tipo settimanaOdierna(datetime.now)
mi ritornasse una mappa con il lundedi della data corrente e il sabato della data corrente
datain=09-11-2020
datafin=14-11-2020
e nello stesso modo tipo settimanaSuccessiva(Datetime.now)
datain=16-11-2020
datafin=21-11-2020
Grazie per la vostra collaborazione
Puoi combinare due funzioni già pronte.
DateTime. getDayOfWeek(datetime.now) --> ritorna 1 per Domenica, 2 Lun....
A quel punto sai di quanti giorni scalare (in avanti o indietro).
Poi utilizzi DateUtils.AddPeriod per aggiungere un "Period" positivo o negativo in modo da avere come risultato il long che rappresenta la nuova data iniziale.
Stessa tecnica per quella finale (aggiungi 7 alla precedente).
Penso che dopo pranzo non vedrai nulla, sono fuori per le mie solite installazioni, proverei questa sera dopo le 22.00, ma se trovo qualcosa di gia pronto, potrei andare avanti con il mio report. ???
mi piacerebbe una funzionacina settimana
cioe passando la data del giorno tipo settimanaOdierna(datetime.now)
mi ritornasse una mappa con il lundedi della data corrente e il sabato della data corrente
I sei giorni precedenti x la settimana odierna e i sei giorni successivi per la settimana futura, mi serve x la pianificazione dei lavori fatti e quelli da fare
Se un'anima gentile potessere creare queste 2 funzioncine.
Dim dow As Int = DateTime.GetDayOfWeek(oggi) '1 =dom, 2= lun...7=sab
Dim period1 As Period
period1.Initialize
If dow = 1 Then period1.Days = -6 Else period1.Days= dow-2
Dim lunC As Long = DateUtils.AddPeriod(oggi,period1)
If dow = 1 Then period1.Days = 1 Else period1.Days= 9-dow
Dim lunN As Long = DateUtils.AddPeriod(oggi,period1)
Log("Lunedì corrente: "&DateTime.Date(lunC))
Log("Lunedì prossimo: "&DateTime.Date(lunN))