求助!关于使用vba进行日期格式转换的请教

发布网友发布时间：2022-05-06 00:59

共3个回答

热心网友时间：2022-06-28 10:24

工具/材料：Microsoft Office Excel2007版，Excel表格。

1、首先双击打开Excel表格。

2、其次在Microsoft Office Excel2007版界面上，选中底部工作表，右键点击“查看代码”。

3、接着在弹出的VBA窗口中，输入日期格式转换的代码“Private Sub dateTra() Dim datetime datetime = "2020/2/13" MsgBox (Format(datetime, "YYYY-MM-DD")) End Sub

”。

4、其次在弹出的VBA窗口中，点击工具栏里的三角形图标。

5、最后在Microsoft Office Excel2007版界面上，弹出提示框，成功显示日期格式转换。

热心网友时间：2022-06-28 10:24

虽然你已解决格式问题,不过我还是想说一下,用FORMAT最简单,语法:
文本框=Format(日期变量,"YYYYMMDD")或文本框=Format(日期变量,"YYYY-MM-DD")

不过你不能再在文本框的属性中设置格式了,如果你要更*的日期格式就用字符串变最来保存,然后,自己再写一个返回正常日期的函数,显示时转换为了字符串即可如:
文本框=Cstr(Format(日期变量,"YYYYMMDD"))

接下来要实现的问题很简单
在窗体中,右击空白处,选择“Tab键次序...”调整你所需要的次序即可，全用鼠标操作，选择一个或多个控件，然后就可以向下或向上移动他们了，重新排序的控件次序即是你所需的Tab键顺序，或Enter键后的次序，（声明：在文本框输入完后按Enter键，若TAB键顺序的下一个控件是按钮，会将焦点移动按钮上，但再按Enter键，焦点不会转移，因为会触发Click事件，只能用Tab键）

2、在A文本框的AfterUpdate事件中写入
B文本框=Cstr(CDate(Trim(Me.A文本框））- 90）

热心网友时间：2022-06-28 10:25

如果文本框的输入格式是“YYYYMMDD”而不是“YYYY-MM-DD”，例如：20090408，可以用下面方法处理：
Dim A As String, B As String, C As String, M As String, R As Date, R1 As Date, X As Integer
A = Left(Text1.Text, 4)
B = Right(Left(Text1.Text, 6), 2)
C = Right(Text1.Text, 2)
M = A & "-" & B & "-" & C
R1 = CDate(M)
X = DateDiff("D", R1, Date)
If X > 90 And Weekday(Date) = 1 Then
Text2.Text = Text1.Text
End If