Module: _century Library: Clipper 5.3
This module contains the following functions and procedures:
Note: Because this is raw decompiler output, the code is closer
to that seen in a .PPO file, rather than a .PRG file. In other
words, you must allow for the preprocessor conversions normally
performed based on the contents of STD.CH and other .CH files
#include "common.ch"
#include "inkey.ch"
//---------------------------------------------------[top]-
// __SETCENTU( Arg1 )
//
function __SETCENTU( Arg1 )
local Local1, Local2 := Upper(Set(_SET_DATEFORMAT)), Local3, ;
Local4, Local5
Local1 := "YYYY" $ Local2
if ( ISCHARACTER( Arg1 ) )
Arg1 := Upper(Arg1) = "ON"
endif
if ( ISLOGICAL( Arg1 ) .AND. Arg1 != Local1 )
Local5 := At("Y", Local2)
Local3 := SubStr(Local2, 1, Local5 - 1)
do while ( SubStr(Local2, Local5, 1) == "Y" )
Local5++
enddo
Local4 := SubStr(Local2, Local5)
set date format to Local3 + iif( Arg1, "YYYY", "YY" ) + Local4
endif
return Local1
//---EOF
Use your Browser's BACK button to return to Function Listings