Functions.SetDateCountry 方法 |
命名空间: XSharp.Core
1FUNCTION Start() 2 LOCAL I AS INT 3 SetDateCountry(2) 4 SetCentury(FALSE) 5 ? DTOC(TODAY()) 6 ? DTOC(92.12.31) 7 ? DTOC(1992.12.31) 8 FOR I := 1 UPTO 8 9 SetDateCountry(I) 10 ? I, DTOC(TODAY()), "!" + DTOC(0) + "!" 11 NEXT 12 ? 13 SetCentury(TRUE) 14 FOR I := 1 UPTO 8 15 SetDateCountry(I) 16 ? I, DTOC(TODAY()), "!" + DTOC(0) + "!" 17 NEXT