anchor.diff:          this.Birthday.InputAccessoryView <- accessoryBirthday.View
           this.Birthday.EditingDidBegin.Add(fun _ ->
               if String.IsNullOrEmpty(this.Birthday.Text.Trim()) = false then
  -                pickerDate.Date <- NSDate.op_Implicit (DateTime.ParseExact(this.Birthday.Text, "M/d/yyyy", CultureInfo.CurrentCulture))
  +                pickerDate.Date <-
  +                    NSDate.op_Implicit (
  +                        match DateTime.TryParse(this.Birthday.Text) with
  +                        | true, date -> date
  +                        | _ -> defaultDate)
           )
   
           // Country Picker
  
positive.code:                         regions <- r
                      | _ -> ()
  
                      this.Username.Text <- identity.Name
                      this.GenderSelect.SelectedSegment <-
                          match profile.Gender with
                          | GenderType.Female -> 1
  
negative.code:                 (Settings.updateProfile
                      (this.Username.Text.Trim())
                      (match this.GenderSelect.SelectedSegment with | 0 -> GenderType.Male | 1 -> GenderType.Female | _ -> GenderType.Undefined)
                      (match DateTime.TryParse(this.Birthday.Text) with | true, date -> date | _ -> defaultDate)
                      (match country with | Some country -> country.Id | None _ -> String.Empty)
                      (match region with | Some region -> region.Name | None _ -> String.Empty)
                      (this.City.Text.Trim())
  