Source of date-test.tcl
template::form create date_test
template::element create date_test name \
-label "Name" -datatype text -widget text
template::element create date_test date_simple \
-label "Simple Date" -datatype date -widget date \
-format "YYYY/MM/DD" -optional
template::element create date_test date_simple_reqd \
-label "Simple Date (required)" -datatype date -widget date \
-format "YYYY/MM/DD"
template::element create date_test date_long \
-label "Long Date" -datatype date -widget date \
-format long -optional
template::element create date_test date_text \
-label "Textual Date" -datatype date -widget date \
-format "YYYYt/MMt/DDt HH24t:MIt:SSt" -optional
template::element create date_test date_long_month \
-label "Long Month" -datatype date -widget date \
-format "YYYY/MONTH/DD" -optional
template::element create date_test date_short_month \
-label "Short Month" -datatype date -widget date \
-format "YYYY/MON/DD" -optional
template::element create date_test date_interval \
-label "Custom Intervals" -datatype date -widget date \
-format "YYYY/MM/DD HH24:MI:SS" -optional \
-year_interval { 2000 2005 1 } \
-month_interval { 1 5 1} \
-day_interval { 1 31 7 } \
-minutes_interval { 0 59 5 } \
-seconds_interval { 0 59 15 }
template::element create date_test date_american \
-label "American Date" -datatype date -widget date \
-format american -optional
template::element create date_test date_ampm \
-label "12 Hour Time" -datatype date -widget date \
-format "HH12:MI:SS AM" -optional
template::element create date_test date_help \
-label "Context Help" -datatype date -widget date \
-format "YYYY/MM/DD HH12:MI:SS AM" -optional \
-help
template::element create date_test date_exp \
-label "Expiration date" -datatype date -widget date \
-format expiration -optional
# Set some example variables
# Create a blank date
set today_date [template::util::date create]
# Get the tomorrow's date
set clock_value [clock scan "1 day" -base [clock seconds]]
set tomorrow_date [template::util::date set_property clock $today_date $clock_value]
# Get the SQL value
set tomorrow_sql [template::util::date::get_property sql_date $tomorrow_date]
# Local variables:
# mode: tcl
# tcl-indent-level: 4
# indent-tabs-mode: nil
# End: