📄 module1.bas
字号:
Attribute VB_Name = "Module1"
Public djltable As Recordset
Public dateword As String
Public monthword As String
Public dcstring As String
Public price As Long
Public cptable As Recordset
Public rbtable As Recordset
Public ybtable As Recordset
Public dcpath As String
Public dcdb As Database
Public superuser As Recordset
Public username As String
Public username2 As String
Public hytable As Recordset
Public discount As Long
Public total_money As Long
Public dctable As Recordset
Public Sub fundate()
dateword = Format(Now, "mm/dd/yy")
monthword = Mid(dateword, 1, 2)
dateword = Mid(dateword, 4, 2)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -