form1.frm

Visual Basic 6 大学教程的代码

VERSION 5.00
Begin VB.Form frmTime 
   Caption         =   "Demonstrating Time Functions"
   ClientHeight    =   1995
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   1995
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox lstOutput 
      Height          =   2010
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4695
   End
End
Attribute VB_Name = "frmTime"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' Fig. 8.25
' Demonstrating the Time functions
Option Explicit

Private Sub Form_Load()
   Call lstOutput.AddItem("Time: " & Time)
   Call lstOutput.AddItem("Hour: " & Hour(Time))
   Call lstOutput.AddItem("Minute: " & Minute(Time))
   Call lstOutput.AddItem("Second: " & Second(Time))
   Call lstOutput.AddItem("Seconds since midnight: " & Timer)
   Call lstOutput.AddItem("TimeSerial(0,0,90): " & _
                          TimeSerial(0, 0, 90))
   Call lstOutput.AddItem("TimeSerial(13,0,90): " & _
                          TimeSerial(13, 0, 90))
   Call lstOutput.AddItem("TimeSerial(0,90,0): " & _
                          TimeSerial(0, 90, 0))
   Call lstOutput.AddItem("3:33PM as a Time is: " & _
                          TimeValue("3:33PM"))
   Call lstOutput.AddItem("15:33 as a Time is: " & _
                          TimeValue("15:33"))
End Sub