社区
Access
帖子详情
紧急!!!vb计算工龄---求助高手啊!
mengzhiming
2007-06-19 08:20:07
我用的是access数据库,用vb开发了一个信息系统,现在想用“参加工作时间”自动计算“工龄”,参加工作时间是日期型的,工龄是int型的,代码我不会写,求助啊!
...全文
273
7
打赏
收藏
紧急!!!vb计算工龄---求助高手啊!
我用的是access数据库,用vb开发了一个信息系统,现在想用“参加工作时间”自动计算“工龄”,参加工作时间是日期型的,工龄是int型的,代码我不会写,求助啊!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
OracleRoob
2007-06-21
打赏
举报
回复
--try
Dim d1 As DateTime = Me.DateTimePicker1.Value
Dim d2 As DateTime = Me.DateTimePicker2.Value
Dim df As TimeSpan = d1.Subtract(d2)
Me.TextBox1.Text=df.TotalDays.ToString() --这里改成年TotalYears试试
OracleRoob
2007-06-21
打赏
举报
回复
VB中一定也有类似DateDiff()的函数,计算两个日期的差值。
wwwwb
2007-06-19
打赏
举报
回复
请到VB版块去问吧
mengzhiming
2007-06-19
打赏
举报
回复
我试了,不管我输入的是哪一年vb返回的数值都是108,这是怎么回事
mengzhiming
2007-06-19
打赏
举报
回复
谢谢
饮水需思源
2007-06-19
打赏
举报
回复
摘自VB6帮助:
DateDiff 函数
返回 Variant (Long) 的值,表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])
DateDiff 函数语法中有下列命名参数:
部分 描述
interval 必要。字符串表达式,表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要;Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定,则以星期日为第一天。
firstweekofyear 可选。指定一年的第一周的常数。如果未予指定,则以包含 1 月 1 日的星期为第一周。
设置
interval 参数的设定值如下:
设置 描述
yyyy 年
q 季
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 时
n 分钟
s 秒
firstdayofweek 参数的设定值如下:
常数 值 描述
vbUseSystem 0 使用 NLS API 设置。
vbSunday 1 星期日(缺省值)
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
常数 值 描述
vbUseSystem 0 用 NLS API 设置。
vbFirstJan1 1 从包含 1 月 1 日的星期开始(缺省值)。
vbFirstFourDays 2 从第一个其大半个星期在新的一年的一周开始。
vbFirstFullWeek 3 从第一个无跨年度的星期开始。
说明
DateDiff 函数可用来决定两个日期之间所指定的时间间隔数目。例如,可以使用 DateDiff 来计算两个日期之间相隔几日,或计算从今天起到年底还有多少个星期。
为了计算 date1 与 date2 相差的日数,可以使用“一年的日数”(y) 或“日”(d)。当 interval 是“一周的日数”(w) 时,DateDiff 返回两日期间的周数。如果 date1 是星期一,DateDiff 计算到 date2 为止的星期一的个数。这个数包含 date2 但不包含 date1。不过,如果 interval 是“周”(ww),则 DateDiff 函数返回两日期间的“日历周”数。由计算 date1 与 date2 之间星期日的个数而得。如果 date2 刚好是星期日,则 date2 也会被加进 DateDiff 的计数结果中;但不论 date1 是否为星期日,都不将它算进去。
如果 date1 比 date2 来得晚,则 DateDiff 函数的返回值为负数。
firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。
如果 date1 或 date2 是日期文字,则指定的年份成为该日期的固定部分。但是,如果 date1 或 date2 用双引号 (" ") 括起来,且年份略而不提,则在每次计算表达式 date1 或 date2 时,当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。
在计算 12 月 31 日和来年的 1 月 1 日的年份差时,DateDiff 返回 1 表示相差一个年份,虽然实际上只相差一天而已。
wwwwb
2007-06-19
打赏
举报
回复
access:datediff('yyyy',参加工作时间,date())
用ADO连接MDB,至于在VB中怎样得出,请到VB版块去问吧
最强悍的 VC
VB
反编译工具 Hex-Rays
最强悍的反编译工具 Hex-Rays。 可以反编译
VB
VC BCB Delphi 等等一切 x86/x64 代码为 C 代码。密码参见内附说明文件。 我写了个简单的介绍 http://blog.caozhongyan.com/article.asp?id=19
vb
.net CRC
计算
---
--CRC_CCITT
Public Function CRC_CCITT(ByVal Data() As Byte) As String Dim crc As UShort Dim i As Byte, j As Integer Dim crch As String, crcl As String crc = 0 For j = 0 T
VB
打包工具
---
setup factory 7 使用总结
VB
打包工具
---
setup factory 7 使用 最近用setup factory 7 比较多,做了一个总结.1 不包含源代码的打包过程 按照新建工程向导 选择了 ”为从属扫描工程文件“选项(或者从“工具”菜单-->扫描
VB
工程) 完成向导后 删除:frm/bas/
vb
p/
vb
w等源代码文件。 保留:exe/dll/ocx等运行支持文件 然后“发布”菜单--> 构建 --> 选择打包文件名
VB
6.0之Collection
---
Collection集合类
参考一:
VB
之Collection
---
Collection集合类 你看到的这个文章来自于http://www.cnblogs.com/ayanmw 由于要对一些数据进行处理,比较麻烦,实现某个算法要处理大量不同的不同类型的数据。 所以考虑到一些因素,又在使用
VB
6(可惜微软不支持
VB
6了,改为DotNet框架了 ),所以使用
VB
6 自带的 Collection
VB
OpenGL绘图
---
---
-我的第一个
VB
6.0 OpenGL程序
要想在
VB
6.0中使用OpenGL绘图,必须先下载一个SDK,名字叫
vb
ogl.tlb。我用的版本是2.1,这个月要出3.0版本的了。下载该文件后,直接在
VB
6.0“工程”-“引用”里面引用1、在form中加入一个PictureBox控件2、要在Windows里面使用OpenGL,必须先进行像素格式设置,函数代码如下 Dim hRC As Long’全局变量
Access
7,714
社区成员
28,799
社区内容
发帖
与我相关
我的任务
Access
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
复制链接
扫一扫
分享
社区描述
Microsoft Office Access是由微软发布的关系数据库管理系统。它结合了 MicrosoftJet Database Engine 和 图形用户界面两项特点。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章