vba代码如何更改系统时间格式?

爱吉瑞　发表于：2016-04-30 22:01:12 　

复制

表中有个时间字段。在窗体按钮的代码中，可添加记录，时间字段对应操作时间，添加记录用的是docmd.runsql。问题，当系统的时间格式带上午或下午时，添加记录会出错。请问如何不通过手动设置XP系统中时间格式，来完成此功能。

Top

朱先生发表于：2016-04-30 22:59:57

FORMAT(N0W(),"YYYY-MM-DD")

Top

爱吉瑞发表于：2016-04-30 23:04:46

朱老师，我的是上午11：05 想把这个写及到表中。用 FORMAT(NOW（）,”HH:MM:SS“) 无效。

Top

朱先生发表于：2016-05-01 08:22:12

FORMAT(NOW(),"AMPM HH:MM:SS) 返回上午/下午 11:02:22

FORMAT(NOW(),"AMPM HH:MM) 返回上午/下午 11:02

FORMAT(NOW()," HH:MM AMPM) 返回 11:02 上午/下午

Top

爱吉瑞发表于：2016-05-01 09:18:15

系统时间中带上午下午，我想用format不带上午下午。如果设置系统时间格式的话，是可以的。但作为客户使用，很不方便。

Top

朱先生发表于：2016-05-01 20:19:37

Top

爱吉瑞发表于：2016-05-01 21:21:33

朱老师：我那个也设置了。那个记录我是用以下的代码写入表中。b为获得的窗体上的时间，当XP系统的时间设置格式为下午XX：XX时，或上午XX：XX时，这个写入操作不执行。只有手工改动XP时间里的设置。

Private Sub Text84_AfterUpdate()

    Dim SQL As String
    Dim inx As Integer
    inx = DCount("条码", "馥佩销售A")
    inx = inx + 1
    Dim a As Date
    Dim b As Date
    Dim c As String
    Dim D As Integer

a = Format(Me.Text2, "yyyy-m-d")

b = Format(Me.Text126, "hh:mm:ss")

c = Me.Text5
D = Me.Text121

SQL = "INSERT INTO 销售临时表 (日期,时间,工号,流水号,销售数量,序号,货号) SELECT # " & a & "#,#" & b & "#," & c & "," & D & ",1," & inx & ",货号 FROM 馥珮系列产品a WHERE 条码=TEXT84"

DoCmd.RunSQL SQL
Me.临时表A.Requery

Text84 = ""
Text84.SetFocus
End Sub

Top

朱先生发表于：2016-05-02 09:50:44

看了代码，问题好象与时间格式无关，最好上传附件

Top

爱吉瑞发表于：2016-05-02 16:37:13

不知为何将 SQL = "INSERT INTO 销售临时表 (日期,时间,工号,流水号,销售数量,序号,货号) SELECT # " & a & "#,#" & b & "#," & c & "," & D & ",1," & inx & ",货号 FROM 馥珮系列产品a WHERE 条码=TEXT84"

中的

,#" & b & "#, 两个#，改为 ' 就可以添加记录了。按理说时间格式应该用“#” 。

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

vba代码如何更改系统时间格式?