togliere 1 giorno ad una data

[BOYROMA1]

dovrei togliere 1 giorno ad una combo con tipo data

private sub command1_click()

Dim str As String

Combo4.Text = Date
str = Format(Date, "dddd,dd mmmm yyyy")
Combo4.Text = str

end sub

vorrei fare l'additem alla combo della stessa data di prima con 1 giorno in meno

potreste aiutarmi?:master:
please?

[Lucaoliver]

private sub command1_click()

Dim str As String
Dim cambiodata As String

Pippo = " "
Combo4.Text = Date
str = Format(Date, "dddd,dd mmmm yyyy")
giorno = Mid(str, 6, 2)
pippo = giorno - 1
Cambiodata = Mid(str, 14, 4) & Mid(str, 9, 4) & pippo
Combo4.Text = str

end sub

Credo che quello che cerchi dovrebbe essere questo
prova a vedere se funziona così facendo ho inserito
dentro giorno il "giorno" a cui ho tolto 1
ho formattato il Pc e non ho visual basic installato
quindi non posso provarlo
Se la data = 1 però dovrai gestire il giorno che ti risulterebbe 0
dovrai quindi gestirti tutti i mesi dell'anno
Fammi sapere
Ciao

[vonkranz]

private sub command1_click()

Dim str As String

Combo4.Text = Date
str = Format(dateserial(day(date)-1 ,month(date),year(date)), "dddd,dd mmmm yyyy")
Combo4.Text = str
end sub

[Toeke]

Usando il Dateadd

Private Sub command1_click()

 Dim str As String

 Combo4.Text = Date
 str = Format(DateAdd("d", -1, Date), "dddd,dd mmmm yyyy")
 Combo4.Text = str

End Sub

Toeke

[BOYROMA1]