日期书写格式(时间12/24小时制的互换)

圣

诞

快

乐

· MERRY CHRISTMAS ·

哈喽，哈喽，大家圣诞快乐！

我一直在想，给大家分享点啥呢？每次都是绞尽脑汁给大家找示例，找好的想法，想让大家也多学习一点，虽说找示例有点费脑，但还是挺有意思的。

今天就给大家分享一个12/24小时制互换。我们来看一下这个怎么做。

01

建窗体

在一个空白的窗体上放两个文本框，一个用于输入时间（txtInput），一个用于输出时间（txtOutput）。

在输入时间的输入掩码：99:00:00;0;_

这样输入时，就可以控制一下日期格式。

02

添加代码

在输入时间里更新后，输入一下代码

Private Sub txtInput_AfterUpdate()
Dim H As Long
Dim MS
Dim AMPM As String
MS = Mid(Me.txtInput, InStr(1, Me.txtInput, ":"), Len(Me.txtInput) - InStr(1, Me.txtInput, ":") + 1)
H = Format(Me.txtInput, "HH")
If H > 12 Then
H = H - 12
AMPM = "下午"
Else
' H = H + 12
AMPM = "上午"
End If
Me.txtOutput = H & MS & AMPM
End Sub

代码比较简单，就是将24小时的时间与12小时的时间互相转换一下，如果是大于12的那就是下午，反之就是上午

03

运行测试

最后是运行一下，看一下效果，输入一下下午的时间，转换后会显示下午的时间。