Android Question Problem with StartServiceAT

Sub Button1_Click
Dim Giorni As Int 
 
Try
    Giorni = EditText1.Text
Catch
    ToastMessageShow("Inserisci un giorno numerico",True)
    Return
End Try
Dim DATA As Long=DateTime.DateParse(EditText4.Text) 
Try
    DATA =DateTime.DateParse(EditText4.Text)
Catch
    ToastMessageShow("Non riesco a ricavare la data",True)
    Return
End Try
Dim date As Long
 
date=DateTime.Add(DATA,0,0,Giorni)
 
 
StartServiceAt(start,date,False)

'Adds a Period to the given date instance. Do not forget to assign the result.
Public Sub AddPeriod(Ticks As Long, Per As Period) As Long
    Ticks = DateTime.Add(Ticks, Per.Years, Per.Months, Per.Days)
    Ticks = Ticks + Per.Hours * DateTime.TicksPerHour + Per.Minutes * DateTime.TicksPerMinute + _
        Per.Seconds * DateTime.TicksPerSecond
    Return Ticks
End Sub

date=DateUtils.AddPeriod(DATA,Giorni)

Sub Button1_Click

  Dim Giorni As Int
  Dim DATA As Long

Try
    Giorni = EditText1.Text
Catch
    ToastMessageShow("Inserisci un giorno numerico",True)
    Return
End Try
Dim DATA As Long=DateTime.DateParse(EditText4.Text)
Try
    DATA =DateTime.DateParse(EditText4.Text)
Catch
    ToastMessageShow("Non riesco a ricavare la data",True)
    Return
End Try
Dim date As Long
'periodo(DATA,Giorni)

date=DateUtils.AddPeriod(DATA,Giorni)

StartServiceAt(start,date,False)

End Sub

Datenew = DateTime.Add(dateOld, 0, 9, 0)

Datenew = DateTime.Add(dateOld, 0, 0, 1)