LiveCode Forums.

Code: Select all

on mouseUp
   iphonePickDate "date",0 ,0 , the seconds,1,"Cancel"
   put the result into theDate
   convert theDate to long date
   answer theDate
end mouseUp

Code: Select all

on openfield
   if the environment is "mobile" then
      if edc is empty then
         put date_selected into defaultdate
         convert defaultdate from long system date to seconds
      else
         put fld "edc" into defaultdate
         convert defaultdate from system date to seconds
      end if
      iPhonePickDate "date",defaultdate,,,,"canceldone" 
      put the result into temp
     if temp <> "cancel" then
         set the forecolor of me to black
         convert temp  to system date -- from seconds does not appear to work here
         put temp into me
      else
         -- put empty into me
      end if
      closefield
   end if
end openfield

Code: Select all

on mouseUp
   local tFldName, tPicked
   
   if environment() is not "mobile" then exit mouseUp
   
   put the short name of the owner of the target into tFldName
   put fld tFldName of me into tSelected
   if tSelected is a date then
      convert tSelected to seconds
   else
      put empty into tSelected
   end if
   
   mobilePickDate "Date",tSelected,,,,"CancelDone"
   put the result into tPicked
   
   if tPicked is "Cancel" then
      set the foregroundColor of fld tFldName of me to 150,150,150
      put tFldName into fld tFldName of me
      set the uTextChanged of this cd to true
   else
      set the foregroundColor of fld tFldName of me to 0,0,0
      put formattedDate(tPicked)  into fld tFldName of me
      set the uTextChanged of this cd to true
   end if 
   focus nothing
end mouseUp

Code: Select all

function formattedDate pDate
   if pDate is empty or pDate is not a date then put the short english date into pDate
   
   convert pDate from short english date to dateItems
   put item 3 of pDate into theDay
   put item 2 of pDate into theMonth
   put item 1 of pDate into theYear
   put theMonth & "/" & theDay & "/" & theYear into tFormattedDate
   return tFormattedDate
end formattedDate