vba\x20日期 vba 当前日期

不用vba就可以解决 在第一列输入日期,将单元格的格式设置为日期格式 在第二列让每行的值等于第一列对应行,然后将第二列单元格格式设置为日期格式中的星期几这种类型,就ok了

两个问题:1、range(＂a40＂).value = format(＂2012/4/12＂, ＂yyyy-mm-dd＂),“0000-00-00”不是合法的日期格式.2、必须先把这个格子弄成文本显示,否则excel会自做聪明改成excel标准的日期类型“yyyy/m/d” 完成代码如下:sub kk() range(＂a40＂).numberformatlocal = ＂@＂ range(＂a40＂).value = format(＂2012/4/12＂, ＂yyyy-mm-dd＂) end sub

vb会自动识别,默认为月日年,年月日,日月年的顺序,如#10/11/12#vb识别为2012年10月12日;如果第一个数超过12,如#13/11/12#vb则识别为2013年11月12日;如果第一个数超过12,且最后一位超过31,如#13-11-32#vb则识别为1932年11月13日.其他值则为错误

下面演示三种方法:' 方法1 Sub GetToday1() MsgBox CDate(Evaluate(＂=TODAY()＂)) End Sub' 方法2 Sub GetToday2() MsgBox FormatDateTime(Now, vbShortDate) End Sub' 方法3 Sub GetToday3() MsgBox Date End Sub 以上三种方法都可以输出操作系统当天日期:

s = Format([a1], ＂0000-00-00＂) v = Format([a2], ＂0000-00-00＂) [b1] = DateDiff(＂d＂, s, v) 这样B1中就会得到A1和A2之间的天数了

第一,vba日期和时间函数的基本用法 Excel中vba日期函数和时间函数分别是DATE和TIME. VBA提供了三个无参数函数:Date、Time、Now,分别返回当前电脑系统的.

不用VBA,用公式:=TEXT((LEFT(A1,LEN(A1)-2)*60+RIGHT(A1,2))/24/60,＂H:MM~＂)&TEXT((LEFT(A1,LEN(A1)-2)*60+RIGHT(A1,2)+15)/24/60,＂H:MM＂) 如下图:

设置成日期类型:Dim aaa As Date

if TypeName(cells(i,1).value)=＂Date＂ then

<p>假设数据分别在A、B、C列,请自行修改代码中的行数</p> <p>另外,第二列中. = WorksheetFunction'第一列: 该日期是否为该月的第一个星期四 For Each rng In .