Italian [risolto] B4J incremento data di 7 giorni

DateTime.DateFormat = "dd/mm/yyyy"

Dim data1 As Long = DateTime.DateParse("29/04/2020")
   Log(DateTime.Date(data1))
Dim data2 As Long
data2 = data1 + DateTime.TicksPerDay * 7
   Log(DateTime.Date(data2))

DateTime.DateFormat="YYYY-MM-dd"
    
    Dim s,e As String
    Dim ts, te, ta As Long
    Dim tot As Int
    
    s = DateTime.Date(startday.DateTicks)
    e = DateTime.Date(endday.DateTicks)

    Log(s)
    Log(e)
    
    ts = DateTime.GetDayOfYear(startday.DateTicks) '------------------------ data start [B]2020-04-29[/B]
    ta = ts+(DateTime.TicksPerDay * 7) ' ------------------- data incrementata [B]1970-01-08[/B]
    Log(DateTime.Date(ta))
    
    te = DateTime.GetDayOfYear(endday.DateTickS) ' ---------------------- mi serve per capire quanti giorni devo replicare con date diverse (ok perfetto)

    DateTime.DateFormat = "yyyy/mm/dd"

    Dim data1 As Long = DateTime.DateParse("2020/04/29")
       Log(DateTime.Date(data1))
    Dim data2 As Long
    data2 = data1 + DateTime.TicksPerDay * 7
       Log(DateTime.Date(data2)) ' log: 2020/04/05