【ELDateToString】
[code]inputs: DateSelect( numericsimple ) ;variables: var0( "" ), var1( "" ), var2( "" ) ;
var0 = NumToStr( 1900 + IntPortion( DateSelect * .0001 ), 0 ) ;
if DateSelect >= 1000000 then
var1 = MidStr( NumToStr( DateSelect, 0 ), 4, 2 )
else
var1 = MidStr( NumToStr( DateSelect, 0 ), 3, 2 ) ;
var2 = RightStr( NumToStr( DateSelect, 0 ), 2 ) ;
ELDateToString = var1 + "/" + var2 + "/" + var0 ;
[/code]
页:
[1]