VB显示当前时间的程序

VB显示当前时间的程序,第1张

加入以下代码:

Private Sub Form_Load()

Text1.Text = Now

Timer1.Enabled = True

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Text1.Text = Now

End Sub

扩展资料:

VB获取系统当前时间并格式化输出

用到的函数:

Date函数:返回系统的日期

Now函数:返回系统的日期和时间

Format函数:根据格式表达式来格式化数据

实例:

Private Sub Form_Load()

'设置同步时间显示

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Label2.Caption = Format(Now, "hh:mm:ss")            '获取当前时间

Label4.Caption = Format(Now, "yyyy-mm-dd")          '获取当前日期

Label6.Caption = Format(Now, "yyyy-mm-dd hh:mm:ss") '日期和时间

End Sub

代码如下:

<%@ page language="java"

contentType = "text/htmlcharset=UTF-8"

   pageEncoding = "UTF-8"%>

   <%@ page import ="java.util.Calendar" %>

<!DOCTYPE html>

<html>

<head>

 <meta charset = "ISO-8859-1">

 <title>Insert title here</title>

</head>

<body>

  <%

   Calendar c = Calendar.getInstance()

   int year = c.get(Calendar.YEAR)

   int month = c.get(Calendar.MONTH) + 1

   int date = c.get(Calendar.DATE)

   int hour = c.get(Calendar.HOUR_OF_DAY)

   int minute = c.get(Calendar.MINUTE)

   int second = c.get(Calendar.SECOND)

   String str = ""

   if(hour >= 0 &&hour <=11){

          str = "上午好!"

   }

   else if(hour >=11 &&hour <= 13){

          str = "中午好!"

   }

   else if(hour >=13 &&hour <=18){

          str = "下午好!"

   }

   else if(hour >= 18 &&hour <=24){

          str = "晚上好!"

   }

   %>

   <table BORDER = "1" align ="center">

   <tr align ="center"><td>现在时间为:<%=year %>-<%=month %>-<%=date %>-<%=hour %>-<%=minute %>-<%=second %></td></tr>

   <tr align = "center"><td><%=str %></td></tr>

   </table>

</body>

</html>

扩展资料

JSP生命周期就是从创建到销毁的整个过程,类似于servlet生命周期,区别在于JSP生命周期还包括将JSP文件编译成servlet。

以下是JSP生命周期中所走过的几个阶段

1、编译阶段:servlet容器编译servlet源文件,生成servlet类。

2、初始化阶段:加载与JSP对应的servlet类,创建其实例,并调用它的初始化方法。

3、执行阶段:调用与JSP对应的servlet实例的服务方法。

4、销毁阶段:调用与JSP对应的servlet实例的销毁方法,然后销毁servlet实例。

很明显,JSP生命周期的四个主要阶段和servlet生命周期非常相似。

VB显示系统时间的代码如下:

text1.text="今天是" &Format$(Now,"Long Date")

text2.text=Format$(Now,"dddd")

text3.text=Format$(Now,"Long Time")

Visual Basic是一种由 Microsoft 公司开发的结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。


欢迎分享,转载请注明来源:内存溢出

原文地址: https://outofmemory.cn/yw/11504631.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-16
下一篇 2023-05-16

发表评论

登录后才能评论

评论列表(0条)

保存