精华内容
下载资源
问答
  • VB时间控件

    2016-07-21 12:00:37
    VB时间控件,有年月日的选择,省去话多对时间输入和输出的编程工作
  • 基于V的B时间同步程序源代码,可以让你的电脑同步时间服务器的标准时间,前提是你的电脑必需连入网络,这是一个同步时间的实例,或许在你编程某些软件的时候有用处!
  • 内容索引:VB源码,界面编程,窗体,提示 这个小程序界面很漂亮,主要是操作时间函数,关机提示、护眼提示、软件盘提示与闪盘提示、开机时长提示等,支持开机动画 ,在任务栏添加图标、支持窗体透明度适时设置、支持...
  • VB时间函数(VB6)

    千次阅读 2017-06-14 01:52:57
    VB6 常用的时间函数以及计算方法 Now 获取系统当前时间(包括日期) Time 获取系统当前时间 用于计时,Time 函数不是很精确,可以用API函数 GetTickCount() 截取日期的一部分: year(T) 年份 month(T) ...

    VB6 常用的时间函数以及计算方法

    Now 获取系统当前时间(包括日期)

    Time 获取系统当前时间

    用于计时,Time 函数不是很精确,可以用API函数 GetTickCount()


    截取日期的一部分:
    year(T) 年份
    month(T) 月份
    day(T) 日
    DatePart(datepart,T) 获取指定部分

    datepart 取值(字符串,比如:"yyyy"):
    y 一年中的天数
    yyyy 年份
    m 月
    w 星期中的天,默认以星期天为第一天,数值1
    ww 周
    q 季度
    d 一月中的天数
    h 时
    n 分
    s 秒

    时间计算函数
    时间加减
    DateAdd(datepart,number,date) 
    number 是负数则是减去
    如何计算2月份最后一天是几号?用3月1号减去一天:
    DataAdd("d",-1,"2017-3-1")

    计算两个日期的差值
    DateDiff(datepart,date1,date2) 结果是date2-date1,负数表示date2比date1更小(日期更早)

    格式化函数
    Format(date,dateformat)
    dateformat 参考 datepart,可以自由组合,比如"yyyy-mm"显示年月,"hh:mm"显示时分。分隔符横线和冒号可以自己指定,比如:
    Format(now,"yyyy年mm月dd日")
    显示的效果可能是(和操作系统设置有关):2011年11月04日
    展开全文
  • VB时间格式详细说明

    2011-04-15 09:50:44
    VB时间格式VB时间格式VB时间格式VB时间格式VB时间格式VB时间格式VB时间格式VB时间格式
  • VB6.0制作可显示系统时间的窗口状态栏,状态栏属于工具栏的一种,主要用于显示程序运行时的状态以及一些相关的信息,例如,在状态栏中显示登录程序的用户名、显示鼠标的位置。本实例显示系统的当前日期待时间,是VB...
  • VB时间格式大全VB时间格式大全VB时间格式大全VB时间格式大全VB时间格式大全VB时间格式大全
  • VB时间差(如何解决BeginTime没值这个的问题).
  • VB读取系统时间

    2012-10-01 09:22:54
    VB开发的读取系统时间的小程序,分为日期、时间显示。
  • vb时间管理

    2011-09-18 07:48:32
    vb 实现的闹铃程序,主要实现定时闹铃,里面用了,api函数,希望对大家有帮助
  • VB 时间提醒器

    2013-05-17 14:32:15
    一些不得不去的网站都有累计在线时间,还会下贱地检测用户是否在线,比如要求十分钟输入验证码一次,十分无奈!用VB写的一个粗略的时间提醒器。
  • 这个对学VB的绝对有用 是一个时间管理程序的课程设计 完整论文 通过老师检查的
  • vb 时间显示器 源代码 简单程序窗口
  • 自已写的一个VB时间控件源码(OCX) 自已写的一个VB时间控件源码(OCX)
  • VB 时间处理 日期处理函数

    万次阅读 2012-01-10 10:45:26
    VB中的时间处理问题  http://www.cnblogs.com/mitang/archive/2010/10/19/1855239.html 1-----------定义日期 dim dat as date dat=#10:10:10# dat=#2012/12/12 10:10:10# 2----------日期组合 ...

    VB中的时间处理问题 
    http://www.cnblogs.com/mitang/archive/2010/10/19/1855239.html

    1-----------定义日期

    dim dat as date

    dat=#10:10:10#

    dat=#2012/12/12 10:10:10#

    2----------日期组合

    dat = DateSerial(1999, 5, 23) + TimeSerial(11, 45, 34)

    dat= DateValue(“1999/ 5/ 23”) + TimeValue(“11: 45: 34”)

    3-----------日期相加

    DateAdd(interval, number, date)

    4-------------日期相减

    datadiff("n",#10:10:10#,#11:11:11#)


    Dim d1, startdate, enddate, buf As Date
    X_BASE_TIME =DateValue(DTPicker1.Value) + TimeValue(Combo3.Text & ":" & Combo2.Text & ":00")
    startdate = Format$(X_BASE_TIME, "yyyy/mm/dd hh:mm:ss")
    d1 = DateAdd("n", 5, X_BASE_TIME)
    buf = Format$(d1, "yyyy/mm/dd hh:nn:ss")
    'd1 = X_BASE_TIME + TimeValue("00:05:00")
    enddate = Format$(buf, "yyyy/mm/dd hh:nn:ss")


    函数名
    函数功能
    语法结构

    DATE 函数
    返回包含系统日期的VARIANT(DATE) 。
    DATE

    DATEADD函数
    返回包含一个日期的VARIANT(DATE) ,这个日期还加上了一段时间间隔。
    DateAdd(interval,number,date)

    DateDiff函数
    返回Variant(Long)的值,表示两个指定日期间的时间间隔数目。
    DateDiff (interval,date1,date2,firstdayofweek [,firstweekofyear])

    DatePart函数
    返回一个包含已知日期的指定时间部分的Variant(Integer)
    DatePart(interval,date[,firstdayofweek][,firstweekofyear ] )

    DateSerial函数
    返回包含指定的年月日的Variant(Date)
    DateSerial( year ,month ,day )

    DateValue函数
    返回一个Variant(Date)
    DateValue(Date)

    Day函数
    返回一个Variant(Integer) ,其值为1到31之间的整数,表示一个月中的某一日
    Day(Date)

    Hour函数
    返回一个Variant(Integer) ,其值为0到23之间的整数,表示一天之中的某一个钟点
    Hour(time)

    Minute函数
    返回一个Variant(Integer) ,其值为0到59之间的整数,表示一个小时中的某一分钟
    Minute(time

    Now函数
    返回一个Variant(Date) ,根据计算机系统设置的日期和时间来指定日期和时间
    Now

    Second函数
    返回一个Variant(Integer) ,其值为0到59之间的整数,表示一分钟之内的某一秒钟
    Second(time)

    Time函数
    返回一个指明当前系统时间的Variant(Date)
    Time

    Time语句
    设置系统时间
    Time = time

    Timer函数
    返回一个Single,代表从午夜开始到现在所经过的秒数
    Timer

    TimeSerial函数
    数 返回一个Variant(Date) ,包含具有现在时、分、秒的时间。
    TimeSerial(hour,minute,second)

    TimeValue函数
    返回一个包含时间的Variant(Date)
    TimeValue(time)

    Weekday函数
    返回一个Variant(Integer) ,包含一个整数,代表某个日期是星期几
    Weekday(date[,firstdayofweek])

    Year函数
    返回一个Variant(Integer) ,包含表示年份的整数
    Year(Date)




      编程中常常会与时间打交道,VB编程自然也不例外。以下就谈谈我在这方面的一点经验。

      VB中提供了很多变量类型,DATE型就是专门用了存储时间的。

       1、DATE型变量及其相关函数。

      在内部,一个Date占8个字节的内存,你可以方便地用它来存储日期和时间。给Date变量赋值是很容易的。但请保证输入顺序与系统默认的时间表示顺序相同。例如:

      Dim d As Date

      d = #5/23/99 11:45:34 AM#

      DateSerial函数可以把年、月、日的数字组合成一个Date值。

      TimeSerial函数可把小时、分、秒的数字组合成一个Date值。

      

      且两函数可以叠加。
      d = DateSerial(1999, 5, 23) + TimeSerial(11, 45, 34)

      而DateValue 和TimeValue 函数则可将代表日期和时间的字符串转化为Date型,并且也可以叠加。
      d = DateValue(“1999/ 5/ 23”) + TimeValue(“11: 45: 34”)

      Format函数可按预定的格式显示或打印一个Date变量。如:

      Print Format(d, “general date”) `99-5-23 11:45:34

      Print Format(d, “long date”) `1999年5月23日

      Print Format(d, “medium date”) `99-05-23

      Print Format(d, “short date”) `99-5-23

      Print Format(d, “long time”) `11:45:34

      Print Format(d, “medium time”) `11:45 AM

      Print Format(d,“short time”) `11:45

      Format函数也允许你自己规定显示格式。如:

      Print Format(d, “mmmm”) `may 产生日期中月份的英文

      以以上日期为例,如想显示其中的一部分信息可使用以下函数:

      Print Month(d) `5

      Print Day(d) `23

      Print Year(d) `1999

      Print Hour(d) `11

      Print Minute(d) `45

      Print Second(d) `34

      Print WeekDay(d)`1 

      Weekday 提供了一组内部常量,vbSunday代表1,直到 vbSaturday代表7。

      Now 函数可返回今天的日期及时间。如:

      Private Sub Form_Click()

      Dim d As Date

      d = Now

      Print d

      End Sub

      灵活地应用以上的函数,可以大大地简化你的程序。例如想计算10000秒
    等于几小时几分几秒可写为:

      Private Sub Form_Click()

      Dim d As Date

      d = TimeSerial(0, 0, 10000)

      Print d

      End Sub

       结果为2:46:40。

      2、与时间相关的常用控件。

      Timer控件是一个奇特的控件。Timer 控件会在固定时间间隔中运行Timer事件。
    此间隔是由Interval属性决定的,其单位为千分之一秒。但不要以为将其值设为0
    事件就可不间断地运行了。结果恰恰相反,事件将一次也不运行。同时还要注意变
    量的声明。如:

      Private Sub Timer1_Timer()

      Dim a As Integer

      a = a + 1

      Print a

      End Sub

      

      Dim a As Integer

      Private Sub Timer1_Timer()

      a = a + 1

      Print a

      End Sub

      试试看,其结果是完全不同的。

      当需要用户输入时间时,为避免出现错误的时间,可以使用日历控件。它只允许
    用户在日历表中选择日期,避免了错误的发生。

      3、记录时间的API函数。

      GetTickCount Windows API函数可返回 Windows 启动以来消失的毫秒数。其精度
    高于VB的Timer 函数。且Timer 函数会在午夜清零,而GetTickCount 函数只有当机器
    连续使用49.7天后才返回零。这为我们编程提供了很大的方便。例如想知道你的电脑
    连续工作多久了,可新建一工程,然后添加以下代码:

      Private Declare Function GetTickCount Lib “kernel32" () As Long

      Private Sub Form_Load()

      Dim d As Date

      Dim t As Integer

      Form1.Show

      t = GetTickCount \ 1000

      d = TimeSerial(0, 0, t)

      Print d

      End Sub

    -------------------------------------------------------

     

      CDate()函数将得到地时间字符串进行转换为date类型地值,然后在插入到数据库中,开端在一台电脑上运行并没有错。转换的结果与电脑中时间的格式设置有关

    系统设置相关开端——〉设置——〉掌握面板——〉区域和语言选项——〉区域选项——〉自定义——〉时间(日期)

      可用进行二次转换:format(cdate(),"YYYY-MM-DDHH:MM:SS")


    \




    1.Cdate(日期表达式)
    将日期表达式转换成日期类型的数据。
    日期表达式是任何可以解释成日期的表达式,包含日期文字,可以看作日期的字符串以及从函数返回的日期。
    比如:myDate CDate("99-5-20")    ,这样的日期表达式必须加双引号,否则结果不可预料。
    CDate 依据系统上的区域设置来决定日期的格式。如果提供的格式为不可识别的日期设置,则不能正确判断年、月、日的顺序。

     

    2.Now()
    返回当前计算机系统设置的日期和时间。

    3.Year(日期表达式)
    返回表示年份的整数。
    比如:Year("00-6-15") 2000

    4.Month(日期表达式)
    返回 到 12 之间的整数,表示一年中的某月。
    比如:Month("00-6-15") 6

    5.DateAdd(interval, number, date)
    返回一个日期,这一日期加上了一段时间间隔。可以用 DateAdd 来计算距今天为三十天的日期;或者计算距现在为 45 分钟的时间。

    DataAdd 函数参数 参数 说明 

    interval 字符串表达式,是所要加上去的时间间隔的单位。 
    number 数值表达式,是要加上的时间间隔的数目。其数值可以为正数(得到未来的日期),也可以为负数(得到过去的日期)。 
    date 日期表达式,这一日期还加上了时间间隔。 


    interval 参数设定值 值 说明 
    yyyy 年 
    季 
    月 
    一年的日数 
    日 
    一周的日数 
    ww 周 
    时 
    分钟 
    秒 

    比如:
    DateAdd("d",10,"2000-6-18") 2000-06-28
    DateAdd("m",-1,"2000-6-18") 2000-05-18

    ==========================DateDiff 函数解释==========================
    DateDiff (I , D1 , D2[,FW[,FY]])
    计算两个日期之间的期间?
    I :设定两个日期之间的期间计算之单位。譬如 >I="m" 表示计算的单位为月。 >I 的设定值如:
    yyyy > Year 年
    q Quarter 季
    m Month 月
    d Day 日
    w Weekday 星期
    h Hour 时
    n Minute 分       ·[这里应该用n代表,很多书说m其实是错的]·
    s Second 秒
    D1 ,D2:计算期间的两个日期表达式,若 >date1 较早,则两个日期之间的期间结果为正值;若 >date2 较早, 则结果为负值。
    FW :设定每周第一天为星期几, 若未设定表示为星期天。 >FW 的设定值如下:
    0 使用 >API 的设定值。
    1 星期天
    2 星期一
    3 星期二
    4 星期三
    5 星期四
    6 星期五
    7 星期六
    FY :设定一年的第一周, 若未设定则表示一月一日那一周为一年的第一周。 >FY 的设定值如下:
    0 使用 >API 的设定值。
    1 一月一日那一周为一年的第一周
    2 至少包括四天的第一周为一年的第一周
    3 包括七天的第一周为一年的第一周


    展开全文
  • VB 读取文件的创建时间、修改时间、存取时间
  • VB6.0制作日期时间表,从演示来看,只是获取Windows时间和日期,没有看到时间表啊,难道是我操作的不对么?以下是代码:  Timer1.Enabled = True '开启计时器  End Sub  Private Sub Command2_Click()  Timer1....
  • Vb获取文件的创建时间和修改时间,一个读取文件属性相关的程序,这里读取的是时间属性,包括文件创建的时间和修改的时间
  • VB编写的时间校正软件; 想要源码的联系我ganghongyi@126.com
  • 用于网络中不同计算机之间的时间同步,使用的Net Time命令。可以保存上次的配置(相比前两版,修改了密码加密策略,使用户的密码更加安全,而且是VB6.0开发的,不需要额外的.Net环境,解压后可以直接运行)。
  • IFIX开发中用到的VB时间控件,用于做报表
  • vb6.0 修改 文件创建时间 文件访问时间 文件修改时间; 支持批量修改; 源码工程,已通过测试;
  • vb6获取毫秒级的时间

    2009-08-03 15:36:30
    vb6 获取毫秒级的时间,exe文件的属性中概要的备注栏填入未来的某个时间,就会自动启动倒计时程序
  • 遇到了一个VB显示时间的问题,需要用是24小时制的当前时间,用法记录如下: Dim dateTimeNow As String dateTimeNow = Format(Now(), "yyyy-MM-dd-HH") 比如现在是2020年7月4日19时,得到的dateTimeNow 就是: 2020...

    遇到了一个VB显示时间的问题,需要用是24小时制的当前时间,用法记录如下:

    Dim dateTimeNow As String
    dateTimeNow = Format(Now(), "yyyy-MM-dd-HH")
    

    比如现在是2020年7月4日19时,得到的dateTimeNow 就是:

    2020-07-04-19
    

    网上许多资料说用"yyyy-mm-dd-hh",小写的mm和hh,但是我这么用的话得到的是:

    2020-10-04-07
    

    得到的月份很奇怪,小时显示的是12小时制。咱也不知道是啥问题,咱只知道用大写的MMHH就对了!

    展开全文
  • 几种获取系统时间函数源码,方便各大家参考,。。。。。。。。。。。。。
  • VB源码电脑时间校准

    2010-03-24 18:28:46
    自己用VB制作的internet 时间同步软件 可自动校准你电脑的时间。(为VB源代码)
  • vb6.0更改文件日期时间
  • VB中实时时间

    2019-01-29 11:31:14
    另外实时时间,可以在VB窗体中添加label1标签控件,然后再编写程序 Private Sub Timer1_Timer() Label1.Caption = Time$ End Sub

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 91,723
精华内容 36,689
关键字:

vb时间