@main[]

^do[ ]
^do[+]

^do[1-1-  -1T10:10:10.0+5]
^dt.roll[TZ;SUB-3]
^show[same;$dt]

^do[1980-1-1T10:10:10.0+5]
^dt.roll[TZ;]
^show[same;$dt]

^do[9999-12-31T10:10:10.0+5]
^dt.roll[TZ;]
^show[same;$dt]

^do[9999-12-31T23:59:59-5]
^try-catch{^dt.roll[TZ;]}

^do[2000--31 23:59:59]
^do[2000-1-31T23:59:59]
^do[2000-1-31T23:59:59x]
^do[2000-1-31T23:59:59+]
^do[2000-1-31T23:59:59+a]
^do[2000-1-31T23:59:59+222]
^do[2000-1-31T23:59:59+22:]
^do[2000-1-31T23:59:59+22:100]
^do[2000-1-31T 23:59:59  +0 2:10  ]

^do[-1-31 23:59:59]
^do[1--1-1 23:59:59.1 1]
^do[1--.1-1 23:59:59]


^do[2000]
^do[2000-]
^do[2000X]
^do[2000-1 ]
^do[2000-1X]
^do[2000-1-]
^do[2000-1-31 ]
^do[2000-1-31X]
^do[2000-1-31 1 ]
^do[2000-1-31 1X]
^do[2000-1-31 1:]
^do[2000-1-31 1:1 ]
^do[2000-1-31 1:1X]
^do[2000-1-31 1:1:]
^do[2000-1-31 1:1:1 ]
^do[2000-1-31 1:1:1X]
^do[2000-1-31 1:1:1.]
^do[2000-1-31 1:1:1.2 ]
^do[2000-1-31 1:1:1.2X]

^do[2000-1-31T]
^do[2000-1-31T1 ]
^do[2000-1-31T1X]
^do[2000-1-31T1Z]
^do[2000-1-31T1:1 ]
^do[2000-1-31T1:1X]
^do[2000-1-31T1:1Z]
^do[2000-1-31T1:1:1 ]
^do[2000-1-31T1:1:1X]
^do[2000-1-31T1:1:1Z]
^do[2000-1-31T1:1:1.2 ]
^do[2000-1-31T1:1:1.2Z]

^do[2000:1]
^do[2000:1-31]
^do[2000:1:31]
^do[2000:1:31 1]


@do[s]
[$s]
^try-catch{$caller.dt[^date::create[$s]]^show[$s;$caller.dt]}

@show[s;dt]
[$s] timestamp:  ^dt.unix-timestamp[]
[$s] sql-string: ^dt.sql-string[] $dt.TZ
[$s] iso-string: ^dt.iso-string[]