7521
社区成员
怎样使DTPicker控件获取服务器的日期时间
在几个form中放了DTPicker控件，要求打开主控窗体后那几个DTPicker控件的日期和时间取置于服务器。能够告诉我方法吗？
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
w18ily 2003-05-13
Mark!
czjw 2003-05-13
我也是刚学来的，看看对你有没有帮助：
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, Description:="不能取到服务器时间 ！"
End If
End Function
'要运行该程序，通过如下方式调用。
Private Sub Command1_Click()
Dim d As Date
d = getRemoteTOD("\\服务器IP")
MsgBox d
End Sub
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, Description:="不能取到服务器时间 ！"
End If
End Function
'要运行该程序，通过如下方式调用。
Private Sub Command1_Click()
Dim d As Date
d = getRemoteTOD("\\服务器IP")
MsgBox d
End Sub
CVI通过ActiveX使用DTPicker控件获取选择的日期 CVI通过ActiveX使用DTPicker控件获取选择的日期 最近一个项目需要用到选择使用的时间，使用CVI LabView编辑软件。如果不能使用DTPicker，可以先下载安装MSCOMCT2.OCX文件。 方法一：下载运行Microsoft Office ...
玩转 VB 中 DTpicker 日期控件 DateTimePicker控件使您可以提供格式化的日期字段，使得进行日期选择很容易。另外，用户还可以从类似于MonthView控件的下拉式日历界面中选择日期。 介绍 【1】加载方法 VB默认的控件栏中是没有DTpicker日期控件...
VB DTPicker日期选择控件 大家好，本节课程一起来学习ActiveX控件之DTPicker日期选择控件。 如何添加DTPicker控件？ 1，在“工程”→“部件”选项卡中，找到Microsoft Windows Common Controls-2 6.0(SP6)，并勾选前方复选框，单击应用和确定...
mui DtPicker 日历控件只显示当前时间之后的时间 document.getElementById('demo3').onclick = function(){ var now=new Date();... var dtpicker = new mui.DtPicker({ type: "datetime",//设置日历初始视图模式 beginYear:now.getFullYear(), beginMonth...
学生优化（二）-----DTpicker控件的使用 有点麻烦，经过小伙伴的提醒发现可以更换为DTpicker的日期控件。 步骤 1.首先添加控件 添加过程：工具——部件——控件——“Microsoft Windows Common Controls-2.6.0”——应用——确定 .运行时的状态 2.属性...
使用MonthView控件和DTPicker控件输入日期 在学生信息管理系统的添加学籍部分，需要在text中输入出生日期和入学日期，这一步比较麻烦，大家在测试的时候应该都感觉到了，... Windows Common Controls-2 6.0，在工具栏中就会出现MonthView控件和DTPicker控件...
VB中DTpicker日期控件的用法 DTpicker是一个vb中的一个时间选择控件，方便好用。 添加方法：工程——部件——控件——Microsoft Windows Common Controls-2 6.0 可以通过Format属性设置日期格式，以便与数据库等保持一致 若选择...
mui dtpicker（日期时间选择器） 公用的方法 input id="calendarText" type="text" data-options="{}" placeholder="请选择时间" readonly="" onclick="onData(this)"> js 代码 function onData(obj){ var id = obj.getAttribute('id'); var op...
Excel 2010 VBA 入门 124 日期选择控件 DTPicker控件的时间和日期的切换 DTPicker控件的日期输入方式 DTPicker控件的Value属性与Change事件 使用DTPicker控件实现日期选择并赋值给单元格 注册DTPicker控件 在Excel中，经常需要输入日期。为保证输入...
VBA代码控制DTPicker控件的下拉日期表显示 DTPicker1控件的下拉按钮请问怎么写代码可以使得DTPicker控件的下拉日期表显示出来呢?!Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _(ByVal hWnd As Long, _ByVal wMsg As Long, _...
Mui dtpicker设置当前日期时间为默认选中值的步骤 step2 使用时间选择器的页面进行dtpicker的简单设置 选中输入框出现时间选择器 < input type = " text " id = " time " class = " form-control p5 departureDate " placeholder = " 入住日期 " name ...
玩转控件DTPicker 玩转这个控件话费了将近一天的...VB默认的控件栏中是没有DTpicker日期控件的，添加过程：工程——部件——“MicrosoftWindows Common Controls-2.6.0” ——应用——确定 几个主要属性： CustomFo
机房系统（八）——【日期控件DTPicker、比较日期大小】 &nbsp; &...VB中已经为我们提供了专门的日期控件，设有一定的格式，如果我们在系统中能直接利用这个现有的资源，可以为用户提供很多的方便。接下来就介绍一下这个神奇的控件吧——DTP...
mui dtpicker 日期控件 异常弹出 弹出两次 做项目的时候，发现mui的时间控件picker会出现异常弹出。 在点击时间选择的div时，控件正常弹出，没有问题。有问题的是，点击其他输入框，在弹出软键盘的同时，时间控件也会随之出现（在软键盘下方，屏幕移下去时会...
