Click above to get retro games delivered to your door ever month!

##############################################################################
###+--------+#################################################################
#+-| CTOD() |--------------------------------------------------+##############
#| +--------+ Converts from a character string to a date value |##############
#+-------------------------------------------------------------+##############
##############################################################################
##############################################################################
#+--| Summary |--------------+################################################
#|     #INCLUDE date.hdr     |################################################
#+---------------------------+################################################
##############################################################################
##############################################################################
#+--| Syntax |-----------------------------+##################################
#|     FUNCTION DATE ctod PROTOTYPE        |##################################
#|      PARAMETERS VALUE DATE date_str     |##################################
#+-----------------------------------------+##################################
##############################################################################
##############################################################################
########+---| Description |-------------------------------------------+#######
########| The ctod() function converts a character string into a date |#######
########| value.  ctod() interprets the date_str string according to  |#######
########| the current value of SET DATE TO <Date-type>.               |#######
########| see DATE TYPE TABLE in COMMANDS under SET DATE.             |#######
########+-------------------------------------------------------------+#######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Replace date field with specific date.              |#########
#########|                                                          |#########
#########| REPLACE cust->date WITH ctod( "01/01/89" )               |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    How many transactions on July 4th?                  |#########
#########|                                                          |#########
#########| COUNT ALL FOR t->date = ctod( "07/04/89" ) ;             |#########
#########|  TO count_total                                          |#########
#########+----------------------------------------------------------+#########
##############################################################################