Access里如何获取毫秒值？

玉树TMD临风

单位里用Sql anywhere数据库里（db格式）+Pbuilder，有个数据表的ID字段是主键，值为20150512121315045424这样的每创建一个新记录时会自动生成ID字段，不知道生成规律是什么，最后6位645424也不知道是微秒还是毫秒，而且很多数据都是424结尾的，看不出来和其他字段有什么关系。

我现在通过ODBC连接了该表，想用Access处理数据，在添加记录时，不知道如何生成上述ID值，初步考虑后6位中的前3位用left(ns,3)表示（纳秒的前3位），不知道有没有其他好的办法。

todaynew

Access的时间类型只能到秒吧？
秒后面补六个0，不就可以了吗？
msgbox format(now(),"yyyymmddhhnnss") & “000000”

玉树TMD临风

todaynew 发表于 2015-5-13 12:08
Access的时间类型只能到秒吧？
秒后面补六个0，不就可以了吗？
msgbox format(now(),"yyyymmddhhnnss") & ...

因为这个字段是主键且自动生成，格式又要求固定，所以用补0的方式可能会导致重复。

我用API解决了，但是这段API在Access里使用时有点问题，yyyymmdd会变成“年月和本周第几天”这种格式，大家自己调试一下，等上完班我再来补充正确用法。


Option Compare Database

Private Type SYSTEMTIME
     wYear As Integer
     wMonth As Integer
     wDayOfWeek As Integer
     wDay As Integer
     wHour As Integer
     wMinute As Integer
     wSecond As Integer
     wMilliseconds As Integer
         
   End Type
   
   Private Declare PtrSafe Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)
    Public Function getdatetime() As String
     Dim LCT As SYSTEMTIME
     Dim ymd As String, hms As String
     
     GetLocalTime LCT
     ymd = Format(LCT.wYear & "-" & LCT.wMonth & "-" & LCT.wDay, "yyyyMMdd")
     hms = Format(LCT.wHour, "00") & Format(LCT.wMinute, "00") & Format(LCT.wSecond, "00") & Format(LCT.wMilliseconds, "000")
     getdatetime = ymd & hms
   End Function