\ \ \' has the following controls on the form:
\\\'picDate，picturebox
\ \' lbld (0 to 34), labels, 7 in each line, 5 lines in total.
\\\'Shape 1
There are other title controls, you can arrange them yourself!
Child Add Date ()
Dim R and intWekV are integers.
Dimstrwekvas a string.
For R = 0 to 34
lblD(R)。 Title = ""
lblD(R)。 BackColor = vbWhite
then
\\\'Shape 1。 Visible = false
Mark qaa as an integer
Mark t and d as integers.
Mark e as a date.
e = DateSerial(YearV，MonthV， 1)
qaa = DatePart("w "，e)
\ \ \ ' e = " 1 " & amp； “-”& amp； CStr(str moto(MonthV))& amp； “-”& amp； YearV
\\\'qaa = DatePart("w "，CDate(e))
t = qaa - 1
for d = 1 To Day(DateSerial(YearV，MonthV + 1， 1) - 1)
If t & gt34, then t = 0.
lblD(t)。 Title = d
lblD(t)。 Enabled = true
If t = 0 or t = 7 or t = 14 or t = 2 1 or t = 28 or t = 6 or t = 13 or t = 20 or t = 27 or t = 34, then lblD(t). ForeColor = & ampHFF & amp；
If d = day (now), MonthV = month (now) and YearV = year (now), then
Shape 1。 Visible = true
Shape 1。 Move lblD(t). Left-230, lblD(t). Top 60,550,305
intWekV = t Mod 7
Select case intWekV
Case 0
StrWekV = "Sunday "
Case 1
StrWekV = "Monday"
Case 2
StrWekV = "Tuesday"
Case 3
StrWekV = "Wednesday"
Case 4
StrWekV = "Thursday"
Case 5
StrWekV = "Friday"
Case 6
StrWekV = "Saturday"
End selection
\\\' txtRemarkDate( 1)。 Text = year (now)&"year"&; Month (now) and. "Month"&; Day (present) and time; "God,"&; strWekV
If ... it will be over.
t = t + 1
then
Today. caption = " Today:" &； Year (now) and. “-”& amp； Month (now) and. “-”& amp； Day (present) and time; " "
For t = 0 to 34
If lblD(t). Caption = ""Then lblD(t). Enabled = False
then
End joint