Dim data1 = (DateTime.Now.ToString("yyyy/MM/dd HH:mm:ss"))
Dim data22 = DATEADD("d",-87,data1).ToString("yyyy/MM/dd HH:mm:ss")