需要开发协同办公程序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 需要开发协同办公程序

共有2798人关注过本帖树形打印复制链接主题：需要开发协同办公程序

cglsg5076

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1016 积分：6596 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/4/28 9:17:00 [只看该作者]

老师好,下面的代码不能将td2等于00:00，请问怎么改？谢谢

dim td as date

dim td2 as date

td=#23：59#

td2=td.addminutes(1)

有点色

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/28 9:21:00 [只看该作者]

Dim td As Date
Dim td2 As Date
td=#23:59#
td2=td.addminutes(1)
msgbox(format(td2, "HH:mm"))

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/4/28 9:28:00 [只看该作者]

Dim td As Date

td=#23:59#

If td = #23:59# Then td = #00:00#

Output.Show(td)

cglsg5076

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1016 积分：6596 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/4/28 9:28:00 [只看该作者]

我得到的结果是：0001-01-02，我需要td2等于00:00，不是格式。所以您看如何改？谢谢

有点色

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/28 9:33:00 [只看该作者]

以下是引用cglsg5076在2017/4/28 9:28:00的发言：
我得到的结果是：0001-01-02，我需要td2等于00:00，不是格式。所以您看如何改？谢谢

带日期不影响你正常使用

Dim td As Date
Dim td2 As Date
td=#23:59#
td2=td.addminutes(1)
td2 = format(td2, "HH:mm")
msgbox(td2)

cglsg5076

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1016 积分：6596 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/4/30 6:02:00 [只看该作者]

老师好，请问如何自动向固定的网址发送注册信息，代码如何写。谢谢！

有点色

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/30 8:09:00 [只看该作者]

以下是引用cglsg5076在2017/4/30 6:02:00的发言：
老师好，请问如何自动向固定的网址发送注册信息，代码如何写。谢谢！

哪个网址？发送什么格式的信息？用何种方式？

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=32808&skin=0

cglsg5076

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1016 积分：6596 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/4/30 8:40:00 [只看该作者]

老师好，有时候需要不使用日历的值，必须做下面的判断将DateTimePicker1的值赋给wholedate，请问如何改红色部分，谢谢。

If Forms("Daily Report").Controls("CalendarDataPro").value ="" Then

wholedate=e.Form.Controls("DateTimePicker1").value

End If

有点蓝

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/2 8:24:00 [只看该作者]

月历无法判断是否有选择值，因为默认就是有值的。

只能直接赋值

有点色

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/2 9:42:00 [只看该作者]

以下是引用cglsg5076在2017/4/30 8:40:00的发言：

老师好，有时候需要不使用日历的值，必须做下面的判断将DateTimePicker1的值赋给wholedate，请问如何改红色部分，谢谢。

你要换一种思路，比如双击过月历控件，就认为选中了日期

你在月历事件记录 vars("点击") = true，之后判断这个变量即可

下一主题 >> << 上一主题

总数 20 上一页 1 2

主题：需要开发协同办公程序