Date manipulation

[Gintaras]

Macro Macro1707

Code:

Copy      Help

DateTime x
str s
int year
x.FromComputerTime ;;get today's date time
x.AddParts(1) ;;add 1 day
s=x.ToStr ;;convert to string
;s=x.ToStr(1) ;;without time part
out s
x.GetParts(year) ;;get year
out year

or
Macro Macro1708

Code:

Copy      Help

DATE x
x.getclock
x=x+1 ;;add 1 day
;_i=x; x=_i ;;remove time part
out x
SYSTEMTIME st; x.tosystemtime(st)
out st.wYear