[VBA/OFFICE]: Determinare la data dell'ultimo lunedì del mese precedente in Access

[nerokufu]

ciao ragazzi,
mi occorrerebbe sapere il codice da utilizzare per determinare la data dell'ultimo lunedì del mese precedente a quello corrente

con questa ottengo il primo giorno della settimana corrente...come devo fare per ottenere quanto scritto sopra?

grazie a tutti!

Date() - WeekDay(Date()) + 1

[alka]

Quale linguaggio? VB6? VB.NET?

Hai letto il Regolamento?

[nerokufu]

intendo in access 2003.... ho sbagliato sezione???

sorry....

[alka]

Originariamente inviato da nerokufu
intendo in access 2003.... ho sbagliato sezione???

Sezione ok, titolo corretto.
Buona prosecuzione!

[Boolean]

con queste righe dovresti riuscirci:

Dim ActDay As String
Dim LastDayPrevMonth As String
Dim CheckDate As String
Dim D As Integer
ActDay = Day(Date)
LastDayPrevMonth = DateAdd("y", -ActDay, Date)
For D = 0 To 6
    CheckDate = DateAdd("y", -D, LastDayPrevMonth)
    If Weekday(CheckDate, vbMonday) = 1 Then
        MsgBox "Ultimo Lunedì mese precedente: " & CheckDate
        Exit For
    End If
Next D

Boolean

[nerokufu]

ciao boolean,
innanzitutto grazie.....

inserendo il tuo codice in un modulo mi appare il messaggio con la data richiesta...

a me servirebbe però che il dato mi uscisse in una query di access dove calcolo già altre date:

Primo_giorno_Mese_corrente: Date()-Day(Date())+1

Ultimo_giorno_Mese_corrente: DateSerial(Year(Date());Month(Date())+1;0)

Ultimo Giorno Mese Scorso: DateSerial(Year(Date());Month(Date())+0;0)

Ultimo lunedì del mese precedente a quello corrente: ?????????????

grazie ancora

[Boolean]

quello che puoi fare è incapsulare quelle righe in una Function posta in un modulo, e la sfutti nella query, ovvero:

nel Modulo:

Public Function UltimoLunedi() As Date
Dim ActDay As String
Dim LastDayPrevMonth As String
Dim CheckDate As String
Dim D As Integer
ActDay = Day(Date)
LastDayPrevMonth = DateAdd("y", -ActDay, Date)
For D = 0 To 6
    CheckDate = DateAdd("y", -D, LastDayPrevMonth)
    If Weekday(CheckDate, vbMonday) = 1 Then
        UltimoLunedi = CDate(CheckDate)
        Exit For
    End If
Next D
End Function

a questo punto puoi tranquillamente usare la funzione:

Ultimo lunedì del mese precedente a quello corrente: UltimoLunedi

Boolean

[nerokufu]

scusami boolean se ti rompo ancora....purtroppo non sono un grande programmatore...

il modulo l'ho creato...ma come lo collego alla query....se inserisco solo

Ultimo lunedì del mese precedente a quello corrente: UltimoLunedi


non ottengo nulla.....


grazie ancora

[Boolean]

ho dimenticato che il nome della Funzione va fatto seguire dalle parentesi, ovvero:

Ultimo lunedì del mese precedente a quello corrente: UltimoLunedi()

questo va scritto nel genratore di query, al posto del nome del campo.

Boolean

[nerokufu]

grandeeeeeeeeeee!!!!! funziona!!

grazie mille boolean per la tua disponibilità....alla prossima