dim Jahr as integer
dim Monat as integer
dim Tag as integer                      
dim heiligabend as date
dim silvester as date
 
' Erst können die Werte einzeln bestimmt werden hier 24/12/2003
 
Jahr = 2003
Monat =12
Tag = 24
 
' Hier wird das Datum zusammengedröselt
 
heiligabend=dateserial(Jahr,Monat,Tag)
 
' Silvester ist
 
silvester = heiligabend + 7        ' weil es Sieben Tage später ist
 
' Du kannst es wieder in integer aufdröseln
 
Jahr = day(silvester)
Monat=month(silvester)
Tag=day(silvester)