windows中得时间和日期界面是怎做的
windows中得时间和日期界面是怎做的 --------------------编程问答-------------------- 那个窗口很普通啊,没什么特别的啊,最普通的窗口,怎么会问怎么做的呢? --------------------编程问答-------------------- 是得到当前时间吗?添加个LABEL控件,添加如下代码就行了label1.text=System.DateTime.Now--------------------编程问答-------------------- 这个只有时间没有日期
Label1.Text = My.Computer.Clock.LocalTime--------------------编程问答-------------------- 假如说23:20:14 这样的时间怎么显示 然后让它自己跳动起来呢 --------------------编程问答--------------------
使用Timer来更新当前时间 --------------------编程问答-------------------- 同意5楼。 你可以查一下TIMER控件的用法。查完之后就可以实现了! --------------------编程问答--------------------
Debug.WriteLine(Now()) '显示当前日期和时间
Debug.WriteLine(Year(Now())) '显示当前年份
Debug.WriteLine(Month(Now()))'显示当前月份
Debug.WriteLine(Microsoft.VisualBasic.Day(Now()))'显示当前天
Debug.WriteLine(Weekday(Now())) '显示当前星期对应的数字,1表示周日
Debug.WriteLine(Hour(Now())) '显示当前几时
Debug.WriteLine(Minute(Now())) '显示当前几分
Debug.WriteLine(Second(Now())) '显示当前几秒
'----------------------------------------------------------------------------- Debug.WriteLine(DateTime.Today())'返回当前日期
Debug.WriteLine(DateTime.Today.Year()) '返回当前年份
Debug.WriteLine(DateTime.Today.Month()) '返回当前月份
Debug.WriteLine(DateTime.Today.Day()) '返回当前日
Debug.WriteLine(DateTime.Now.DayOfWeek()) '返回当前星期几(英文星期)
Debug.WriteLine(DateTime.Now.DayOfYear()) '返回当年第多少天
Debug.WriteLine(DateTime.Now.Hour())'返回当前几时
Debug.WriteLine(DateTime.Now.Minute()) '返回当前几分
Debug.WriteLine(DateTime.Now.Second()) '返回当前几秒
Debug.WriteLine(DateTime.Now.AddYears(1)) '当前年加1
Debug.WriteLine(DateTime.Now.AddMonths(1)) '当前月加1
Debug.WriteLine(DateTime.Now.AddDays(1)) '当前日期时间加1
Debug.WriteLine(DateTime.Now.AddHours(1)) '当前小时加1
Debug.WriteLine(DateTime.Now.AddMinutes(1)) '当前分加1
Debug.WriteLine(DateTime.Now.AddSeconds(1)) '当前秒加1
'----------------------------------------------------------------------------- Dim dtval As Date
dtval = #3/2/2011#
dtval = DateSerial(dtval.Year() + 5, dtval.Month() - 1, dtval.Day() + 6)
Debug.WriteLine(dtval)'年月日加减(年份相加,月份相减,日相加)
'---------------------------------------------------------------------------- Dim xx As Integer
Dim aa As Date
aa = #10/1/2011 11:10:11 AM#
Dim bb As Date
bb = #12/2/2011 1:20:15 PM#
xx = DateDiff(DateInterval.Day, aa, bb)
Debug.WriteLine(xx) '计算日期或时间间隔,后面日期bb减前面日期aa为正数(62天)
'---------------------------------------------------------------------------- Debug.WriteLine(Format(Now(), "mm/dd/yyyy h:m:s")) '格式化日期
Debug.WriteLine(Format(Now(), "h:m:s")) '格式化日期
Debug.WriteLine(Format(Now(), "dddd,mm/dd/yyyy h:m:s")) '格式化日期
补充:.NET技术 , VB.NET