VB中如何获取系统时间

Posted 2023-03-28

我想在VB中获得当前的系统时间，并且当我按下按钮1的时候，按照20090808这样的格式赋值给Text1.text，谢谢了

日期：DateTime.Now.ToShortDateString
时间：DateTime.Now.ToFileTime

可以这样用：
Response.Write(DateTime.Now.ToShortDateString() + "
");
Response.Write(DateTime.Now.ToShortTimeString() + "
");

输出：
2007-1-29
8:49

Response.Write(DateTime.Now.ToLongDateString() + "
");
Response.Write(DateTime.Now.ToLongTimeString() + "
");

输出：
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 获取此实例所表示日期的年份部分。 参考技术A private sub command1_click()
dim a as date
a=now
text1.text=format(a,"yyyymmdd")
end sub本回答被提问者采纳 参考技术B Text1.text=format (now,"YYYY-MM-DD HH:MM:SS") 参考技术C text1.text=trim(year(now)) & trim(month(now)) & trim(day(now))

如何使用 TaskDialogIndirect 在 vb6 中获取回调函数？

【中文标题】如何使用 TaskDialogIndirect 在 vb6 中获取回调函数？

【英文标题】：How to get a callback function in vb6 with TaskDialogIndirect?

【发布时间】：2011-03-09 16:42:29

【问题描述】：

我在 VB6 中使用 TaskDialogIndirect。它工作得很好，我什至在 TASKDIALOGCONFIG 的 pszFooter 成员中有链接工作（启用 TDF_ENABLE_HYPERLINKS）。

问题是当光标悬停在链接上时变成“手”时，我不知道如何让 TaskDialogIndirect 的 TASKDIALOGCONFIG.pfCallback 成员指向我的自定义函数，所以我 实际上可以将用户引导到显示的超链接。

tdi.pszFooter = StrPtr("<a href=" & Chr$(34) & "www.cnn.com" & Chr$(34) & ">www.cnn.com</a>")

谁能帮帮我？谢谢！

【参考方案1】：

Public Function FnPtrToLong(ByVal lngFnPtr As Long) As Long
    FnPtrToLong = lngFnPtr
End Function

【讨论】：

你还需要做 Ptr = fnPtrToLong(Addressof MyFunction)