Android Question Add Hours to DateTime

DataProtec · Mar 9, 2020

I have read all Threads and testet but can't get the result i need
I get a date with Time from MSSQL DB like 2020-03-08 09:00:00 and have to add 08:00 Hours so the Result should be 2020-03-08 17:00:00
If i convert to long all time missing 1 Hour
Whats the correct way to do this
Thanks in advanced

Erel · Mar 9, 2020

B4X:

DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss"
Dim t As Long = DateTime.DateParse("2020-03-08 09:00:00")
Dim p As Period
p.Hours = 8
Dim t2 As Long = DateUtils.AddPeriod(t, p) 'DateUtils library
Log(DateTime.Date(t2))

JohnC · Mar 9, 2020

B4X:

8HoursFromNow = DateTime.Now + (DateTime.TicksPerHour * 8)

Erel · Mar 9, 2020

While your code is correct, as a general rule, date and time arithmetics do not work as expected. Better to use DateUtils.AddPeriod.

DataProtec · Mar 9, 2020

Hi Erel
Your example Works, but i have the value of Period as 08:00 in the DB and can't convert it to long.
Int Will not be posible because the Value of Period can be 08:15 or 08:30
How can i convert this and add to the Time (t)

DonManfred · Mar 9, 2020

Use the date plus time. Get a valid LONG for this date and time.
Create a Period and configure it.
Add the Period to the Date long.

Erel · Mar 9, 2020

I wouldn't use TimeParse for this as it represents a period and not a specific time instance. Parse it yourself.

B4X:

Dim i As Int = TimeString.IndexOf(":")
p.Hours = TimeString.Substring2(0, i)
p.Minutes = TimeString.Substrint(i + 1)

Mahares · Mar 9, 2020

B4X:

DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss"
    Dim t As Long = DateTime.DateParse("2020-03-08 09:00:00")    
    Dim strTime As String ="08:15"
    Dim strArray() As String =Regex.Split(":", strTime)
    Dim p As Period
    p.Hours = strArray(0)
    p.Minutes= strArray(1)
    Dim t2 As Long = DateUtils.AddPeriod(t, p) 
    Log(DateTime.Date(t2))   'displays: 2020-03-08 17:15:00

DataProtec · Mar 9, 2020

Hi Erel
Think the example above Works for me, need to do some more tests
What i did

Swift:

sCheckIn = Crsr.GetString2(2)        '** from DB - 2020-03-09 09:30:00.000'
        sHoursToWorkPerDay  = Crsr.GetString2(3)     '** from DB - 08:45'

Dim p As Period
    Dim i As Int = sHoursToWorkPerDay.IndexOf(":")
    p.Hours = sHoursToWorkPerDay.Substring2(0, i)
    Log("p " & p.Hours)
    p.Minutes = sHoursToWorkPerDay.SubString(i + 1)
    Log("p " & p.Minutes)
    Dim t2 As Long = DateUtils.AddPeriod(lCheckIn, p) 'DateUtils library
    Log("Result " & DateTime.Date(t2)) '** gives me Result 2020-03-09 18:15:00'

Hope it's correct what i did, at least gives me the proper Result if i change the Values in the DB
Thanks a lot everbody

Android Question Add Hours to DateTime

DataProtec

Member

Erel

B4X founder

JohnC

Expert

Erel

B4X founder

DataProtec

Member

DonManfred

Expert

Erel

B4X founder

Mahares

Expert

DataProtec

Member

Similar Threads

Android Question Add Hours to DateTime

Member

B4X founder

Expert

B4X founder

Member

Expert

B4X founder

Expert

Member

Similar Threads

Privacy & Transparency

Privacy & Transparency