VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Activate()
   Dim MyTime As Date, MyDate As Date
   FontSize = 12
   Rem 显示系统当前日期和时间
   Print Format(Now, "yyyy年mm月dd日  hh小时mm分钟ss秒")
   Print Format(Now, "yy年m月d日  h小时m分钟s秒")
   Print Format(Now, "ddddd,dddd,mmmm,dd,yyyy  hh:mm")
   Rem 以系统预定义的格式显示系统当前日期
   Print Format(Date, "ddddd,ddd,mmm,dd,yyyy")
   MyTime = #5:06:08 PM#
   MyDate = #4/25/2003#
   Rem 显示日期MyTimeMyDate
   Print Format(MyDate, "mm/dd/yyyy")
   Print Format(MyDate, "m-d-yy")
   Print Format(MyDate, "mmmm/dddd/yyyy")
   Print Format(MyDate, "ddddd")
   Rem 显示时间MyTime
   Print Format(MyTime, "h-m-sAM/PM")
   Print Format(MyTime, "hh:mm:ssA/P")
   Print Format(MyTime, "h小时m分钟s秒AM/PM")
   Print Format(MyTime, "hh小时:mm分钟:ss秒A/P")
End Sub
