Android Code Snippet Set Date and Time of Device (root needed)

Sub SetDateTime(ToDate As String, ToTime As String)
    'date needs to be in yyyymmdd format
    'time needs to be in hhmmss 24-hour
    'date -s 20120419.024012; \n
   
    Dim Command, Runner As String
    Dim StdOut, StdErr As StringBuilder
    Dim Result As Int
    Dim Ph As Phone
   
    StdOut.Initialize
    StdErr.Initialize

    Runner = File.Combine(File.DirInternalCache, "runner")
    Command = File.Combine(File.DirInternalCache, "command")
    File.WriteString(File.DirInternalCache, "runner", "su < " & Command)
    File.WriteString(File.DirInternalCache, "command", "date -s " & ToDate & "." & ToTime & "; \n" & CRLF & "exit")
    Result = Ph.Shell("sh", Array As String(Runner), StdOut, StdErr)
End Sub