Inserimento mese successivo

di
ablasorix
il
2 risposte
A
ablasorix
Pochi posts
Iscritto da
giu, 2021
Messaggi:
3

Inserimento mese successivo

Buongiorno, io lo chiedo.
Come posso modificare questo codice affinchè mi segnali il primo giorno del mese successivo?
Grazie sin da ora

Dim Giorno As String
Dim Data As Date
Dim Check As String

Check = False
Giorno = Format(Date, "dddd")
Data = Date + 1

Do Until Check = True
If Format(Data, "dddd") = "lunedì" Then
Me![Prossimo richiamo] = Data
Check = True
Else
Data = Data + 1
Giorno = Format(Data, "dddd")
End If
Loop

End Sub

2 Risposte

  • max.riservo
    max.riservo
    Molto attivo
    Iscritto da
    ago, 2016
    Messaggi:
    704

    Re: Inserimento mese successivo

    Prendi la tua data e fai in modo che il giorno diventi 01 (il primo giorno del mese in corso)
    poi gli sommi 1 mese (funzione dateadd).
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Inserimento mese successivo

    Come suggerito da MAX... 
    
Function FirstDayInMonth(Optional dtmDate As Variant) As Date
    If IsMissing(dtmDate) Then dtmDate = Date
    FirstDayInMonth = Fix(DateSerial(year(dtmDate), Month(dtmDate), 1))
End Function
    Quindi usi DateAdd sommando 1 "m" mese.
Devi accedere o registrarti per scrivere nel forum
2 risposte