SET DATE ANSI
SET CENTURY ON
SET MARK TO "-"
Y = INPUTBOX("Type Here:", "Input Title", ;
DTOC(DATE()), 50000, 'Timed Out', 'Canceled')
? Y
X=(DATE()-CTOD(Y))*24*60*60
MESSAGEBOX(STR(X)+"秒")