Public Function CalcParam(newData As Date)
DATADA = Fix(newData)
DATAAL = DateAdd("d", 6, DATADA)
Me.lblSettimanale.Caption = "Settimana da " & _
StrConv(Format(DATADA, "dddd dd mmmm"), vbProperCase) & " a " & _
StrConv(Format(DATAAL, "dddd dd mmmm"), vbProperCase)
Call RefreshDataControl
Call ReBuildRS
If ctlOld <> "" Then
Me.Controls(ctlOld).Selected(Me.Controls(ctlOld).ListIndex) = False
Me.Controls(ctlOld).BackColor = cBK_NOW
ctlOld = ""
End If
Call RefreshDay
End Function
allego anche firstdayinweek
Function FirstDayInWeek(Optional dtmDate As Variant, Optional vFirstDayInWeek As VBA.VbDayOfWeek = VBA.VbDayOfWeek.vbMonday) As Date
' ------------------------------------------------------
' Restituisce il primo gg della settimana passando la Data
' ------------------------------------------------------
If IsMissing(dtmDate) Then dtmDate = Date
FirstDayInWeek = Fix(dtmDate - Weekday(dtmDate, vFirstDayInWeek) + 1)
End Function