Question

我有一个带有一些列数据的excel文件。第二列包含以下格式的时间值：HH：MM：SS。我想基于A列的值计算一些新值，并将它们写入另一个空列。

Excel工作表布局示例：

A           B        C         D   
12:30:00    xxx      xxx       calculated value
00:30:00    xxx      xxx       calculated value

左列D中的值将以这种方式计算（伪代码）：

for every value in column A:
   val temp = convert value in column A to minutes and divide by 30 
   (e.g. 00:30 --> (0 * 60) + 30 = 30/30 = 1)

   if (temp < 24):
      cellDValue = -180 + (temp * 7,5)
   else
      temp = temp - 24
      cellDValue = temp * 7,5

所以上面的表格看起来像这样：

A           B        C         D   
12:30:00    xxx      xxx       7,5
00:30:00    xxx      xxx       -127,5

实现这一目标的最快方法是什么？

Answer 1

您可以使用以下代码检索日期中的值：

dim intSecond为整数 dim intMin为整数 dim intHour为整数 dim intDay为整数 dim intMonth为整数 dim intYear as integer

dim objDate as date 
objDate = now

intSecond = Second(objDate)
intMin=  Minute(objDate)
intHour = Hour(objDate)
intDay = Day(objDate)
intMonth = Month(objDate)
intYear = Year(objDate)

将它们复制到另一个单元格并进行所需的计算。

计算列的值并将其写入excel文件

1 个答案: