[VB2500 E.E] sommare una data

[Papao]

Ragazzi buongiorno,
sono alle prese con la creazione di un appuntamento di outlook 200o con VB2500, il mio codice da un errore sulla seguente riga di prg:

' Create a new appointment.
Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)

' Set start time for 2-minutes from now...
olAppt.Start = Now() + (28800# / 24# / 60#) <== errore

Mi informa con il seguente messaggio:
L'operatore '+' non è definito per i tipi 'Date' e 'Double'.

vorrei che fra 20 giorni outlook mi avvisi con un messaggio (che vado poi a definire);
il codice su VB6 funziona ma non su VB2500,
qualcuno sa aiutarmi? Ho iniziato con il VB2500 e vorrei concluderlo.

Ringrazio tutti per l'attenzione.

[Stoicenko]

VB 2500?

cmq devi prima trasformare la date in un datetime per poter fare l'addizione..

olAppt.Start.Day = olAppt.Start.Day + 20;

però devi pure controllare che ogni mese ha 30/28/31 giorni

[Papao]

già ma ora restituisce un'altro errore:

L'espressione è un valore, quindi non può essere la destinazione di un'assegnazione.

...sono punto e a capo :rollo: