Foxtable(狐表)用户栏目专家坐堂 → 求每月的固定日期


  共有2513人关注过本帖树形打印复制链接

主题:求每月的固定日期

帅哥哟,离线,有人找我吗?
xu84988
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:437 威望:0 精华:0 注册:2015/3/4 12:02:00
求每月的固定日期  发帖心情 Post By:2015/5/17 5:10:00 [只看该作者]

1、固定日期中的日是什么“整数型”还是“时间型”,若是时间型,如何只显示“日”?
2、日期中的年和月是当前年和当前月,只有“日”为已知条件。


 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2180 积分:13810 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2015/5/17 9:49:00 [只看该作者]

1 整数型
2 合成每月的固定日期
 Dim dayX As Byte   '固定日期变量
Dim d As Date         '合成日期
d=Date.Today.Year & "-"  & Date.Today.Month & "-"  &dayX


 回到顶部
帅哥哟,离线,有人找我吗?
xu84988
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:129 积分:437 威望:0 精华:0 注册:2015/3/4 12:02:00
  发帖心情 Post By:2015/5/17 10:05:00 [只看该作者]

 Dim dayX As Byte = "账单日"   '固定日期变量
Dim d As Date '合成日期 
d=Date.Today.Year & "-"  & Date.Today.Month & "-"  &dayX




 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/17 10:26:00 [只看该作者]

1、必须用整数型;

 

2、

 

Dim dayX As Byte = 25   '固定日期变量

Dim d As Date '合成日期 
d = new Date(Date.Today.Year, Date.Today.Month, dayX)
[此贴子已经被作者于2015/5/17 10:26:31编辑过]

 回到顶部