首页
学习
活动
专区
工具
TVP
发布

VBA代码分享:将指定星期转换成标准日期格式

代码的意图是,给出某年某个星期的第几天,运行代码后,给出这天的日期。例如下图1所示,在输入框中输入“2003.1”,即想要知道2020年第3周第1天的日期。 图1 运行代码后,结果如下图2所示。...图2 详细代码如下: '转换YYWW.DD为YYYY-MM-DD Sub WeeksToDates() '以yywk.dd格式的日期 Dim Todayf As String '输入日期所在的年份...Dim Yearf As Integer '所代表的输入日期 Dim Dayf As Integer '计算之后的某月的日期 Dim Dayf2 As Integer '输入日期的月份...'从年初到每月1日已经过去了多少天 Dim DayOfWeek() As Variant '以yyyy-mm-dd形式的最终日期 Dim FinalDate As Date Dim i As...Long 'Todayf = "2302.2" Todayf = InputBox("请输入周数(格式YYWW.DD,例如2302.2,表示2023年第2周的第2天)", "输入转换为对应的日期"

20010
您找到你想要的搜索结果了吗?
是的
没有找到

mysql日期格式转换_MySQL日期格式转换

22 10 10:23:00 PM 22:23:00 00 6 -> 2016-01-16 22:23:00 format的格式都列出来: %M 月名字(January……December) %W 星期名字...(Sunday……Saturday) %D 有英语前缀的月份的日期(1st, 2nd, 3rd, 等等。)...%Y 年, 数字, 4 位 %y 年, 数字, 2 位 %a 缩写的星期名字(Sun……Sat) %d 月份中的天数, 数字(00……31) %e 月份中的天数, 数字(0……31) %m 月, 数字(...数字(00……59) %r 时间,12 小时(hh:mm:ss [AP]M) %T 时间,24 小时(hh:mm:ss) %S 秒(00……59) %s 秒(00……59) %p AM或PM %w 一个星期中的天数...(0=Sunday ……6=Saturday ) %U 星期(0……52), 这里星期天是星期的第一天 %u 星期(0……52), 这里星期一是星期的第一天 %% 字符% ) TIME_FORMAT(time

11.5K20
领券