这样。不过只是个精确到纳秒的计时器，不是精确到纳秒的当前时间。windows好像只能拿到ms精度的当前时间吧，不是很清楚。
我们提供的服务有：成都网站设计、做网站、成都外贸网站建设公司、微信公众号开发、网站优化、网站认证、宜黄ssl等。为上千多家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务，是有科学管理、有技术的宜黄网站制作公司
package main
import (
"syscall"
"time"
"unsafe"
)
func NewStopWatch() func() time.Duration {
var QPCTimer func() func() time.Duration
QPCTimer = func() func() time.Duration {
lib, _ := syscall.LoadLibrary("kernel32.dll")
qpc, _ := syscall.GetProcAddress(lib, "QueryPerformanceCounter")
qpf, _ := syscall.GetProcAddress(lib, "QueryPerformanceFrequency")
if qpc == 0 || qpf == 0 {
return nil
}
var freq, start uint64
syscall.Syscall(qpf, 1, uintptr(unsafe.Pointer(freq)), 0, 0)
syscall.Syscall(qpc, 1, uintptr(unsafe.Pointer(start)), 0, 0)
if freq = 0 {
return nil
}
freqns := float64(freq) / 1e9
return func() time.Duration {
var now uint64
syscall.Syscall(qpc, 1, uintptr(unsafe.Pointer(now)), 0, 0)
return time.Duration(float64(now-start) / freqns)
}
}
var StopWatch func() time.Duration
if StopWatch = QPCTimer(); StopWatch == nil {
// Fallback implementation
start := time.Now()
StopWatch = func() time.Duration { return time.Since(start) }
}
return StopWatch
}
func main() {
// Call a new stop watch to create one from this moment on.
watch := NewStopWatch()
// Do some stuff that takes time.
time.Sleep(1)
// Call the stop watch itself and it will return a time.Duration
dur := watch()
}
这和语言没关系，操作系统要提供这样的原语。linux和windows都是可以的。
是说 20060102150405 这个吗，原因大致如下：
可读性高，所见即所得
实现简单，排除二义性（15或3代表时，4代表分，5代表秒，06或2006代表年）
请参考源代码：
187 case '3':
188 return layout[0:i], stdHour12, layout[i+1:]
189
190 case '4':
191 return layout[0:i], stdMinute, layout[i+1:]
192
193 case '5':
194 return layout[0:i], stdSecond, layout[i+1:]
195
选择单元格区域中的一列日期或时间，或者确保活动单元格在包含日期或时间的表列中。
选择单元格区域或表中的一列日期或时间。
在“开始”选项卡上的“编辑”组中，单击“排序和筛选”，然后执行下列操作之一：
若要按从早到晚的顺序对日期或时间排序，请单击“从最旧到最新排序”。
若要按从晚到早的顺序对日期或时间排序，请单击“从最新到最旧排序”。
问题：检查日期和时间是否存储为日期或时间 如果结果不是您所希望的，可能是因为该列中包含存储为文本（而不是日期或时间）的日期或时间。要使 Excel 正确地对日期和时间进行排序，该列中的所有日期和时间都必须存储为日期或时间系列数值。如果 Excel 无法将值识别为日期或时间值，就会将该日期或时间存储为文本。有关详细信息，请参阅将存储为文本的日期转换为日期。
注释 如果要按星期日期进行排序，请设置单元格格式以显示星期日期。如果要按星期日期进行排序，而不考虑日期，请使用 TEXT 函数将它们转换为文本。但是，TEXT 函数会返回一个文本值，因此排序操作将基于字母数字数据。有关详细信息，请参阅按星期日期显示日期。
1.可以用DateDiff函数，返回值表示两个指定日期间的时间间隔。
2.也可以把两个日期直接相减：
a = Now - CDate("2014-1-1") '2014年1月1日到今天，共这么多天。
b = CDate("2014-3-1") - CDate("2014-1-1") '2014年1月1日到2014年3月1日，共这么多天。
vb的函数是强大的，闰年和平年它自己会处理，无需担心。
追问：
那需要什么控件，能详细说一下吗
回答：
不需要任何控件呢，是系统自带的函数呢，你写到代码里面试试就可以了。
你稍等，我给你写代码：
'窗体弄一个按钮Command1，加入以下代码，你试试看：
Private Sub Command1_Click()
Dim a As Long
Dim b As Long
a = Now - CDate("2014-1-1")'2014年1月1日到今天，共这么多天。
b = CDate("2014-3-1") - CDate("2014-1-1")'2014年1月1日到2014年3月1日，共这么多天。
Print "2014年1月1日到今天，共" a "天。"
Print "2014年1月1日到2014年3月1日,共" b "天。"
End Sub
