请教VB中数据格式转换问题!!

wangchuang07272021-6-1660

本人vb菜鸟,现在遇到一个问题,还请高手帮忙指点!
cells(i,1) 单元格是日期格式,2021/6/16
现在想把日期转换成
20210616文本格式放入cells(i,2)


问题主要是月份和日期不足10的,前面无法自动补0
最新回复 (8)
  • pzx5215212021-6-16
    引用2
    基本所有语言都是有格式化的而且基本一致 mm 指的是补0 m不补 d同理
    [Asm] 纯文本查看 复制代码
    Sub dataformat() Dim a a = Worksheets(1).Cells(1.1) Worksheets(1).Cells(2.1) = Format(a, "yyyymmdd")End Sub

    注意设置为文本
    2021/6/16        20210616
  • weliong2021-6-16
    引用3
    cells(i,2)=format(cells(i,1),"yyyymmdd")这样就可以了。
  • ibmall2021-6-16
    引用4
    Format(cells(i,1),"yyyyMMdd")感觉应该是 MM,不是mm  
    mm 可能是分钟数吧
  • 楼主wangchuang07272021-6-16
    引用5
    pzx521521 发表于 2021-6-16 15:50
    基本所有语言都是有格式化的而且基本一致 mm 指的是补0 m不补 d同理
    [mw_shl_code=asm,true]Sub dataforma ...

    什么我设置后还是“2021/6/16  周三”
  • 楼主wangchuang07272021-6-16
    引用6
    weliong 发表于 2021-6-16 15:55
    cells(i,2)=format(cells(i,1),"yyyymmdd")这样就可以了。

    最后还是显示“2021/6/16周三”
  • pzx5215212021-6-16
    引用7
    wangchuang0727 发表于 2021-6-16 16:20
    什么我设置后还是“2021/6/16  周三”

    注意设置为文本  
    注意设置为文本
    注意设置为文本
    上面说过了
  • weliong2021-6-16
    引用8
    wangchuang0727 发表于 2021-6-16 16:23
    最后还是显示“2021/6/16周三”

    cells(i,2).NumberFormat = "@"
    cells(i,2)=format(cells(i,1),"yyyymmdd")这样再试试看!
  • weliong2021-6-16
    引用9
    weliong 发表于 2021-6-16 16:52
    cells(i,2).NumberFormat = "@"
    cells(i,2)=format(cells(i,1),"yyyymmdd")

    这个代码 在我的电脑上运行结果:20210616
  • 游客
    10
返回