Android Question current date + 100 days error !!

krlos2004 · Mar 9, 2016

Hello

must calculate that day will be current date + 100 days

I tried so but this in error, can help me?

DateTime.SetTimeZone(0)
DateTime.DateFormat="dd/mm/yyyy"

Dim Day As Int = 100, ETicks1 As Long

ETicks1 = DateTime.DateParse( "09/03/2016" )

Msgbox( DateTime.Date(ETicks1+(Day * 86400000)), "ok" )

Return 09/57/2016 ????!!!

Cableguy · Mar 9, 2016

Why dont you use the TicksPerDay

Dim hundreddays As Long = DateTime.TicksPerDay * 100
Dim DateInHundredDays As Long = DateTime.Date(DateTime.Now + hundreddays)

lemonisdead · Mar 9, 2016

I would use

B4X:

 Log(DateTime.Date(DateTime.Add(DateTime.Now,0,0,100)))

wonder · Mar 9, 2016

B4X:

Sub Days_to_Milliseconds(days As Int) As Long
    '24 * 60 * 60 * 1000 = 86400000
    Return (days * 86400000)
End Sub

Log(DateTime.Date(DateTime.Now + Days_to_Milliseconds(100))

...but both solutions above are way more straight forward.

krlos2004 · Mar 9, 2016

thanks for the help,but if Ichange the day, look whathappens

DateTime.DateFormat="dd/mm/yyyy" 'format brasil

log( DateTime.Date(DateTime.DateParse( "01/10/2015" ) + Days_to_Milliseconds(200) )

02/58/2015 ???

krlos2004 · Mar 9, 2016

Dim d1 As Long = DateTime.DateParse( "01/10/2015" )

Msgbox(DateTime.Date(DateTime.Add(d1,0,0,200)), "newdate" )

RETURN 20/10/2015 !!!

lemonisdead · Mar 9, 2016

B4X:

DateTime.DateFormat="MM/dd/yyyy"
Dim d1 As Long = DateTime.DateParse( "01/10/2015" )
Msgbox(DateTime.Date(DateTime.Add(d1,0,0,200)), "newdate" )

Result : 07/29/2015

B4X:

DateTime.DateFormat="dd/MM/yyyy"
Dim d1 As Long = DateTime.DateParse( "10/01/2015" )
Msgbox(DateTime.Date(DateTime.Add(d1,0,0,200)), "newdate" )

Result : 29/07/2015

B4X:

DateTime.DateFormat="dd/MM/yyyy"
Dim d1 As Long = DateTime.DateParse( "01/10/2015" )
Msgbox(DateTime.Date(DateTime.Add(d1,0,0,200)), "newdate" )

Result : 18/04/2016

!!!

Angry ?

Mahares · Mar 9, 2016

Knowing @Erel as a big fan of DateUtils, I thought maybe I add this solution to the good solutions listed in the previous posts above:

B4X:

Dim p As Period
p.Days = 100
Dim nextdate As Long = DateUtils.AddPeriod(DateTime.DateParse("09/03/2016"), p)  'adds 100 days to this date
Log($"next date: $Date{nextdate}"$)  'or Log("Next date: " & DateTime.Date(nextdate))

wonder · Mar 9, 2016

Indeed, there's seems to be something broken with the DateTime parsing functions...

krlos2004 · Mar 9, 2016

putz who screwed up the error was the date format

DateTime.DateFormat="dd/mm/yyyy"

from

DateTime.DateFormat="dd/MM/yyyy"

thank's

ivan.tellez · Mar 9, 2016

krlos2004 said:
putz who screwed up the error was the date format

DateTime.DateFormat="dd/mm/yyyy"

from

DateTime.DateFormat="dd/MM/yyyy"

thank's

"mm" its for the minutes on a DateTime
"MM" its for Months

Erel · Mar 10, 2016

Cableguy said:
Why dont you use the TicksPerDay

Dim hundreddays As Long = DateTime.TicksPerDay * 100
Dim DateInHundredDays As Long = DateTime.Date(DateTime.Now + hundreddays)

The correct way is to use DateUtils.AddPeriod. DateTime.Add is also correct in this case.

The above code is incorrect and will not handle DST properly.

krlos2004 · Mar 24, 2016

Yes thank´s
100%

Android Question current date + 100 days error !!

krlos2004

Member

Cableguy

Expert

lemonisdead

Well-Known Member

wonder

Expert

krlos2004

Member

krlos2004

Member

lemonisdead

Well-Known Member

Mahares

Expert

wonder

Expert

krlos2004

Member

ivan.tellez

Active Member

Erel

B4X founder

krlos2004

Member

Similar Threads

Android Question current date + 100 days error !!

Member

Expert

Well-Known Member

Expert

Member

Member

Well-Known Member

Expert

Expert

Member

Active Member

B4X founder

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency