vb获取电脑系统时间格式_vb获取当前时间

1.在VB里用什么函数获取系统的当前时间？

2.VB中怎么获得系统日期与时间

3.vb读取本地时间

4.vb中时间显示设置

5.VB 读取系统年月日

6.vb中如何将“date”类型转换为“YYYYMMDD”的形式？

Option?Explicit

Private?Declare?Function?NetRemoteTOD?Lib?"Netapi32.dll"?(?_

tServer?As?Any,?pBuffer?As?Long)?As?Long

Private?Type?SYSTEMTIME

wYear?As?Integer

wMonth?As?Integer

wDayOfWeek?As?Integer

wDay?As?Integer

wHour?As?Integer

wMinute?As?Integer

wSecond?As?Integer

wMilliseconds?As?Integer

End?Type

Private?Type?TIME_ZONE_INFORMATION

Bias?As?Long

StandardName(32)?As?Integer

StandardDate?As?SYSTEMTIME

StandardBias?As?Long

DaylightName(32)?As?Integer

DaylightDate?As?SYSTEMTIME

DaylightBias?As?Long

End?Type

Private?Declare?Function?GetTimeZoneInformation?Lib?"kernel32"?(lpTimeZoneInformation?As?TIME_ZONE_INFORMATION)?As?Long

Private?Declare?Function?NetApiBufferFree?Lib?"Netapi32.dll"?(ByVal?lpBuffer?As?Long)?As?Long

Private?Type?TIME_OF_DAY_INFO

tod_elapsedt?As?Long

tod_msecs?As?Long

tod_hours?As?Long

tod_mins?As?Long

tod_secs?As?Long

tod_hunds?As?Long

tod_timezone?As?Long

tod_tinterval?As?Long

tod_day?As?Long

tod_month?As?Long

tod_year?As?Long

tod_weekday?As?Long

End?Type

Private?Declare?Sub?CopyMemory?Lib?"kernel32"?Alias?"RtlMoveMemory"?(Destination?As?Any,?Source?As?Any,?ByVal?Length?As?Long)

Public?Function?getRemoteTOD(ByVal?strServer?As?String)?As?Date

Dim?result?As?Date

Dim?lRet?As?Long

Dim?tod?As?TIME_OF_DAY_INFO

Dim?lpbuff?As?Long

Dim?tServer()?As?Byte

tServer?=?strServer?&?vbNullChar

lRet?=?NetRemoteTOD(tServer(0),?lpbuff)

If?lRet?=?0?Then

CopyMemory?tod,?ByVal?lpbuff,?Len(tod)

NetApiBufferFree?lpbuff

result?=?DateSerial(tod.tod_year,?tod.tod_month,?tod.tod_day)?+?_

TimeSerial(tod.tod_hours,?tod.tod_mins?-?tod.tod_timezone,?tod.tod_secs)

getRemoteTOD?=?result

Else

Err.Raise?Number:=vbObjectError?+?1001,?_

Description:="cannot?get?remote?TOD"

End?If

End?Function

Private?Sub?Command1_Click()

Dim?d?As?Date

d?=?getRemoteTOD("\\192.168.0.9")

MsgBox?d

End?Sub

在VB里用什么函数获取系统的当前时间？

同上，使用 format 函数：

如：

Dim MyTime, MyDate, MyStr

MyTime = #17:04:23#

MyDate = #January 27, 1993#

' 以系统设置的长时间格式返回当前系统时间。

MyStr = Format(Time, "Long Time")

' 以系统设置的长日期格式返回当前系统日期。

MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。

MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返回 "05:04:23 PM"。

MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返回 "Wednesday, Jan 27 1993"。

' 如果没有指定格式，则返回字符串。

MyStr = Format(23) ' 返回 "23"。

' 用户自定义的格式。

MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。

MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。

MyStr = Format(5, "0。00%") ' 返回 "500.00%"。

MyStr = Format("HELLO", "<") ' 返回 "hello"。

支持任何正确格式：

vbGeneralDate 0 显示日期和/或时间。对于一个实数，显示日期和时间。如果没有小数部分，则仅显示日期。如果没有整数部分，则仅显示时间。日期和时间的显示由系统设置值确定。

vbLongDate 1 用计算机区域设置值指定的长日期格式显示日期。

vbShortDate 2 用计算机区域设置值指定的短日期格式显示日期。

vbLongTime 3 用计算机区域设置值指定的长时间格式显示时间。

