双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

VB时间戳转换为系统日期

2013-12-30 03:02:52 550 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

天北小白墨衍会员 · AI 创作全网分发关注 + 加入社区

VB 获取不同的时间戳（GMT、UTC 和 GMT+8） VB 获取不同的时间戳（GMT、UTC 和 GMT+8）阅读详情

dateLong = 1331078400000
Dim dt As DateTime = DateTime.FromFileTime(dateLong)
Dim dt2 As DateTime = DateTime.FromFileTimeUtc(dateLong)
这两个方法转换的日期都不对，有那个方法能实现正确的转换啊

...全文

Mit6.S081-实验1-Xv6 and Unix utilities Mit6.S081-实验1-Xv6 and Unix utilities前言一、Boot xv61，实验目的2，操作流程1）切换到xv6-labs-2020代码库的lab1分支2）启动xv63）测试xv64）过程分析5）其他操作二、在xv6中添加一个自己编写的程序1，源码准备2，编译配置3，测试添加程序4，过程分析三、xv6中shell简析前言一、Boot xv6 1，实验目的利用qemu启动xv6 2，操作流程 1）切换到xv6-labs-2020代码库的lab1分支 git checkout ut 阅读详情

天北小白

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

lele_nancy 2014-01-07

打赏
举报


Public class UnixTime

  Public ReadOnly UnixEpoch As DateTime= new DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc)

  Public Function ToUnixTime(ByVal dateTime As DateTime) As Long

    dateTime = dateTime.ToUniversalTime()

    Return CLng(dateTime.Subtract(UnixEpoch).TotalSeconds)

  End Function

  Public Function FromUnixTime(ByVal unixTime As Long) As DateTime

    Return UnixEpoch.AddSeconds(unixTime)

  End Function
End Class
Dim dt as DataTime = UnixTime.FromUnixTime(iStrTime)

lele_nancy 2014-01-07

打赏
举报

new DateTime(1970, 1, 1, 0, 0, 0, DateTimeKind.Utc) 在小时的地方要加上当前所在的时区，国内应该是8 new DateTime(1970, 1, 1, 8, 0, 0, DateTimeKind.Utc)

wind_cloud2011 2014-01-01

打赏
举报

你提供的dateLong = 1331078400000就是返回 1601年

 Dim dt As DateTime = DateTime.FromFileTime(dateLong)
        Dim d As String = DateTime.FromFileTime(dateLong).ToString("yyyy-MM-dd HH:mm:ss")

Long型一般是表示为 Windows 文件时间的当前 DateTime 对象的值，它表示自协调通用时间 (UTC) 公元 (C.E.) 1601 年 1 月 1 日午夜 12:00 以来已经过的时间的以 100 毫微秒为间隔的间隔数。Windows 使用文件时间记录应用程序创建、访问或写入文件的时间。用Date.FromFileTime(long)方法。还有一个 FromFileTimeUtc（long）方法，是将当前文件时间转换为同时的UTC（协调通用时间） Dim l As Long = 128208176211955002 Dim dt As DateTime = DateTime.FromFileTime( 128208176211955002 ) Dim dt2 As DateTime = DateTime.FromFileTimeUtc( 128208176211955002 ) Debug.WriteLine(dt.ToString) Debug.WriteLine(dt2.ToString) 执行结果： 2007 / 04 / 12 11 : 13 : 41 2007 / 04 / 12 2 : 13 : 41

feiyun0112 2013-12-30

打赏
举报

1331078400000哪来的

*****************************************************************************
签名档： http://feiyun0112.cnblogs.com/

✦双11狂欢大促✦

VB时间戳转换为系统日期

相关推荐

双11狂欢大促