UNIX时间戳

396384183

论坛有你更精彩

year1970

感谢分享

豆豆灰常开心

全都是大佬~

查过

已经顶贴，感谢您对论坛的支持！

艾玛克138

谢了，很实用，就喜欢这样的资料

7ian

  

子程序名	返回值类型	公开	备 注
时间_到时间戳	长整数型		把时间转成10位时间戳
参数名	类 型	参考	可空	数组	备 注
时间	日期时间型				默认取本地时间

变量名	类 型	静态	数组	备 注
年份	双精度小数型
总秒数	长整数型

如果真 (是否为空 (时间))
时间 ＝ 取现行时间 ()
年份 ＝ 取时间间隔 (时间, [1970年1月1日8时], #年份 )
总秒数 ＝ (年份 ＼ 60) × 1893456000
年份 ＝ 取年份 (增减时间 (时间, #年份, －年份 ％ 60))
返回 (总秒数 ＋ 取时间间隔 (时间, 到时间 (到文本 (年份) ＋ “年1月1日8时”), #秒 ))

.版本 2<br /> <br /> .子程序 时间_到时间戳, 长整数型, 公开, 把时间转成10位时间戳<br /> .参数 时间, 日期时间型, 可空, 默认取本地时间<br /> .局部变量 年份, 双精度小数型<br /> .局部变量 总秒数, 长整数型<br /> <br /> .如果真 (是否为空 (时间))<br />     时间 ＝ 取现行时间 ()<br /> .如果真结束<br /> 年份 ＝ 取时间间隔 (时间, [1970年1月1日8时], #年份)<br /> 总秒数 ＝ (年份 ＼ 60) × 1893456000<br /> 年份 ＝ 取年份 (增减时间 (时间, #年份, －年份 ％ 60))<br /> 返回 (总秒数 ＋ 取时间间隔 (时间, 到时间 (到文本 (年份) ＋ “年1月1日8时”), #秒))

笨来无一悟

我这边没有 超级处理时间( ) 这个子程序 所以不能测试正不正常大概可以简化成下面这种写法

  

子程序名	返回值类型	公开	备 注
时间_时间转UNIX	长整数型		时间戳 可以一直使用 世博模块
参数名	类 型	参考	可空	数组	备 注
标时间	日期时间型

返回 (取时间间隔 (标时间, 初始时间, #日 ) × 60 × 60 × 24 ＋ 取时间间隔 (到时间 (“1970-01-01 ” ＋ 超级处理时间 (标时间, 3)), 到时间 (“1970-01-01 08:00:00”), #秒 ))

.版本 2<br /> <br /> .子程序 时间_时间转UNIX, 长整数型, 公开, 时间戳 可以一直使用 世博模块<br /> .参数 标时间, 日期时间型<br /> <br /> 返回 (取时间间隔 (标时间, 初始时间, #日) × 60 × 60 × 24 ＋ 取时间间隔 (到时间 (“1970-01-01 ” ＋ 超级处理时间 (标时间, 3)), 到时间 (“1970-01-01 08:00:00”), #秒))

笨来无一悟

功德无量