龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-1 13:32

【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]