MARK
If e.sender.value <> Nothing Then
Dim d As Date = e.sender.value
e.Form.Controls("TextBox1").value = d.year '年
e.Form.Controls("TextBox2").value = d.month '月
e.Form.Controls("TextBox3").value = d.Day '日
e.Form.Controls("TextBox4").value = Math.Ceiling(d.Month/3) '季
End If
'Dim d As Date = #10/20/2021#
'Dim d As Date = Date.NOW
'
'Output.Show("年:" & d.Year)
'Output.Show("季:" & Math.Ceiling(d.Month/3))
'Output.Show("月:" & d.Month)
'Output.Show("日:" & d.Day)
'
'Output.Show("星期:" & d.DayOfWeek)
'Output.Show("星期" & "日一二三四五六".Chars(d.DayOfWeek))
'Output.Show("一年第:" & d.DayOfYear & "天")
'
'Output.Show("时:" & d.Hour )
'Output.Show("分:" & d.Minute)
'Output.Show("秒:" & d.Second)
加好友 
发短信
Post By：2021/8/20 10:33:00 [显示全部帖子]
