Inserimento mese successivo

di Anonimizzato30987 il
2 risposte
/
Anonimizzato30987
Utente anonimizzato
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

  • Avatar di max.riservo
    Molto attivo
    Iscritto da
    ago, 2016
    Messaggi
    778
    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).
  • Avatar di @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi
    8951
    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