
  FUNCTION [INLINE] fdp$date_variable
    (    p_form_variable_definition: ^fdt$form_variable_definition): boolean;

?? PUSH (LISTEXT := ON) ??

    fdp$date_variable := (p_form_variable_definition <> NIL) AND
          (p_form_variable_definition^.output_format.key IN $output_format_key_set
          [fdc$ydm_output_format, fdc$dmy_output_format, fdc$mdy_output_format, fdc$iso_output_format,
          fdc$month_dd_yyyy_out_format]) OR (p_form_variable_definition^.input_format.key IN
          $fdt$input_format_key_set [fdc$ydm_format, fdc$dmy_format, fdc$mdy_format, fdc$iso_date_format,
          fdc$month_dd_yyyy_format]);

  FUNCEND fdp$date_variable;

  TYPE
    output_format_key_set = set of fdt$output_format_key;

*copyc fdt$form_variable_definition
*copyc fdt$input_format_key_set
*copyc fdt$output_format_key
?? POP ??
