作者：绿色风
分类：
时间：2022-08-18
浏览：120
楼主
wise |
Q:如何在VSTO中显示系统当前时间？
A：其VSTO代码如下：
- Public Class Sheet1
- Private Sub Sheet1_Startup() Handles Me.Startup
- Dim nameRange1 As Microsoft.Office.Tools.Excel.NamedRange = Me.Controls.AddNamedRange(Me.Range("A1"), "nameRange1")
- '把单元格A1定义一个名称为nameRange1
- Dim dt As DateTime = DateTime.Now
- '把dt定义为一个时间变量，并把当前时间赋予给dt
- nameRange1.Value = dt
- '然后把dt赋予给自定义名称nameRange1
- Dim value As Object = nameRange1.Value2
- '定义一个value为对象，并且把该自定义名称的值赋予给value
- If Not value Is Nothing Then
- '判断value是否为空,如果不为空，则继续下一步
- If TypeOf value Is Double Then
- '如果单元格的值是double型
- dt = DateTime.FromOADate(CType(value, Double))
- 'DateTime.FromOADate返回与指定的 OLE 自动化日期等效的 DateTime
- Else
- Date.TryParse(CType(value, String), dt)
- 'Date.TryParse将日期和时间的指定字符串表示形式转换为其 DateTime 等效项，并返回一个指示转换是否成功的值
- End If
- End If
- MessageBox.Show(dt.ToString())
- 'ToString将当前 DateTime 对象的值转换为其等效的字符串表示形式
- End Sub
- End Class
|
2楼
蓝色的海 |
谢谢楼主 |
3楼
心痛神伤 |
楼主辛苦 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一