Android Question Add Hours to DateTime

[DataProtec]

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]

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]

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

 

[Erel]

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

 

[DataProtec]

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]

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]

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

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

 

[Mahares]

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]

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

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