求助老师，用VBA实现时间格式精减！

netbluesky

huarong7984 发表于 2024-3-2 12:20
准确函数公式：=TEXT(INT(B3*1000000-5)/1000000,"HH:MM:ss")

VBA不能实现，VBA下无法使用TEXT函数

huarong7984

netbluesky 发表于 2024-3-2 12:37
VBA不能实现，VBA下无法使用TEXT函数

以下代码，仅供参考
Sub 提取时间()
    Dim lastRow As Long
    Dim i As Long
    Dim originalDate As Date
    Dim extractedTime As String
    lastRow = Cells(Rows.Count, "B").End(xlUp).Row
    For i = 2 To lastRow
        originalDate = Range("B" & i).Value
        extractedTime = WorksheetFunction.Text(Int(originalDate * 1000000 - 5) / 1000000, "hh:mm:ss")
        Range("C" & i).Value = extractedTime
    Next i
End Sub

netbluesky

^星^ 发表于 2024-3-2 10:39

感谢老师的代码！完全实现

ykcbf1100

用FormatDateTime函数转换一下即可。

ykcbf1100

代码如下：

1. Sub ykcbf()  '//2024.3.2
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     For i = 2 To r
   
4.         s = CDate(Cells(i, 2))
   
5.         Cells(i, 4) = FormatDateTime(s, vbLongTime)
   
6.     Next
   
7. End Sub
   
8. 
   

复制代码

netbluesky

ykcbf1100 发表于 2024-3-2 21:14
代码如下：

老师，你的源码结果与想要的不一样，在最后的毫秒上产生了向秒四舍五入的进位
我想要的是舍掉毫秒，要进位

wanghan519

数据源是csv，纯文本
那就用文本编辑器删掉点后面的三个数字，杀鸡焉用牛刀。。。

netbluesky

wanghan519 发表于 2024-3-4 06:46
数据源是csv，纯文本
那就用文本编辑器删掉点后面的三个数字，杀鸡焉用牛刀。。。

上千的文件数量，还有其它计算

wanghan519

netbluesky 发表于 2024-3-4 20:38
上千的文件数量，还有其它计算

批量改再多也是一句
计算其实纯文本不比Excel弱
主要看原始数据是不是csv

netbluesky

wanghan519 发表于 2024-3-5 01:25
批量改再多也是一句
计算其实纯文本不比Excel弱
主要看原始数据是不是csv

是csv,  批处理如何实现？