精华内容
下载资源
问答
  • VB 制作日期时间

    2010-06-07 13:22:40
    VB 制作日期时间VB 制作日期时间VB 制作日期时间
  • vb6.0 时间日期

    2015-04-11 15:20:00
    使用year(now)可以得到4位数的年 你还可以用Format来得到, 还有FormatDateTime 下面两种都是一样的结果:...下面是第二个参数相关的说明 vbGeneralDate 0 显示日期和/或时间。如果有日期部分,则用...

    使用year(now)可以得到4位数的年  
      你还可以用Format来得到,

      还有FormatDateTime  

     

     下面两种都是一样的结果:
      FormatDateTime(now,vbLongDate)

      FormatDateTime(now,1)   


      下面是第二个参数相关的说明  
      vbGeneralDate   0   显示日期和/或时间。如果有日期部分,则用短日期格式显示。如果有时间部分,则用长时间格式显示。如果都有,两部分都显示。    
      vbLongDate   1   用计算机区域设置值中指定的长日期格式显示日期。    
      vbShortDate   2   用计算机区域设置值中指定的短日期格式显示日期。    
      vbLongTime   3   用计算机区域设置值中指定的时间格式显示时间。    
      vbShortTime   4   用24小时格式(hh:mm)显示时间。

    转载于:https://www.cnblogs.com/zanglaowei/p/4417788.html

    展开全文
  • vb6.0更改文件日期时间
  •  在VB.NET中可以用几种方法组合一个日期/时间值。列表A说明了几种实现相同功能的方法。  ◆第一个消息框将显示:dtDate1: 1/2/2007 12:00:00 A.M.  ◆第二个消息框将显示:dtDate2: 1/2/2007 12:00:00 A.M. ...
  • VB 日期时间函数

    千次阅读 2013-12-05 17:02:49
    日期表达式是任何可以解释成日期的表达式,包含日期文字,可以看作日期的字符串以及从函数返回的日期。 比如:myDate = CDate("99-5-20") ,这样的日期表达式必须加双引号,否则结果不可预料。 CDate 依据系统上的...
    1.date(日期表达式)

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

    2.Now()

    返回当前计算机系统设置的日期和时间。

    3.Year(日期表达式)

    返回表示年份的整数。
    比如:Year("00-6-15") = 2000

    4.Month(日期表达式)

    返回 1 到 12 之间的整数,表示一年中的某月。
    比如:Month("00-6-15") = 6

    5.DateAdd(interval, number, date)

    返回一个日期,这一日期加上了一段时间间隔。可以用 DateAdd 来计算距今天为三十天的日期;或者计算距现在为 45 分钟的时间。
    DataAdd 函数参数 参数 说明
    interval 字符串表达式,是所要加上去的时间间隔的单位。 
    number 数值表达式,是要加上的时间间隔的数目。其数值可以为正数(得到未来的日期),也可以为负数(得到过去的日期)。 
    date 日期表达式,这一日期还加上了时间间隔。

    interval 参数设定值 值 说明 
    yyyy 年 
    q 季 
    m 月 
    y 一年的日数 
    d 日 
    w 一周的日数 
    ww 周 
    h 时 
    n 分钟 
    s 秒
    比如:
    DateAdd("d",10,"2000-6-18") = 2000-06-28
    DateAdd("m",-1,"2000-6-18") = 2000-05-18

    VB 日期时间函数

    1. Year(X),Month(X),Day(X):取出年,月,日

    [格式]:
    P=Year(X)  取出X"年"部分的数值
    P=Month(X) 取出X"月"部分的数值
    P=Day(X)  取出X"日"部分的数值
    [说明]:Year返回的是公元年,若X里只有时间,没有日期,则日期视为#1899/12/30#

    2. Hour,Minute,Second函数:取出时,分,或秒

    [格式]:
    P=Hour(X)  取出X"时"部分的数值
    P=Minute(X) 取出X"分"部分的数值
    P=Second(X) 取出X"秒"部分的数值
    [说明]:Hour的返回值是0---23之间
    [范例]:
    X=10:34:23
    P=Hour(X)
    Q=Minute(X)
    R=Second(X)
    则输出结果:P=10,Q=34,R=23

    3. DateSerial函数:合并年,月,日成为日期

    [格式]:DateSerial(Y,M,D) 其中Y是年份,M为月份,D为日期
    [说明]:
    (1) M值若大于12,则月份从12月起向后推算M-12个月;若小于1,则月份从1月起向后推算1-M个月。
    (2) 若日期D大于当月的日数,则日期从当月的日数起,向后推算D-当月日数;若小于1,则日期从1日起向前推算1-D日。
    [范例]:
    P=DateSerial(2000,02,02)
    则结果为P=2000/02/02

    4.TimeSerial函数:合并时,分,秒成为时间

    [格式]:P=TimeSerial(H,M,S) 其中H为小时数,M为分钟数,S为秒数
    [说明]:推算原理同上面的DateSerial
    [范例]:
    P=TimeSerial(6,32,45) 结果为:P=6:32:45

    5.Date,Time,Now函数:读取系统的日期时间

    [格式]:
    P=Date()
    P=Time()
    P=Now()
    [说明]:这三个函数都无参数
    [范例]:若当前时间为2003年8月29日晚上19点26分45秒,则
    P=Now() 结果为:P=2003-08-29 19:26:45 
    展开全文
  • VB.Net - 日期时间

    千次阅读 2018-03-01 09:54:42
    VB.Net - 日期时间你写的大部分软件都需要实现某种形式的日期功能,返回当前日期时间日期是日常生活的一部分,使用它能让工作变得轻松,不需要太多思考。 VB.Net还提供了强大的日期算术工具,使操作日期变得...

    VB.Net - 日期和时间

    你写的大部分软件都需要实现某种形式的日期功能,返回当前日期和时间。日期是日常生活的一部分,使用它能让工作变得轻松,不需要太多思考。 VB.Net还提供了强大的日期算术工具,使操作日期变得容易。


    日期数据类型包含日期值,时间值或日期和时间值。 Date的默认值为0001年1月1日的0:00:00(午夜)。等效的.NET数据类型为System.DateTime。


    DateTime 结构表示即时时间通常表示日期时间一天

    'Declaration
    <SerializableAttribute> _
    Public Structure DateTime _
    	Implements IComparable, IFormattable, IConvertible, ISerializable,  
    	IComparable(Of DateTime), IEquatable(Of DateTime)

    您还可以从DateAndTime类获取当前日期和时间。


    DateAndTime模块包含日期和时间操作中使用的过程和属性。

    'Declaration
    <StandardModuleAttribute> _
    Public NotInheritable Class DateAndTime
    

    注意:

    DateTime结构和DateAndTime模块都包含诸如Now和Today之类的属性,因此初学者经常会感到困惑。 DateAndTime类属于Microsoft.VisualBasic命名空间,DateTime结构属于System命名空间。


    因此,使用以后的将帮助你移植你的代码到另一个.Net语言,如C#。 但是,DateAndTime类/模块包含Visual Basic中所有可用的旧日期函数。

    DateTime结构的属性和方法

    下表列出了一些DateTime结构的常用属性 :

    S.N属性描述
    1DateGets the date component of this instance.
    获取此实例的日期组件。
    2DayGets the day of the month represented by this instance.
    获取此实例所代表的月份中的某一天。
    3DayOfWeekGets the day of the week represented by this instance.
    获取此实例表示的星期几。
    4DayOfYearGets the day of the year represented by this instance.
    获取此实例表示的一年中的某一天。
    5HourGets the hour component of the date represented by this instance.
    获取此实例表示的日期的小时组件。
    6KindGets a value that indicates whether the time represented by this instance is based on local time, Coordinated Universal Time (UTC), or neither.G
    获取一个值,该值指示此实例表示的时间是基于本地时间,协调世界时间(UTC)还是两者都不是。
    7MillisecondGets the milliseconds component of the date represented by this instance.
    获取此实例表示的日期的毫秒组件。
    8MinuteGets the minute component of the date represented by this instance.
    获取此实例表示的日期的分钟分量。
    9MonthGets the month component of the date represented by this instance.
    获取此实例表示的日期的月份。
    10NowGets a DateTime object that is set to the current date and time on this computer, expressed as the local time.
    获取在此计算机上设置为当前日期和时间的DateTime对象,以本地时间表示。
    11SecondGets the seconds component of the date represented by this instance.
    获取此实例表示的日期的秒组件。
    12TicksGets the number of ticks that represent the date and time of this instance.
    获取表示此实例的日期和时间的刻度数。
    13TimeOfDayGets the time of day for this instance.
    获取此实例的时间。
    14TodayGets the current date.
    获取当前日期。
    15UtcNowGets a DateTime object that is set to the current date and time on this computer, expressed as the Coordinated Universal Time (UTC).
    获取设置为此计算机上当前日期和时间的DateTime对象,以协调世界时(UTC)表示。
    16YearGets the year component of the date represented by this instance.
    获取此实例表示的日期的年份组件。

    下表列出了DateTime结构的一些常用方法:

    SN方法名称和说明
    1

    Public Function Add (value As TimeSpan) As DateTime
    公共函数Add(值作为时间跨度)As DateTime

    返回一个新的DateTime,将指定的TimeSpan的值添加到此实例的值。

    2

    Public Function AddDays ( value As Double) As DateTime
    公共函数AddDays(值为双)As DateTime

    返回一个新的DateTime,该值将指定的天数添加到此实例的值中。

    3

    Public Function AddHours (value As Double) As DateTime
    公共函数AddHours(值为双)As DateTime

    返回一个新的DateTime,该值将指定的小时数添加到此实例的值中。

    4

    Public Function AddMinutes (value As Double) As DateTime
    公共函数AddMinutes(值为双)As DateTime

    返回一个新的DateTime,将指定的分钟数添加到此实例的值。

    5

    Public Function AddMonths (months As Integer) As DateTime
    公共函数AddMonths(月作为整数)As DateTime

    返回一个新的DateTime,将指定的月数添加到此实例的值。

    6

    Public Function AddSeconds (value As Double) As DateTime
    公共函数AddSeconds(值为双)As DateTime

    返回一个新的DateTime,将指定的秒数添加到此实例的值。

    7

    Public Function AddYears (value As Integer ) As DateTime
    公共函数AddYears(值为整数) As DateTime

    返回一个新的DateTime,将指定的年数添加到此实例的值。

    8

    Public Shared Function Compare (t1 As DateTime,t2 As DateTime) As Integer
    公共共享函数比较(T1作为日期时间,T2为DATETIME)As Integer

    比较两个DateTime实例,并返回一个整数,指示第一个实例是早于,与第二个实例相同还是晚于第二个实例。

    9

    Public Function CompareTo (value As DateTime) As Integer
    公共函数CompareTo(值为DATETIME)As Integer

    将此实例的值与指定的DateTime值进行比较,并返回一个整数,指示此实例是早于,等于还是晚于指定的DateTime值。

    10

    Public Function Equals (value As DateTime) As Boolean
    公共函数等于(值为DATETIME)As Boolean

    返回一个值,表示此实例的值是否等于指定的DateTime实例的值。

    11

    Public Shared Function Equals (t1 As DateTime, t2 As DateTime) As Boolean
    公共共享函数等于(T1作为日期时间,T2为DATETIME) As Boolean

    返回一个值,指示两个DateTime实例是否具有相同的日期和时间值。

    12

    Public Overrides Function ToString As String
    公共覆盖函数ToString  As String

    将当前DateTime对象的值转换为其等效字符串表示形式。

    以上列出的方法并不详尽,请访问微软的文档以获取DateTime结构的方法和属性的完整列表。


    创建DateTime对象

    您可以通过以下方式之一创建DateTime对象:

    • By calling a DateTime constructor from any of the overloaded DateTime constructors.通过从任何重载的DateTime构造函数调用DateTime构造函数。

    • By assigning the DateTime object a date and time value returned by a property or method.
      通过为DateTime对象分配属性或方法返回的日期和时间值。

    • By parsing the string representation of a date and time value.
      通过解析日期和时间值的字符串表示。

    • By calling the DateTime structure's implicit default constructor.
      通过调用DateTime结构的隐式默认构造函数。


    下面的例子说明了这一点:

    Module Module1
       Sub Main()
          'DateTime constructor: parameters year, month, day, hour, min, sec
          Dim date1 As New Date(2012, 12, 16, 12, 0, 0)
          'initializes a new DateTime value
          Dim date2 As Date = #12/16/2012 12:00:52 AM#
          'using properties
          Dim date3 As Date = Date.Now
          Dim date4 As Date = Date.UtcNow
          Dim date5 As Date = Date.Today
          Console.WriteLine(date1)
          Console.WriteLine(date2)
          Console.WriteLine(date3)
          Console.WriteLine(date4)
          Console.WriteLine(date5)
          Console.ReadKey()
       End Sub
    End Module
    


    当上述代码被编译和执行时,它产生了以下结果:

    12/16/2012 12:00:00 PM
    12/16/2012 12:00:52 PM
    12/12/2012 10:22:50 PM
    12/12/2012 12:00:00 PM
    


    获取当前日期和时间:

    以下程序演示如何获取VB.Net中的当前日期和时间:


    当前时间:

    Module dateNtime
       Sub Main()
          Console.Write("Current Time: ")
          Console.WriteLine(Now.ToLongTimeString)
          Console.ReadKey()
       End Sub
    End Module
    


    当上述代码被编译和执行时,它产生了以下结果:

    Current Time: 11 :05 :32 AM
    


    当前日期:

    Module dateNtime
       Sub Main()
          Console.WriteLine("Current Date: ")
          Dim dt As Date = Today
          Console.WriteLine("Today is: {0}", dt)
          Console.ReadKey()
       End Sub
    End Module
    


    当上述代码被编译和执行时,它产生了以下结果:

    Today is: 12/11/2012 12:00:00 AM
    


    格式化日期

    日期字面值应该用哈希符号(##)括起来,并以M / d / yyyy格式指定,例如#12/16/2012#。 否则,您的代码可能会更改,具体取决于运行应用程序的语言环境。

    例如,您为2012年2月6日的日期指定了#2/6/2012#的日期字面值。对于使用mm / dd / yyyy格式的语言环境,这是正确的。 但是,在使用dd / mm / yyyy格式的语言环境中,您的文本将编译为2012年6月2日。如果语言环境使用另一种格式,例如yyyy / mm / dd,该文字将无效并导致编译器错误。

    要将Date字面值转换为语言环境的格式或自定义格式,请使用String类的Format函数,指定预定义或用户定义的日期格式。

    下面的例子演示了这一点。

    Module dateNtime
       Sub Main()
          Console.WriteLine("India Wins Freedom: ")
          Dim independenceDay As New Date(1947, 8, 15, 0, 0, 0)
          ' Use format specifiers to control the date display.
          Console.WriteLine(" Format 'd:' " & independenceDay.ToString("d"))
          Console.WriteLine(" Format 'D:' " & independenceDay.ToString("D"))
          Console.WriteLine(" Format 't:' " & independenceDay.ToString("t"))
          Console.WriteLine(" Format 'T:' " & independenceDay.ToString("T"))
          Console.WriteLine(" Format 'f:' " & independenceDay.ToString("f"))
          Console.WriteLine(" Format 'F:' " & independenceDay.ToString("F"))
          Console.WriteLine(" Format 'g:' " & independenceDay.ToString("g"))
          Console.WriteLine(" Format 'G:' " & independenceDay.ToString("G"))
          Console.WriteLine(" Format 'M:' " & independenceDay.ToString("M"))
          Console.WriteLine(" Format 'R:' " & independenceDay.ToString("R"))
          Console.WriteLine(" Format 'y:' " & independenceDay.ToString("y"))
          Console.ReadKey()
       End Sub
    End Module
    


    当上述代码被编译和执行时,它产生了以下结果:

    India Wins Freedom:
    Format 'd:' 8/15/1947
    Format 'D:' Friday, August 15, 1947
    Format 't:' 12:00 AM
    Format 'T:' 12:00:00 AM
    Format 'f:' Friday, August 15, 1947 12:00 AM
    Format 'F:' Friday, August 15, 1947 12:00:00 AM
    Format 'g:' 8/15/1947 12:00 AM
    Format 'G:' 8/15/1947 12:00:00 AM
    Format 'M:' 8/15/1947 August 15
    Format 'R:' Fri, 15 August 1947 00:00:00 GMT
    Format 'y:' August, 1947
    


    预定义的日期/时间格式

    下表列出了预定义的日期和时间格式名称。 可以通过这些名称用作Format函数的样式参数:

    格式描述
    General Date, or G

    Displays a date and/or time. For example, 1/12/2012 07:07:30 AM

    显示日期和/或时间。 例如,1/12/2012 07:07:30 AM。.

    Long Date,Medium Date, or D

    Displays a date according to your current culture's long date format. For example, Sunday, December 16,2012.

    根据您当前区域的长日期格式显示日期。 例如,2012年12月16日星期日

    Short Date, or d

    Displays a date using your current culture's short date format. For example, 12/12/2012

    使用当前区域短日期格式显示日期。 例如,12/12/2012。.

    Long Time,Medium Time, orT

    Displays a time using your current culture's long time format; typically includes hours, minutes, seconds. For example, 01:07:30 AM

    使用您当前区域的长时间格式显示时间; 通常包括小时,分钟,秒。 例如,01:07:30 AM。.

    Short Time or t

    Displays a time using your current culture's short time format. For example, 11:07 AM

    使用当前区域的短时格式显示时间。 例如,11:07 AM。.

    f

    Displays the long date and short time according to your current culture's format. For example, Sunday, December 16, 2012 12:15 AM

    根据您当前的区域格式显示长日期和短时间。 例如,2012年12月16日星期日上午12:15。.

    F

    Displays the long date and long time according to your current culture's format. For example, Sunday, December 16, 2012 12:15:31 AM

    根据您当前的区域格式显示长日期和长时间。 例如,2012年12月16日星期日12:15:31 AM。.

    g

    Displays the short date and short time according to your current culture's format. For example, 12/16/2012 12:15 AM

    根据您当前的区域格式显示短日期和短时间。 例如,12/16/2012 12:15 AM。.

    M, m

    Displays the month and the day of a date. For example, December 16

    显示日期的月份和日期。 例如,12月16日。.

    R, r

    Formats the date according to the RFC1123Pattern property

    根据RFC1123Pattern属性格式化日期。.

    s

    Formats the date and time as a sortable index. For example, 2012-12-16T12:07:31

    将日期和时间格式化为可排序索引。 例如,2012-12-16T12:07:31。.

    u

    Formats the date and time as a GMT sortable index. For example, 2012-12-16 12:15:31Z

    将日期和时间格式设置为GMT可排序索引。 例如,2012-12-16 12:15:31Z。.

    U

    Formats the date and time with the long date and long time as GMT. For example, Sunday, December 16, 2012 6:07:31 PM

    将日期和时间格式设置为长日期和长时间,格式为GMT。 例如,星期日,2012年12月16日下午6:07:31。.

    Y, y

    Formats the date as the year and month. For example, December, 2012

    将日期格式设置为年和月。 例如,2012年12月。.


    对于其他格式,如用户定义的格式,请参阅Microsoft文档 。


    属性和DateAndTime类的方法

    下表列出了一些DateAndTime类的常用属性 :

    SN属性描述
    1Date
    Returns or sets a String value representing the current date according to your system.
    返回或设置根据系统代表当前日期的字符串值。
    2Now
    Returns a Date value containing the current date and time according to your system.
    返回一个包含根据系统的当前日期和时间的日期值。
    3TimeOfDayReturns or sets a Date value containing the current time of day according to your system.
    返回或设置根据你的系统包含当天的当前时间的日期值。
    4Timer
    Returns a Double value representing the number of seconds elapsed since midnight.
    返回表示自午夜起经过的秒数为Double值。
    5TimeStringReturns or sets a String value representing the current time of day according to your system.
    返回或设置根据你的系统代表一天的当前时间的字符串值。
    6Today
    Gets the current date.
    获取当前日期。


    下表列出了一些DateAndTime类的常用方法 :

    SN方法名称和说明
    1

    Public Shared Function DateAdd (Interval As DateInterval, Number As Double, DateValue As DateTime) As DateTime
    公共共享函数使用DateAdd(时间间隔为DateInterval,号码为DOUBLE,则DateValue为DATETIME)为DATETIME

    返回包含已添加指定时间间隔的日期和时间值的Date值。

    2

    Public Shared Function DateAdd (Interval As String,Number As Double,DateValue As Object ) As DateTime
    公共共享函数使用DateAdd(时间间隔为字符串,数字为DOUBLE,则DateValue作为对象)为DATETIME

    返回包含已添加指定时间间隔的日期和时间值的Date值。

    3

    Public Shared Function DateDiff (Interval As DateInterval, Date1 As DateTime, Date2 As DateTime, DayOfWeek As FirstDayOfWeek, WeekOfYear As FirstWeekOfYear ) As Long
    公共共享函数DateDiff(时间间隔为DateInterval,日期1为DATETIME,日期2为DATETIME,星期作为Firstdayofweek,WEEKOFYEAR作为FirstWeekOfYear)As Long

    返回指定两个日期值之间的时间间隔数的长整型值。

    4

    Public Shared Function DatePart (Interval As DateInterval, DateValue As DateTime, FirstDayOfWeekValue As FirstDayOfWeek, FirstWeekOfYearValue As FirstWeekOfYear ) As Integer
    公共共享函数DATEPART(时间间隔为DateInterval,则DateValue为DATETIME,FirstDayOfWeekValue作为Firstdayofweek可,FirstWeekOfYearValue作为FirstWeekOfYear)作为整数

    返回包含给定Date值的指定组件的整数值。

    5

    Public Shared Function Day (DateValue As DateTime) As Integer
    公共共享函数Day(DateValue将作为DATETIME)作为整数

    返回从1到31的整数值,表示每月的某一天。

    6Public Shared Function Hour (TimeValue As DateTime) As Integer
    公共共享函数Hour (TIMEVALUE为DATETIME)作为整数

    返回从0到23的整数值,表示一天中的小时。

    7

    Public Shared Function Minute (TimeValue As DateTime) As Integer
    公共共享函数Minute(TIMEVALUE为DATETIME)作为整数

    返回一个从0到59的整数值,表示小时的分钟。

    8

    Public Shared Function Month (DateValue As DateTime) As Integer
    公共共享函数Month(DateValue将作为DATETIME)作为整数

    返回从1到12的整数值,表示一年中的月份。

    9

    Public Shared Function MonthName (Month As Integer, Abbreviate As Boolean) As String
    公共共享函数MONTHNAME(月为整数,简称布尔)作为字符串

    返回包含指定月份的名称的字符串值。

    10

    Public Shared Function Second (TimeValue As DateTime) As Integer
    公共共享函数Second(TIMEVALUE为DATETIME)作为整数

    返回从0到59,代表分钟的第二个整数值。

    11

    Public Overridable Function ToString As String
    公众可重写的ToString函数作为字符串

    返回表示当前对象的字符串。

    12

    Public Shared Function Weekday (DateValue As DateTime, DayOfWeek As FirstDayOfWeek) As Integer
    公共共享函数Weekday (DateValue将作为日期时间,星期由于Firstdayofweek可)作为整数

    返回包含表示星期几的一个数的整数值。

    13

    Public Shared Function WeekdayName (Weekday As Integer, Abbreviate As Boolean, FirstDayOfWeekValue As FirstDayOfWeek) As String
    公共共享函数WEEKDAYNAME(平日为整数,简称布尔,FirstDayOfWeekValue作为Firstdayofweek可)作为字符串

    返回包含指定工作日名称的字符串值。

    14

    Public Shared Function Year (DateValue As DateTime) As Integer
    公共共享函数(一年则DateValue为DATETIME)作为整数

    返回从1到9999表示年份的整数值。


    上述名单并不详尽。有关属性和DateAndTime类的方法的完整列表,请参阅Microsoft文档 。

    下面的程序演示其中的一些方法:

    Module Module1
       Sub Main()
          Dim birthday As Date
          Dim bday As Integer
          Dim month As Integer
          Dim monthname As String
          ' Assign a date using standard short format.
          birthday = #7/27/1998#
          bday = Microsoft.VisualBasic.DateAndTime.Day(birthday)
          month = Microsoft.VisualBasic.DateAndTime.Month(birthday)
          monthname = Microsoft.VisualBasic.DateAndTime.MonthName(month)
          Console.WriteLine(birthday)
          Console.WriteLine(bday)
          Console.WriteLine(month)
          Console.WriteLine(monthname)
          Console.ReadKey()
       End Sub
    End Module
    


    当上述代码被编译和执行时,它产生了以下结果:

    7/27/1998 12:00:00 AM
    27
    7
    July
    展开全文
  • VB silverlight 增强日期控件 可选时间VB silverlight 增强日期控件 可选时间VB silverlight 增强日期控件 可选时间
  • 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(日期表达式)
    返回 1 到 12 之间的整数,表示一年中的某月。
    比如:Month("00-6-15") = 6

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

    DataAdd 函数参数 参数 说明 

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


    interval 参数设定值 值 说明 
    yyyy 年 
    q 季 
    m 月 
    y 一年的日数 
    d 日 
    w 一周的日数 
    ww 周 
    h 时 
    n 分钟 
    s 秒 

    比如:
    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 包括七天的第一周为一年的第一周


    展开全文
  • C# 将某个文件复制到 VB 日期时间格式化函 C# 将某个文件复制到 VB 日期时间格式化函
  • VB 常用时间日期函数

    千次阅读 2011-12-12 17:04:01
    [格式]:  P=Year(X)  取出X“年”部分的数值  ...[说明]:Year返回的是公元年,若X里只有时间,没有日期,则日期视为#1899/12/30#  2. Hour,Minute,Second函数:取出时,分,或秒  [格式]:  P=Hour
  • VB.NET时间日期数据处理及技巧

    千次阅读 2012-07-06 08:13:42
    VB.NET时间日期数据处理及技巧 我们在编程中,通常都需要处理时间日期数据,这也是一种比较难于处理的数据类型,因为时间日期类型的结构相当复杂,并且还有一定的规则,如果在定义的时候不符合规则,程序在编译的...
  • Vb多种的时间格式使用方法例子,长时间格式、英文格式、短日期格式、日期分隔符等,这些例子可很好的教会您如何控制VB时间分隔形式,在WEB编程中,这也是一项必须掌握的基础知识。
  • VB.net 中 取系统时间 Dim datestr As String = "" datestr = Format(Now(), "yyyy/MM/dd H:mm:ss ffff") 用户定义的日期/时间格式(Format 函数) 下表显示可用于创建用户定义的日期/时间格式的...
  • 本程序可以方便快速更改系统日期时间格式。避免手动进到电脑系统-控制面板-区域语言选项中修改
  • VB6.0制作日期时间表,从演示来看,只是获取Windows时间日期,没有看到时间表啊,难道是我操作的不对么?以下是代码:  Timer1.Enabled = True '开启计时器  End Sub  Private Sub Command2_Click()  Timer1....
  • 日期时间的操作,vb.net 2005通过。
  • VB.Net2010时间日期操作(高清视频+源码).rar,由浅入深很容易明白,并且包含vb.net 编写的源代码,可以上机运行,希望对有需要的人有帮助,大家互相交流,互通有无。
  • VB 年历程序 带时间日期农历等的万年历 界面简单漂亮
  • 漂亮的VB电子钟,看上去是一块液晶显示屏,可适时显示当前日期时间,纯VB代码实现。
  • 系统介绍VB6.0中TPPick控件的使用方法
  • 我们在编程中,通常都需要处理时间日期数据,这也是一种比较难于处理的数据类型,因为时间日期类型的结构相当复杂,并且还有一定的规则,如果在定义的时候不符合规则,程序在编译的时候就会出错。在Visual Basic ...
  • vb.net(月历、日期时间、数字)
  • VB.NET中的日期时间转换

    千次阅读 2015-01-11 11:01:20
    刚刚学习VB.NET不久,在做几个小例子的时候发现经常要对日期时间和字符串之间进行转换,现整理如下,如有不正确的地方请大家指出。   1.字符型和日期型之间的转换 日期型转换为字符型是最简单的,可以直接...
  • Winform(VB.NET)对日期时间的操作,超级全!!
  • Vb简单获取windows系统内的日期时间分隔符,无非是“/”或“-”等,先得到系统当前的分隔符,然后重新设置分隔符,与控制面板内完成的功能基本相似,仅供VB编程者学习参考。
  • VB小程序,关注我有更多的有趣的VB小程序实现功能:在文本框Text1中输入当天对应的星期,文本框Text2中输入天数,单击“推算”按钮Command1,推算出相应天数后的星期情况,并在标签Label3中输出结果。控件:三两个...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 605
精华内容 242
关键字:

vb时间日期