--  FORMAT is a formatting function that formats a value based
--  on a format string.
EVALUATE
{
    ( "Percent",      FORMAT (                0.742, "Percent" )        ),
    ( "Currency (1)", FORMAT (             1234.567, "$#,0.00" )        ),
    ( "Currency (2)", FORMAT (             1234.567, """US$"" #,0.00" ) ),
    ( "Date (1)",     FORMAT ( DATE ( 2019, 3, 28 ), "yyyy-mm-dd" )     ),
    ( "Date (2)",     FORMAT ( DATE ( 2019, 3, 28 ), "m/d/yy" )         )
}

--  FORMAT accepts a set of predefined format strings to format numbers
EVALUATE
{
    ( "General Number",  FORMAT( 12345.67, "General Number" )  ),
    ( "Currency"      ,  FORMAT( 12345.67, "Currency"       )  ),
    ( "Fixed"         ,  FORMAT( 12345.67, "Fixed"          )  ),
    ( "Standard"      ,  FORMAT( 12345.67, "Standard"       )  ),
    ( "Percent"       ,  FORMAT( 12345.67, "Percent"        )  ),
    ( "Scientific"    ,  FORMAT( 12345.67, "Scientific"     )  ),
    ( "True/False"    ,  FORMAT( TRUE,     "True/False"     )  ),
    ( "On/Off"        ,  FORMAT( FALSE,    "On/Off"         )  ),
    ( "Yes/No"        ,  FORMAT( TRUE,     "Yes/No"         )  )
}

--  Regardless of the format string, if the value argument is
--  BLANK, FORMAT returns an empty string
EVALUATE
{
    ( "General Number",  FORMAT ( BLANK (), "General Number" ) ),
    ( "Currency"      ,  FORMAT ( BLANK (), "Currency"       ) ),
    ( "Fixed"         ,  FORMAT ( BLANK (), "Fixed"          ) ),
    ( "Standard"      ,  FORMAT ( BLANK (), "Standard"       ) ),
    ( "Percent"       ,  FORMAT ( BLANK (), "Percent"        ) ),
    ( "Scientific"    ,  FORMAT ( BLANK (), "Scientific"     ) ),
    ( "True/False"    ,  FORMAT ( BLANK (), "True/False"     ) ),
    ( "On/Off"        ,  FORMAT ( BLANK (), "On/Off"         ) ),
    ( "Yes/No"        ,  FORMAT ( BLANK (), "Yes/No"         ) )
}

--  Custom numeric format string can have up to 3 sections:
--      One section   : applied to all the values
--      Two sections  : first for positive and zero, second for negative
--      Three sections: first for positive, second for negative, third for zero
EVALUATE
{
    ( "Positive",  FORMAT (  1980.126, "#,0.00" ) ),
    ( "Negative",  FORMAT ( -1980.1  , "#,0.00" ) ),
    ( "Zero",      FORMAT (     0    , "#,0.00" ) ),
    ( "Blank",     FORMAT ( BLANK () , "#,0.00" ) )
}

EVALUATE
{
    ( "Positive",  FORMAT (  1980.126, "#,0.00;(#,0.00)" ) ),
    ( "Negative",  FORMAT ( -1980.1  , "#,0.00;(#,0.00)" ) ),
    ( "Zero",      FORMAT (     0    , "#,0.00;(#,0.00)" ) ),
    ( "Blank",     FORMAT ( BLANK () , "#,0.00;(#,0.00)" ) )
}

EVALUATE
{
    ( "Positive",  FORMAT (  1980.12, "#,#.##;(#,#.##);-" ) ),
    ( "Negative",  FORMAT ( -1980.12, "#,#.##;(#,#.##);-" ) ),
    ( "Zero",      FORMAT (     0   , "#,#.##;(#,#.##);-" ) ),
    ( "Blank",     FORMAT ( BLANK (), "#,#.##;(#,#.##);-" ) )
}

--  FORMAT accepts a set of predefined format strings for Date/Time
DEFINE 
    VAR D  = DATE ( 2021, 1, 2 )
    VAR T  = TIME ( 15, 30, 0 )
    VAR DT = D + T
EVALUATE
{
    ( "General Date",  FORMAT ( DT, "General Date" ) ),
    ( "Long Date"   ,  FORMAT ( DT, "Long Date"    ) ),
    ( "Medium Date" ,  FORMAT ( DT, "Medium Date"  ) ),
    ( "Short Date"  ,  FORMAT ( DT, "Short Date"   ) ),
    ( "Long Time"   ,  FORMAT ( DT, "Long Time"    ) ),
    ( "Medium Time" ,  FORMAT ( DT, "Medium Time"  ) ),
    ( "Short Time"  ,  FORMAT ( DT, "Short Time"   ) )
}

--  You can use simple date formatting composing the format string 
--  with dd, mm, yyyy, hh, mm and ss.
--  The "c" format string adapts to the value, showing what is relevant
DEFINE 
    VAR D  = DATE ( 2020, 1, 2 )
    VAR T  = TIME ( 15, 30, 0 )
    VAR DT = D + T
EVALUATE
{
    ( "dd/mm/yyyy"   ,  FORMAT ( DT, "dd/mm/yyyy" ) ),
    ( "hh:nn:ss"     ,  FORMAT ( DT, "hh:nn:ss"   ) ),  -- "nn" for minutes
    ( "hh:mm:ss"     ,  FORMAT ( DT, "hh:mm:ss"   ) ),  -- "mm" works too, if hh before
    ( "c (full)"     ,  FORMAT ( DT, "c"          ) ),
    ( "c (Date only)",  FORMAT ( D,  "c"          ) ),
    ( "c (Time only)",  FORMAT ( T,  "c"          ) )
}

--  The "m" format string offers many options, depending on the 
--  number of consecutive m
DEFINE 
    VAR D = DATE ( 2020, 1, 2 )
EVALUATE
{
    ( "m"      ,  FORMAT ( D, "m"      ) ),    -- 1 or 2 digits 
    ( "mm"     ,  FORMAT ( D, "mm"     ) ),    -- always 2 digits
    ( "mmm"    ,  FORMAT ( D, "mmm"    ) ),    -- short day of month
    ( "mmmm"   ,  FORMAT ( D, "mmmm"   ) )     -- long day of month
}

--  The "d" format string offers many options, depending on the 
--  number of consecutive d
DEFINE 
    VAR D = DATE ( 2020, 1, 9 )
EVALUATE
{
    ( "d"      ,  FORMAT ( D, "d"      ) ),    -- 1 or 2 digits
    ( "dd"     ,  FORMAT ( D, "dd"     ) ),    -- always 2 digits
    ( "ddd"    ,  FORMAT ( D, "ddd"    ) ),    -- short day of week
    ( "dddd"   ,  FORMAT ( D, "dddd"   ) ),    -- long day of week
    ( "ddddd"  ,  FORMAT ( D, "ddddd"  ) ),    -- short date
    ( "dddddd" ,  FORMAT ( D, "dddddd" ) )     -- long date
}