时间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

运行测试

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