start_date<- ISOdate(2010,05,08,23,01)
jetzt <- Sys.time()

jetzt - start_date

intervall <- (jetzt-start_date)
class (intervall)
a=as.numeric(intervall,units='weeks')

mydata1 <- (transform(a,
sum=a/4))

print(mydata1,select=sum)

class(mydata)
class(mydata1)