Android Question Posting Json date to the database

[Makumbi]

Please help iam trying to post 03/02/2020 date format to the database
but it refusing with this error

ResponseError. Reason: Internal Server Error, Response: {"Message":"An error has occurred."}

{"Names":"nnmm","Class":"P2","DOB":"01\/01\/1970","Yeard":"2020","Fname":"bbb","Fmobile":"","Femail":"","Mname":"","Mmobile":"","Memail":"","Type":"Father","Sender":"0782911364"}

        Dim Subscriptiondetailsm As Map
        Subscriptiondetailsm.Initialize
        Subscriptiondetailsm.put("Names",LTrim(RTrim(Names.Text)))
        Subscriptiondetailsm.put("Class",spnFirstName.SelectedItem)
        Dim lt As Long
        DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
        Dim datestring As String = DateTime.Date(JsonDateToTick( DOB.Text))
        lt = DateTime.DateParse(datestring)
        DateTime.DateFormat = "dd/MM/yyyy"
        Log(DateTime.Date(lt))
        Subscriptiondetailsm.put("DOB",DateTime.Date(lt))
        Subscriptiondetailsm.put("Yeard",Yeard.Text)
        Subscriptiondetailsm.put("Fname",LTrim(RTrim(fname.Text)))
        Subscriptiondetailsm.put("Fmobile",LTrim(RTrim(fmobile.Text)))
        Subscriptiondetailsm.put("Femail",LTrim(RTrim(femail.Text)))
        Subscriptiondetailsm.put("Mname",LTrim(RTrim(mname.Text)))
        Subscriptiondetailsm.put("Mmobile",LTrim(RTrim(mmobile.Text)))
        Subscriptiondetailsm.put("Memail",LTrim(RTrim(Memail.Text)))
        Subscriptiondetailsm.put("Type",sx)
        Subscriptiondetailsm.put("Sender",Phoneq)
        
        Dim json As JSONGenerator
        json.Initialize(Subscriptiondetailsm)
        Dim contentr As String = json.ToString
        
        'Depends on okHttputils library
        Dim clientb As HttpJob
        clientb.Initialize("",Me)

 

[Erel]

LTrim(RTrim(fname.Text))

Why?

Use fName.Text.Trim instead.

Why are you setting the DateFormat twice?

It is impossible to say why it failed. You need to check the server documentation.

 

[Makumbi]

LTrim(RTrim(fname.Text))

Why?

Use fName.Text.Trim instead.

Why are you setting the DateFormat twice?

It is impossible to say why it failed. You need to check the server documentation.

I have made corrections but the date that comes is 01/01/1970. Iam using Masked Dates
below are my changes

        Dim Subscriptiondetailsm As Map
        Subscriptiondetailsm.Initialize
        Subscriptiondetailsm.put("Names",LTrim(RTrim(Names.Text)))
        Subscriptiondetailsm.put("Class",spnFirstName.SelectedItem)
        Dim lt As Long
        DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
        Dim datestring As String = DateTime.Date(JsonDateToTick(DOB.Text))
        lt = DateTime.DateParse(datestring)
        'DateTime.DateFormat = "dd/MM/yyyy"
        Log(DateTime.Date(lt))
        Subscriptiondetailsm.put("DOB",getdate(lt))

Sub  getdate(gt As String) As String
    Dim lt As Long
    DateTime.DateFormat = "dd/MM/yyyy" ' "1961-08-29"
    Dim datestring As String = DateTime.Date(( gt))
    lt = DateTime.DateParse(datestring)
    'DateTime.DateFormat = "dd/MM/yyyy hh:mm:ss a"
    Log(DateTime.Date(lt))
    'gt=DateTime.Date(lt)
    Return DateTime.Date(lt)
   
End Sub

 

[Erel]

Your code is wrong. I recommend you to watch the date & time video tutorial: https://www.b4x.com/etp.html