万年历.rar procedure TFRM_Date.DateChange(MyTime: TDateTime); var i, S: integer; StarNo: integer; Present: TDateTime; Year, Month, Day: Word; begin Label20.Capti Delphi 19 次浏览 2024-08-01
简单万年历 采用vb im d As Integer Dim vHour%, vState$ Dim Tim As String, b As Long, H As Integer, M As Integer, S As Long Private Sub Command1_Click() S = fun(Mont VB 20 次浏览 2024-09-21