Android Question time calculation (solved)

[f0raster0]

Hi guys,
DateTime.Time(DateTime.Now is showing the time now,
How can I do something (Log("OFF")) if time is for example > 22:00 ?

it is my try
also I need to remove seconds just want to see hour and minutes

    ButtonTimeNow.Text=DateTime.Time(DateTime.Now)
    Log(DateTime.TimeZoneOffset)
    Log(DateTime.Time(DateTime.Now))
    If DateTime.Time(DateTime.Now) > "22:18:00" Then
        Log("OFF")
    End If

thnaks

 

[Philip Chatzigeorgiadis]

Check this:

    If DateTime.GETHOUR(DateTime.Now)>22 And DateTime.GetMinute(DateTime.Now)>18 Then
        Log("OFF")
    End If

 

[f0raster0]

really!! trying now.. thanks

 

[f0raster0]

it doesn't work

    If DateTime.GETHOUR(DateTime.Now)>22 And DateTime.GetMinute(DateTime.Now)>18 Then
        Log("OFF")
    End If

but the previous one that you wrote works (hour only)

If DateTime.GetHour(DateTime.Now)>22 Then
        Log("OFF")
End If

 

[aeric]

Why it doesn't work? What is the result?
Do you use the following?

DateTime.TimeFormat = "HH:mm:ss"

 

[klaus]

This works:

If DateTime.GetHour(DateTime.Now) >= 22 And DateTime.GetMinute(DateTime.Now) > 18 Then
    Log("OFF")
End If

EDIT:
The code above is wrong. The correct code is, like in post#11:

If DateTime.GetHour(DateTime.Now) = 22 And DateTime.GetMinute(DateTime.Now) > 18 Or DateTime.GetHour(DateTime.Now) > 22 Then
    Log("OFF")
End If

 

[f0raster0]

Why it doesn't work? What is the result?

nothing I don't get the log Log("OFF")

Do you use the following?

DateTime.TimeFormat = "HH:mm:ss"

I use this:

ButtonTimeNow.Text=DateTime.Time(DateTime.Now)
    Log(DateTime.TimeZoneOffset)
    Log(DateTime.Time(DateTime.Now))

then I got the time like: HH:mm:ss
I want to something like:
If DateTime.Time(DateTime.Now) > "22:18:00" Then

 

[f0raster0]

This works:

If DateTime.GetHour(DateTime.Now) >= 22 And DateTime.GetMinute(DateTime.Now) > 18 Then
    Log("OFF")
End If

yes.. you always right!! thanks very much @klaus

 

[aeric]

Assuming (the switch) will "OFF" after 10:18PM up to 11:59PM.

    Dim tt As Long
    tt = DateUtils.SetDateAndTime(2020,2,11,22,18,1)
   
    If DateTime.GetHour(tt) > 22 Then
        Log("OFF")
    Else If DateTime.GetHour(tt) = 22 Then
        If DateTime.GetMinute(tt) > 18 Then
            Log("OFF")
        Else If DateTime.GetMinute(tt) = 18 Then
            If DateTime.GetSecond(tt) > 0 Then
                Log("OFF")
            Else
                Log("ON")
            End If
        Else
            Log("ON")
        End If       
    Else
        Log("ON")
    End If

 

[aeric]

This works:

If DateTime.GetHour(DateTime.Now) >= 22 And DateTime.GetMinute(DateTime.Now) > 18 Then
    Log("OFF")
End If

What happen when time is 23:15 ?

 

[klaus]

It will, of course, not work !

This works better:

If DateTime.GetHour(DateTime.Now) = 22 And DateTime.GetMinute(DateTime.Now) > 18 Or DateTime.GetHour(DateTime.Now) > 22 Then
    Log("OFF")
End If

 

[klaus]

It will, of course, not work !

This works better:

If DateTime.GetHour(DateTime.Now) = 22 And DateTime.GetMinute(DateTime.Now) >18 Or DateTime.GetHour(DateTime.Now) > 22 Then
    Log("OFF")
End If

yes.. you always right!! thanks very much @klaus

Not allways.

 

[f0raster0]

What happen when time is 23:15 ?

yes.. you are right too Jjaja doesn't work..

If DateTime.GetHour(DateTime.Now) >= 23 And DateTime.GetMinute(DateTime.Now) > 58 Then
        Log("OFF")
End If

here it is 00:37:28 and the Log(OFF) doesn't show up when restarted the App

It will, of course, not work !

This works better:

If DateTime.GetHour(DateTime.Now) = 22 And DateTime.GetMinute(DateTime.Now) >18 Or DateTime.GetHour(DateTime.Now) > 22 Then
    Log("OFF")
End If

here it is 00:37:28 and the Log(OFF) doesn't show up

It will, of course, not work !

yes.. it looks not easy..
I think, better continue clicking the button manually to close the system to not receive takeaways orders

 

[ilan]

you could try this too:

    Dim OffHour1 = 22, OffMinute1 = 18, OffHour2 = 7, OffMinute2 = 15  As Int
   
    Dim nowTime As Long = (DateTime.GetHour(DateTime.Now)*DateTime.TicksPerHour)+(DateTime.GetMinute(DateTime.Now)*DateTime.TicksPerMinute)
    Dim offTime1 As Long = (DateTime.TicksPerHour*OffHour1)+(DateTime.TicksPerMinute*OffMinute1)
    Dim offTime2 As Long = (DateTime.TicksPerHour*OffHour2)+(DateTime.TicksPerMinute*OffMinute2)

    If nowTime > offTime1 OR nowTime < offTime2 Then
        Log("OFF")
    Else
        Log("ON")   
    End If

EDIT: i edited the post, now OFF will be between 22:18 until 7:15 !!

EDIT2: changed AND to OR

 

[f0raster0]

you could try this too:

    Dim OffHour = 22, OffMinute = 18 As Int
    Dim nowTime As Long = (DateTime.GetHour(DateTime.Now)*DateTime.TicksPerHour)+(DateTime.GetMinute(DateTime.Now)*DateTime.TicksPerMinute)
    Dim offTime As Long = (DateTime.TicksPerHour*OffHour)+(DateTime.TicksPerMinute*OffMinute)

    If nowTime > offTime Then
        Log("OFF")
    Else
        Log("ON")
    End If

Dim OffHour = 00, OffMinute = 18 As Int
it is working...00:59:58show the log OFF
let me wait 2 mintus

EDIT: it looks like is working..
Dim OffHour = 00, OffMinute = 18 As Int
01:02:50
OFF

 

[ilan]

it is working...00:59:58show the log OFF
let me wait 2 mintus

check the edited post again. i added also the starting time. you can no set OFF between 2 different times like between 22:18 until 7:15

 

[f0raster0]

thanks @ilan it works!! between 2 different times, perfect for a restaurant: 11am - 3pm & 4.45pm - 9pm ?‍??‍?

 

[ilan]

perfect for a restaurant

bon appetit ?

 

[ilan]

after checking the code again there is a mistake. change the AND in the if else function to OR

this also should work and its simpler to understand:

    Dim OffHour1 = 16, OffMinute1 = 18, OffHour2 = 7, OffMinute2 = 15  As Int
   
    Dim nowTime As Long = (DateTime.GetHour(DateTime.Now)*60)+DateTime.GetMinute(DateTime.Now)
    Dim offTime1 As Long = (OffHour1*60)+OffMinute1
    Dim offTime2 As Long = (OffHour2*60)+OffMinute2
   
    If nowTime > offTime1 Or nowTime < offTime2 Then
        Log("OFF")
    Else
        Log("ON")  
    End If

 

[f0raster0]

doesn't work for me that option

after checking the code again there is a mistake. change the AND in the if else function to OR

this also should work and its simpler to understand:

    Dim OffHour1 = 16, OffMinute1 = 18, OffHour2 = 7, OffMinute2 = 15  As Int

    Dim nowTime As Long = (DateTime.GetHour(DateTime.Now)*60)+DateTime.GetMinute(DateTime.Now)
    Dim offTime1 As Long = (OffHour1*60)+OffMinute1
    Dim offTime2 As Long = (OffHour2*60)+OffMinute2

    If nowTime > offTime1 Or nowTime < offTime2 Then
        Log("OFF")
    Else
        Log("ON")
    End If

but your previous code just work perfect:

    Dim OffHour1 = 19, OffMinute1 = 19, OffHour2 = 19, OffMinute2 = 21  As Int
  
    Dim nowTime As Long = (DateTime.GetHour(DateTime.Now)*DateTime.TicksPerHour)+(DateTime.GetMinute(DateTime.Now)*DateTime.TicksPerMinute)
    Dim offTime1 As Long = (DateTime.TicksPerHour*OffHour1)+(DateTime.TicksPerMinute*OffMinute1)
    Dim offTime2 As Long = (DateTime.TicksPerHour*OffHour2)+(DateTime.TicksPerMinute*OffMinute2)

    If nowTime > offTime1 And nowTime < offTime2 Then
        Log(DateTime.Time(DateTime.Now))
        Log("OFF")
    Else
        Log(DateTime.Time(DateTime.Now))
        Log("ON")
    End If