Yes, I contributed to the Master Library a couple of date and time functions
which return formats which LC does not provide. One is sql date which returns
the date in the format yyyy-mm-dd, The second is julian date which uses Jacques
method (I understand there is not simply one Julian standard!)
For time I have sql time (hh:mm:ss) and military, returning the time in 24 hour
format.
So for instance you can convert to sql datetime format by using formatDate(the
date, "sql date) && formatTime(the time, "sql time").
I'm not sure if the Master Library made some improvement on the functions I
submitted, but here is what I have:
function formatDate theDate, theFormat
/*
Accepts any valid date for the first parameter. If not a valid date, it
simply returns
what was passed. Second parameter can be any of the following:
sql date: date in the yyyy-mm-dd format
short date, abbreviated date, internet date, long date: LC versions of the
same
julian date: Julian number based on (I believe) Jacques formula)
*/
put the itemdelimiter into theOldDelim
set the itemdelimiter to "-"
if the length of item 1 of theDate = 4 and \
the number of items of theDate = 3 and \
item 1 of theDate is a number and \
item 2 of theDate is a number and \
item 3 of theDate is a number then
put item 2 of theDate & "/" & \
item 3 of theDate & "/" & \
item 1 of theDate into theDate
end if
convert theDate to dateitems
set the itemdelimiter to theOldDelim
switch theFormat
case "sql date"
put item 1 of theDate & "-" & \
format("%02d",item 2 of theDate) & "-" & \
format("%02d",item 3 of theDate) into theDate
break
case "short date"
convert theDate from dateitems to short date
break
case "abbreviated date"
convert theDate from dateitems to abbreviated date
break
case "abbr date"
convert theDate from dateitems to abbreviated date
break
case "internet date"
convert theDate from dateitems to internet date
break
case "long date"
convert theDate from dateitems to long date
break
case "julian date"
put the date into theDate
convert theDate to dateItems
if ((item 2 of theDate = 1) or (item 2 of theDate = 2)) then
put 1 into theDay
else
put 0 into theDay
end if
put item 1 of theDate + 4800 - theDay into theYear
put item 2 of theDate + (12 * theDay) - 3 into theMonth
put item 3 of theDate + \
((153 * theMonth + 2) div 5) + \
(365 * theYear) + \
(theYear div 4) - \
(theYear div 100) + \
(theYear div 400) - \
32045 into theDate
break
end switch
return theDate
end formatDate
function formatTime theTime, theFormat
/*
accepts any valid time and returns the form of the time specified in the
second parameter.
The valid formats are:
sql time: hh:mm:ss (Note: combining sql date from the formatDate() function
with the
sql time will produce a valid SQL date time type).
short time: LC short time format
abbreviated time: LC abbr time format (same as short time)
long time: LC long time format
seconds: the number of seconds since the prior midnight
military: the military time 00:00 - 23:59
*/
if theTime is empty then return empty
set the numberformat to "00"
switch theFormat
case "sql time"
convert theTime to dateitems
put (item 4 of theTime +0) & ":" & \
(item 5 of theTime +0) & ":" & \
(item 6 of theTime +0) into theTime
break
case "short time"
convert theTime to short time
break
case "abbreviated time"
convert theTime to abbreviated time
break
case "long time"
convert theTime to long time
break
case "seconds"
convert theTime to seconds
break
case "military"
set the itemdelimiter to ":"
if theTime contains "PM" then
add 12 to item 1 of theTime
end if
put word 1 of item 2 of theTime into item 2 of theTime
break
end switch
return theTime
end formatTime
> On May 8, 2018, at 18:14 , Mike Doub via use-livecode
> <use-livecode@lists.runrev.com> wrote:
>
> Have you checked the Master Library?
>
> https://www.dropbox.com/s/3wpwn3hfbmpl7sk/MasterLibrary.livecode?dl=0
_______________________________________________
use-livecode mailing list
use-livecode@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-livecode
