📄 code235b.txt

📁 VB大全（精华版）源代码

💻 TXT

字号:

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -