精华内容
下载资源
问答
  • VBA获取当前时间

    千次阅读 2019-07-30 10:31:55
    1.获取当前的系统时间在【A1】中,系统中的年在[B1],月在【C1】日在【D1】 Sub D() ActiveCell.FormulaR1C1 = "=NOW()" Range("B1").Select ActiveCell.FormulaR1C1 = "=year" ...

    1.获取当前的系统时间在【A1】中,系统中的年在[B1],月在【C1】日在【D1】

    Sub D()
    ActiveCell.FormulaR1C1 = "=NOW()"
     Range("B1").Select
     ActiveCell.FormulaR1C1 = "=year"
     Range("B1").Select
     ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
     Range("C1").Select
     ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
     Range("D1").Select
     ActiveCell.FormulaR1C1 = "=DAY(RC[-3])"
     Range("D2").Select
    End Sub
    
    展开全文
  • 如何用VBA获取当前时间

    万次阅读 2018-06-09 16:52:29
    获取当前的系统时间在【A1】中,系统中的年在[B1],月在【C1】日在【D1】Sub D()ActiveCell.FormulaR1C1 = "=NOW()" Range("B1").Select ActiveCell.FormulaR1C1 = "=year" Range(&...

    获取当前的系统时间在【A1】中,系统中的年在[B1],月在【C1】日在【D1】

    Sub D()
    ActiveCell.FormulaR1C1 = "=NOW()"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "=year"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "=YEAR(RC[-1])"
        Range("C1").Select
        ActiveCell.FormulaR1C1 = "=MONTH(RC[-2])"
        Range("D1").Select
        ActiveCell.FormulaR1C1 = "=DAY(RC[-3])"
        Range("D2").Select
    End Sub

    展开全文
  • dim sYear,sMonth,sDay as string sYear=format(now-1,"yyyy") sMonth=format(now-1,"m") sDay=format(now-1,"d") ...注释:now是今天的日期和时间,now-1代表昨天的日期和时间,yyyy是年,m是月,d是日

    dim sYear,sMonth,sDay as string

    sYear=format(now-1,"yyyy")

    sMonth=format(now-1,"m")

    sDay=format(now-1,"d")

    注释:now是今天的日期和时间,now-1代表昨天的日期和时间,yyyy是年,m是月,d是日

     

    展开全文
  • 文件的日期时间分创建时间和修改时间,文件一旦创建,创建时间就定下不变了,所以日常应用中一般都是取修改时间,我的一个应用(生成二维码)中就是取这个时间判断图片文件是否重新生成。 1、取文件的修改时间VBA有...

    iamlaosong文

    文件的日期时间分创建时间和修改时间,文件一旦创建,创建时间就定下不变了,所以日常应用中一般都是取修改时间,我的一个应用(生成二维码)中就是取这个时间判断图片文件是否重新生成。

    1、取文件的修改时间VBA有专门的函数FileDateTime,如下面的语句:

        PicName = ThisWorkbook.Path & "\YiCode.bmp"
        t_now = Now()
        tim1 = Timer
        GenPic = "Fail"
        '此处省略。。。。。
        Do While Timer < tim1 + 5   '5秒内文件日期没变化则编码失败
            If t_now <= FileDateTime(PicName) Then
                GenPic = "OK"
                UpdatePic
                Exit Do
            End If
        Loop
    

    2、如果必须取文件的创建时间,则需要用到文件系统对象了,其属性:

    DateCreated 属性 
    返回指定文件或文件夹的创建日期和时间。 
    DateLastModified属性 
    返回最后一次修改指定文件或文件夹的日期和时间
    DateLastAccessed属性 
    返回最后一次访问指定文件或文件夹的日期和时间

    3、关于这三个时间的几个问题

    1)文件创建时间和修改时间一致的问题。这是因为文件是在编辑完成之后才保存的,所以创建时间和修改时间是一致的,就像你用word敲了一篇稿子,敲完后保存成文件,这时候文件的创建时间和修改时间是一致辞的,如果你再没有打开过这个文件,那么连访问时间也是一致的。
    2)文件创建时间晚于修改时间的问题。这个创建时间是指文件在你的电脑上创建的时间,而并非该文件最初产生的时间,最简单的,你把文件复制一份,看看创建时间,是不是在修改时间之后?答案是肯定的。
    3、关于文件的访问时间。这个时间现在和修改时间一致,当初定义的这个访问时间是跟着访问修改的(访问不只是只读不写,查看目录属性也是访问),但随着硬盘的增大,文件的增多,几十万个文件都是常事,如果读操作再加一个写操作,那么这个确实会影响电脑的性能,用户体验也不好,所以从 XP2003 SP1起,为了性能,默认把LastAccessTime(最后访问时间)给禁用了。只有在修改文件时,才会顺便更新访问时间。

    下图是各个文件系统对时间的支持情况:

    * LastAccessTime(最后访问时间)默认禁用是可以打开的,命令如下(0是打开,1是禁用):

    fsutil behavior set disablelastaccess 0

    4、提取文件的这些属性,看下面例子:

    Sub Command1_Click()
        Application.ScreenUpdating = False
        Set fso = CreateObject("Scripting.FileSystemObject")
        strfile = Application.InputBox("请输入文件的完整名称:", "请输入文件的完整名称:", , , , , , 2)
        Set objfile = fso.GetFile(strfile)
        If fso.fileexists(strfile) Then
            
            sReturn = "文件属性: " & objfile.Attributes & vbCrLf
              
            sReturn = sReturn & "文件创建日期: " & objfile.DateCreated & vbCrLf
              
            sReturn = sReturn & "文件修改日期: " & objfile.DateLastModified & vbCrLf
              
            sReturn = sReturn & "文件大小 " & FormatNumber(objfile.Size / 1024, -1)
              
            sReturn = sReturn & "Kb" & vbCrLf
              
            sReturn = sReturn & "文件类型: " & objfile.Type & vbCrLf
     
            MsgBox sReturn
     
        Else
            MsgBox strfile & " :不存在"
        End If
        Application.ScreenUpdating = True
    End Sub
    

     

    展开全文
  • VBA批量获取照片拍照时间 DSCN1547 2012-07-12 17:17:15 2012:07:12 17:17:15 星期四 DSCN1548 2012-07-12 17:17:33 2012:07:12 17:17:33 星期四 DSCN1553 2012-07-12 17:19:14 2012:07:12 17:19:14 星期四 DSCN1554...
  • 示例 Option Explicit ... '获取日期 dDate1 = Date Debug.Print "当前日期为:" & dDate1 '设置日期 Date = DateSerial(2013, 2, 1) '获取新日期 dDate2 = Date Debug.Print "当前日期为:" &
  • VBA中,没有预定义的today()函数。 使用now()函数,获取当前日期 使用date()函数,获取当前日期
  • 这个是我写的一个获取基金历史净值的excel vba脚本,大家可以试试,经过尝试,感觉要用比较新的wps的excel打开使用效果比较好,微软的excel好像效果不好,控件会飘,有什么想法需求也可以和我联系哟~,欢迎~
  • '获取本周一所在日期Function FirstDayOfWeek() As String FirstDayOfWeek = DateAdd("d", -(Weekday(Date) - 2), Date)End Function '获取本周五所在日期Function LastDayOfWeek() As String ...
  • VBA获取股票历史数据方法

    千次阅读 2019-09-29 15:48:14
    Sub 股票历史记录查询() Worksheets("历史记录表").Cells.Clear ''输出结果表 X = Application.CountA(Worksheets("代码").Range("A:A")) ''需要提取的股票代码 Y = 1 For i = 2 To X dm = IIf(Worksheets("代码...
  • VBA日期时间函数总结(全)

    万次阅读 2019-04-17 12:42:39
    日期函数: 编号 函数 描述 1 Date 返回当前的系统日期。 2 CDate 将给定的输入转换为日期。 3 DateAdd 返回一个指定的时间间隔被添加的日期。 4 DateDiff 返回两个时间段...
  • 主要介绍了Python获取时间范围内日期列表和周列表的函数,文中给大家提到了python获取日期的周数 ,需要的朋友可以参考下
  • 在之前的博文中讲述了身份证号校验功能函数和银行卡信用卡卡号校验功能函数,主要用于检查身份证号和银行卡信用卡卡号录入是否正确,这里再为大家介绍一下用于检查日期录入是否正确的函数。 代码code Sub 检查日期...
  • VBA基础知识整理(日期,时间)

    万次阅读 2019-05-13 20:13:40
    日期和时间计算 '1 计算两个日期相隔天数,月数,年数,小时,分种,秒 Sub tt1() Dim d1, d2 As Date d1 = #11/21/2011# d2 = #12/1/2011# Debug.Print "相隔" & (d2 - d1) & "天" Debug.Print "相隔" &...
  • Excel VBA高级编程 -根据日期查找数据

    千次阅读 2020-08-11 22:43:20
    关注公众号:万能的Excel 并回复【日期搜索】获取源文件! 功能说明: 打印出货单的时候,经常会需要从数据库中查询一段时间内的所有数据 本工作表使用VBA实现了如下功能: 1、实时统计重复项 2、重复项数据...
  • 自动提取http://www.x-rates.com/中的汇率数据
  • 使用outlook-VBA二次开发,自动获取特定发件人,特定主题下的附件,将其存储到本地
  • 通过建立XMLHTTP对象,获取网页Text,然后分析源码得到时间。
  • 现需要将合同签订日期转换成英文日期,该如何通过VBA批量实现? 姓名 合同签订日期 英文日期1 英文日期2 英文日期3 辛劭钧 2010/1/1 1 Jan 2010 1 January 2010 1st Jan,2010 林庆荣 ...
  • 上一篇我们已经用VBA实现SQL检索,并实现相同项求和的功能。那么如何根据日期范围筛选我们需要的数据呢?今天我们看看另外一个SQL查询结构: SQL = "select 字段1 from [原始数据$] where 出库时间 between #开始...
  • VBA编程知识点(2)——日期学习自杨洋老师《全民一起学VBA》1. excel中的日期型单元格,只能表示1900年1月1日以后的时间。1900年1月1日以前的时间,使用日期公式进行处理会出错的。单元格存放的日期与date所能表达...
  • Excel VBA获取视频文件的长度

    千次阅读 2014-01-04 14:37:02
     --------------------------------------------------------------------------------------------------------------------------------- 方法一,通过Windows Media Player:  Sub 视频长度() ...
  • vba 时间换算 服务及其功能 (Services and their features) Exchange rates can be obtained from many sources, some free, some paid. 汇率可以从许多来源获得,有的是免费的,有的是付费的。 Hardly two of ...
  •  这几天帮客户做个系统,需要获到系统环境变量及一些特殊文件夹。收集和研究了各种代码。记录一下,以免自己忘记,...1.Environ("AllUsersProfile") 在XP下 获取的是 C:\Documents and Settings\All Users  
  • 大家好,我们今日讲解"VBA信息获取与处理"教程中第十七个专题"文件及文件夹信息的获取及操作"的第三节"利用VBA获取文件的信息和属性",这个专题是非常实用的知识点,希望大家能掌握利用。教程会提供配套的程序文件。...
  • VBA获取您的电脑硬件信息

    千次阅读 2009-09-30 14:09:00
    自 : http://club.excelhome.net/thread-395989-1-9.html1. 获取主板序列号(注意并不是所有的主板都可以获得)Sub 主板序列号() Dim objs As Object, Obj As Object, WMI As Object, 主板序列号 Set WMI = GetObject...
  • 公司运营人员是用excel宏处理数据时发现,0.X的小数值只会显示...windows设置 -》时间和语言–》日期、时间、区域格式设置-》其他日、时间和区域设置-》更改日期、时间或数字格式-》其他设置 按图设置为显示前导0 ...
  • VBA编码经验——日期类型的比较

    千次阅读 2017-07-13 03:57:48
    这几天,写VBA代码的过程中,感觉日期类型有点难搞,常常要耗掉我很多时间。 在这里标记一下。 '获取更新日期(update)为指定日期的词条总数 strSQL5 = "SELECT count(termid) FROM ikb WHERE date_...
  • 通过这个函数能够计算非常多我们须要的日期,比方上月上年同期日期等。  语法  DateAdd(interval, number, date)  DateAdd 函数语法中有下列命名參数:  interval 必要。字符串表达式。是所要加上去的时间...
  • 直接上代码~~ ... 在一个 Excel 生成当月或当年指定月份的日期及星期 ' 获取星期的显示 Function disp(i As Integer) Select Case i Case 1 disp = "一" Case 2 disp = "二" Case 3 ...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 2,000
精华内容 800
关键字:

vba获取日期