Italian [risolto] B4J incremento data di 7 giorni

[ivanomonti]

ciao ragazzi oggi son fuso, mi date un suggerimento che mi sono perso su youporn

 

[LucaMs]

ciao ragazzi oggi son fuso, mi date un suggerimento che mi sono perso su youporn

Gira la 2a a sinistra, poi sempre dritto (su quel sito, eh ?)

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))

 

[ivanomonti]

mi sa che anche il pc deve andare a farsi fottere hahahah

Waiting for debugger to connect...
Program started.
2020-04-29
2020-09-02
1970-01-08

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)

 

[udg]

Cerca AddPeriod

[B4X] DateUtils - Simplifies Date and Time Calcuations

DateUtils is a code module with a set of useful date and time related methods. It complements DateTime api, it doesn't replace it. The methods included in DateUtils: 'Calculates the period between two date instances. 'This method returns a Period type with years, months, days, hours, minutes...

www.b4x.com

 

[ivanomonti]

@udg ma non capisco, cazzarola un incremento nnon ha bisogno di libreria aggiuntiva... e poi quella e per android

 

[ivanomonti]

RAGAZZI TROPPO PORNO NEL CERVELLO,,, CHE NON VEDO CIO' CHE SCRIVO ... PERDONATEMI

 

[LucaMs]

RAGAZZI TROPPO PORNO NEL CERVELLO,,, CHE NON VEDO CIO' CHE SCRIVO ... PERDONATEMI

Lo dicevano che certe cose portassero alla cecità ?

 

[LucaMs]

Il codice che avevo pubblicato funziona.
Il tuo... non lo capisco, perché non so dove tu prenda quei startday.DateTicks e endday.DateTicks

Comunque, se da qualche parte hai le date memorizzate con quel formato:

    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

Questo è praticamente uguale, con formato data diverso (e funziona altrettanto, ovviamente).

 

[ivanomonti]

@LucaMs tutto a posto ero io che non vedevo l'errore (il mio), in verità le date sono prese da un datapicker ora in queste foto non guardare i formati che sono diversi yyyy-MM-dd con altro che è dd-MM-yyyy.

In sintesi ho aggiunto la possibilità di replicare un appuntamento fisso ogni mercoledì (esempio) fino alla data desiderata, il più grosso lavoro e fare beta test e andare a cercare librerie ed esempi,,, poi non vedo ciò che scrivo. mea colpa e GRAZIE di nuovo