vbShortTime 4 用计算机区域设置值指定的短时间格式显示时间。

yyyy/yy:年 m:月 d:日 h:时 m:分 s:秒 ddd/dddd:星期 这个变量可随意变化，但在使用 月与分请多加注意。

VB中怎么获得系统日期与时间

Private

Sub

Timer1_Timer()

text1

=

format(now(),"yyyy-mm-dd

tttt")

End

Sub

format是格式化输出日期和时间格式函数,yyyy-mm-dd是完整显示年月日，tttt是显示时分秒。

timer1.interval的值大于0而小于等于1000之间的任意一个整数。

vb读取本地时间

日期：DateTime.Now.ToShortDateString

时间：DateTime.Now.ToFileTime

可以这样用：

Response.Write(DateTime.Now.ToShortDateString() + "<br/>");

Response.Write(DateTime.Now.ToShortTimeString() + "<br/>");

输出：

2007-1-29

8:49

Response.Write(DateTime.Now.ToLongDateString() + "<br/>");

Response.Write(DateTime.Now.ToLongTimeString() + "<br/>");

输出：

2007年1月29日

8:49:15

不知合不合你要求

我是要VS2005下使用，很好用。可查看MSDN以下简单例出：

.NET Framework 类库

DateTime 成员

请参见 构造函数 字段 方法 属性 显式接口实现

全部折叠 全部展开 成员选项：全部显示 成员选项：已筛选

包括继承的成员

包括受保护的成员

仅 .NET Compact Framework 成员

表示时间上的一刻，通常以日期和当天的时间表示。

下表列出了由 DateTime 类型公开的成员。

公共构造函数

名称 说明

DateTime 已重载。初始化 DateTime 结构的新实例。

页首

公共字段

名称 说明

MaxValue 表示 DateTime 的最大可能值。此字段为只读。

MinValue 表示 DateTime 的最小可能值。此字段为只读。

页首

公共属性

名称 说明

Date 获取此实例的日期部分。

Day 获取此实例所表示的日期为该月中的第几天。

DayOfWeek 获取此实例所表示的日期是星期几。

DayOfYear 获取此实例所表示的日期是该年中的第几天。

Hour 获取此实例所表示日期的小时部分。

Kind 获取一个值，该值指示由此实例表示的时间是基于本地时间、协调通用时间 (UTC)，还是两者皆否。

Millisecond 获取此实例所表示日期的毫秒部分。

Minute 获取此实例所表示日期的分钟部分。

Month 获取此实例所表示日期的月份部分。

Now 获取一个 DateTime 对象，该对象设置为此计算机上的当前日期和时间，表示为本地时间。

Second 获取此实例所表示日期的秒部分。

Ticks 获取表示此实例的日期和时间的刻度数。

TimeOfDay 获取此实例的当天的时间。

Today 获取当前日期。

UtcNow 获取一个 DateTime 对象，该对象设置为此计算机上的当前日期和时间，表示为协调通用时间 (UTC)。

Year 获取此实例所表示日期的年份部分。

页首

公共方法

名称 说明

Add 将指定的 TimeSpan 的值加到此实例的值上。

AddDays 将指定的天数加到此实例的值上。

AddHours 将指定的小时数加到此实例的值上。

AddMilliseconds 将指定的毫秒数加到此实例的值上。

AddMinutes 将指定的分钟数加到此实例的值上。

AddMonths 将指定的月份数加到此实例的值上。

AddSeconds 将指定的秒数加到此实例的值上。

AddTicks 将指定的刻度数加到此实例的值上。

AddYears 将指定的年份数加到此实例的值上。

Compare 比较 DateTime 的两个实例，并返回它们相对值的指示。

CompareTo 已重载。 将此实例与指定的对象或值类型进行比较，并返回二者相对值的指示。

DaysInMonth 返回指定年和月中的天数。

Equals 已重载。 返回一个值，该值指示两个 DateTime 对象，或者一个 DateTime 实例和另一个对象或 DateTime 是否相等。

FromBinary 反序列化一个 64 位二进制值，并重新创建序列化的 DateTime 初始对象。

FromFileTime 将指定的 Windows 文件时间转换为等效的本地时间。

FromFileTimeUtc 将指定的 Windows 文件时间转换为等效的 UTC 时间。

FromOADate 返回与指定的 OLE 自动化日期等效的 DateTime。

GetDateTimeFormats 已重载。 将此实例的值转换为标准 DateTime 格式说明符支持的所有字符串表示形式。

GetHashCode 已重写。 返回此实例的哈希代码。

GetType 获取当前实例的 Type。 （从 Object 继承。）

GetTypeCode 返回值类型 DateTime 的 TypeCode。

IsDaylightSingTime 指示此 DateTime 实例是否在当前时区的夏时制范围内。

IsLeapYear 返回指定的年份是否为闰年的指示。

op_Addition 将指定的时间间隔加到指定的日期和时间以生成新的日期和时间。

op_Equality 确定 DateTime 的两个指定的实例是否相等。

op_GreaterThan 确定指定的 DateTime 是否大于另一个指定的 DateTime。

op_GreaterThanOrEqual 确定指定的 DateTime 是否大于或等于另一个指定的 DateTime。

op_Inequality 确定 DateTime 的两个指定的实例是否不等。

op_LessThan 确定指定的 DateTime 是否小于另一个指定的 DateTime。

op_LessThanOrEqual 确定指定的 DateTime 是否小于或等于另一个指定的 DateTime。

op_Suraction 已重载。 从指定的 DateTime 减去指定的 DateTime 或 TimeSpan。

Parse 已重载。 将日期和时间的指定字符串表示转换成其等效的 DateTime。

ParseExact 已重载。 将日期和时间的指定字符串表示转换成其等效的 DateTime。该字符串表示形式的格式必须与指定的格式完全匹配。

ReferenceEquals 确定指定的 Object 实例是否是相同的实例。 （从 Object 继承。）

SpecifyKind 创建新的 DateTime 对象，该对象表示与指定的 DateTime 相同的时间，但是根据指定的 DateTimeKind 值的指示，指定为本地时间或协调通用时间 (UTC)，或者两者皆否。

Suract 已重载。 从此实例中减去指定的时间或持续时间。

ToBinary 将当前 DateTime 对象序列化为一个 64 位二进制值，该值随后可用于重新创建 DateTime 对象。

ToFileTime 将当前 DateTime 对象的值转换为 Windows 文件时间。

ToFileTimeUtc 将当前 DateTime 对象的值转换为 Windows 文件时间。

ToLocalTime 将当前 DateTime 对象的值转换为本地时间。

ToLongDateString 将此实例的值转换为其等效的长日期字符串表示形式。

ToLongTimeString 将此实例的值转换为其等效的长时间字符串表示形式。

ToOADate 将此实例的值转换为等效的 OLE 自动化日期。

ToShortDateString 将此实例的值转换为其等效的短日期字符串表示形式。

ToShortTimeString 将此实例的值转换为其等效的短时间字符串表示形式。

ToString 已重载。 已重写。 将此实例的值转换为其等效的字符串表示。

ToUniversalTime 将当前 DateTime 对象的值转换为协调通用时间 (UTC)。

TryParse 已重载。 将日期和时间的指定字符串表示转换成其等效的 DateTime。

TryParseExact 已重载。 将日期和时间的指定字符串表示转换成其等效的 DateTime。该字符串表示形式的格式必须与指定的格式完全匹配。

页首

显式接口实现

名称 说明

System.IConvertible.ToBoolean 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToByte 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToChar 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToDateTime 返回当前 DateTime 对象。

System.IConvertible.ToDecimal 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToDouble 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToInt16 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToInt32 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToInt64 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToSByte 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToSingle 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToType 将当前的 DateTime 对象转换为指定类型的对象。

System.IConvertible.ToUInt16 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToUInt32 不支持此转换。尝试这样做会引发 InvalidCastException。

System.IConvertible.ToUInt64 不支持此转换。尝试这样做会引发 InvalidCastException。

System.Runtime.Serialization.ISerializable.GetObjectData 使用序列化当前 DateTime 对象所需要的数据来填充 SerializationInfo 对象。

页首

请参见

参考

DateTime 结构

vb中时间显示设置

使用Date函数即可，例如：text1.text=Date ,text1便可以显示当前日期的。

比较日期时不需要什么函数，可以将时间写成时间字符串格式，然后用大于号小于号便可以对比大小。

比如：

If #2/23/2010# > #4/2/2010# Then

MsgBox "大于"

Else

MsgBox "小于"

End If

若将读取出来的日期和自己设定的日期做对比，如下：

if date() > #2/23/2010# then

....

end if

即可实现。

Datediff函数也可以，只是根据您的要求，不需要使用这个函数。

VB 读取系统年月日

想要你的显示格式按你的要求用VB函数 format

如： label.caption = format(now,"hh:mm:ss")

这样的结果就显示了 当前时间（20:30:45）

你把"hh:mm:ss" 换成 "hh点mm分ss秒" 显示的格式就是上面的结果点数后都带单位了。

vb中如何将“date”类型转换为“YYYYMMDD”的形式？

不需要用api函数的，直接用

format(date,"yy年mm月rr日")的格式就可以得到系统日期，如果非要用api函数，可以使用GetSystemTime或GetLocalTime，前者得到标准时间，

Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Declare Sub GetLocalTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

Private Type SYSTEMTIME

wYear As Integer

wMonth As Integer

wDayOfWeek As Integer

wDay As Integer

wHour As Integer

wMinute As Integer

wSecond As Integer

wMilliseconds As Integer

End Type

Sub Macro1()

Dim sys As SYSTEMTIME

GetLocalTime sys

msgbox sys.year & "年" & sys.month & "月" & sys.day & "日"

Format 函数示例

本示例显示用 Format 函数做格式化输出的不同用

法。对于日期分隔号（/），时间分隔号（:），以

及 AM/ PM 等文本而言，其真正的显示格式会因计

算机上的国际标准不同而有所差异。

在开发阶段，日期与时间是以短日期的格式，配合

代码的国际标准来显示的。而在运行时，短日期则

是根据系统的国际标准而定，而系统的国际标准和

代码的国际标准可能并不相同。本示例中是设国

际标准为 English/United States。

MyTime 及 MyDate 在开发环境下，使用系统的短

日期设置显示出来的。

Dim MyTime, MyDate, MyStr

MyTime = #17:04:23#

MyDate = #January 27, 1993#

' 以系统设置的长时间格式返回当前系统时间。

MyStr = Format(Time, "Long Time")

' 以系统设置的长日期格式返回当前系统日期。

MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ' 返回 "17:4:23"。

MyStr = Format(MyTime, "hh:mm:ss AMPM") ' 返

回?"05:04:23 PM"。

MyStr = Format(MyDate, "dddd, mmm d yyyy") ' 返

回 "Wednesday, Jan 27 1993"。

' 如果没有指定格式，则返回字符串。

MyStr = Format(23) ' 返回 "23"。

' 用户自定义的格式。

MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。

MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。

MyStr = Format(5, "0。00%") ' 返回 "500.00%"。

MyStr = Format("HELLO", "<") ' 返回 "hello"。

MyStr = Format("This is it", ">") ' 返回 "THIS IS IT"。

回 Variant (String)，其中含有一个表达式，它是根

据格式表达式中的指令来格式化的。

语法

Format(expression[, format[, firstdayofweek[,?

firstweekofyear]]])

Format 函数的语法具有下面几个部分：

部分 说明?

expression 必要参数。任何有效的表达式。?

format 可选参数。有效的命名表达式或用户自定义

格式表达式。?

firstdayofweek 可选参数。常数，表示一星期的第

一天。?

firstweekofyear 可选参数。常数，表示一年的第一

周。?

设置值

firstdayofweek 参数有下面设置：

常数 值 说明?

vbUseSystem 0 使用 NLS API 设置。?

VbSunday 1 星期日（缺省）?

vbMonday 2 星期一?

vbTuesday 3 星期二?

vbWednesday 4 星期三?

vbThursday 5 星期四?

vbFriday 6 星期五?

vbSaturday 7 星期六?

firstweekofyear 参数有下面设置：

常数值 说明?

vbUseSystem 0 使用 NLS API 设置。?

vbFirstJan1 1 从包含一月一日的那一周开始（缺省）。?

vbFirstFourDays 2 从本年第一周开始，而此周至少

有四天在本年中。?

VbFirstFullWeek 3 从本年第一周开始，而此周完全

在本年中。?

说明

格式化作法?

数字 使用预先定义的命名数值格式或创建用户自定

义数值格式。?

日期和时间 使用预先定义的命名日期/时间格式或

创建用户自定义日期/时间格式。?

日期和时间序数 使用日期和时间格式或数值格式。?

字符串 创建自定义的字符串格式。?

如果在格式化数字时没有指定 format，Format 会

提供与 Str 函数类似的功能，尽管它是国际化的。

然而，以 Format 作用在正数上不会保留正负号空

间，而以 Str 的话则会。