('A`) timerと間違った
dim i as date
i=time
i=dateadd("s",1,i)