>Hi everybody,
>
>Is there a simple way to show date as
>
>mm/dd/yy regardless of set century setting?
FUNCTION NaomisDate( tdDate AS Date ) AS Character
LOCAL ;
lcOldDateSetting ;
, lcOldCenturySetting ;
, lcRetVal
lcOldDateSetting = SET( "DATE" )
lcOldCenturySetting = SET( "CENTURY" )
SET DATE AMERICAN
SET CENTURY OFF
lcRetVal = DTOC( tdDate )
SET CENTURY &lcOldCenturySetting
SET DATE &lcOldDateSetting
RETURN lcRetVal
ENDFUNC
FUNCTION NaomisDate2( tdDate AS Date ) AS Character
RETURN TRANSFORM( MONTH( tdDate ), "@L, 99" ) ;
+ "/" ;
+ TRANSFORM( DAY( tdDate ), "@L, 99" ) ;
+ "/" ;
+ RIGHT( STR( YEAR( tdDate ) ), 2 )
ENDFUNC
Which is more maintainable? You be the judge.
Regards. Al
"Violence is the last refuge of the incompetent." -- Isaac Asimov
"Never let your sense of morals prevent you from doing what is right." -- Isaac Asimov
Neither a despot, nor a doormat, be
Every app wants to be a database app when it grows up
