回覆列表
  • 1 # wh226500

    '三個部件:command1、text1和timer1

    Private Sub Form_Load()

    Timer1.Interval = 1000

    Timer1.Enabled = False

    Text1.Text = ""

    Command1.Caption = "開始"

    End Sub

    Private Sub Command1_Click()

    Text1.Text = DateAdd("n", Text1.Text, "0:00")

    Timer1.Enabled = True

    End Sub

    Private Sub Timer1_Timer()

    Text1.Text = DateAdd("s", -1, Text1.Text)

    If Text1.Text = "00:00:00" Then Timer1.Enabled = False'若要用此語句,則系統時間格式必為“HH:mm:ss”

    End Sub

  • 2 # 使用者8146358770460

    Format 函式返回 Variant (String),其中含有一個表示式,它是根據格式表示式中的指令來格式化的。使用預先定義的命名日期/時間格式或建立使用者自定義日期/時間格式。Format 函式示例對於問帖的程式碼如下:

  • 中秋節和大豐收的關聯?
  • 親戚介紹的物件多久適合牽手接吻?