code235b.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 17 行

Type My_Date
  Year As Integer
  Day As Integer
  Month As String
End Type

Public Sub Main()
  Dim CurrentDate As My_Date

  CurrentDate.Year = Val(Format(Date, "yyyy"))  
  CurrentDate.Day = Val(Format(Date, "d"))
  CurrentDate.Month = Format(Date, "mmm")
  Debug.Print CurrentDate.Month
  Debug.Print CurrentDate.Day
  Debug.Print CurrentDate.Year
End Sub