Android Question Time alarm

Sub intime (lasttime As Long,span_minutes As Int) As Boolean

Dim tfx As Long
tfx=lasttime-DateTime.GetHour(lasttime)*DateTime.TicksPerHour ' calculates ticks elapsed from 0 o'clock lasttime date
Dim tfy As Long
tfy=DateTime.Now-DateTime.GetHour(DateTime.Now)*DateTime.TicksPerHour ' calculates ticks elapsed from 0 o'clock now date

' now brings last time to present minus hours diference
Dim lasttime_present As Long
lasttime_present= lasttime+(tfy-tfx) ' lasttime ticks + date diference


'checks the normal expire time routine as lastime is happens now but at diferent hour clock
If DateTime.Now < lasttime_present + span_minutes*DateTime.TicksPerMinute AND DateTime.Now> lasttime_present - span_minutes*DateTime.TicksPerMinute Then
Return True
end sub
End If

Sub intime (lasttimex As Long,span_minute As Int) As Boolean

Dim tfx As Long
tfx=lasttimex-DateTime.GetHour(lasttimex)*DateTime.TicksPerHour - DateTime.GetMinute(lasttimex)*DateTime.TicksPerMinute-DateTime.GetSecond(lasttimex)*DateTime.TicksPerSecond ' calculates ticks elapsed from 0 o'clock lasttime date
Log("tfx:"&tfx)
Log("orax"&DateTime.GetHour(lasttimex))
Log("minx"&DateTime.GetMinute(lasttimex))
Log("secx"&DateTime.GetSecond(lasttimex))

Dim tfy As Long
tfy=DateTime.Now-DateTime.GetHour(DateTime.Now)*DateTime.TicksPerHour-DateTime.GetMinute(DateTime.Now)*DateTime.TicksPerMinute-DateTime.GetSecond(DateTime.Now)*DateTime.TicksPerSecond ' calculates ticks elapsed from 0 o'clock now date
Log("tfy:"&tfy)
Log("ora_now"&DateTime.GetHour(DateTime.Now))
Log("min_now"&DateTime.GetMinute(DateTime.Now))
Log("sec_now"&DateTime.GetSecond(DateTime.Now))

' now brings last time to present minus hours diference
Dim lasttime_present As Long
lasttime_present= lasttimex+(tfy-tfx) ' lasttime ticks + date diference
Log("lasttime_present:" &lasttime_present)
Log(DateTime.Time(lasttime_present))
Log(DateTime.Time(DateTime.Now))

'checks the normal expire time routine as lastime is happens now but at diferent hour clock
If DateTime.Now < lasttime_present + span_minute*DateTime.TicksPerMinute AND DateTime.Now> lasttime_present - span_minute*DateTime.TicksPerMinute Then
Return True
End If


End Sub

Sub Time_In_Range(dt1 As Long, dt2 As Long, maxRange As Int) As Boolean
    Dim p As Period = DateUtils.PeriodBetween(dt1, dt2)
    Dim diff As Long = Abs(p.Hours) * 60 + Abs(p.Minutes)
    If Min(diff, 1440 - diff) <= maxRange Then
        Return True
    Else
        Return False
    End If
  
End Sub