小编EEM*_*EEM的帖子

问题:

下面的格式有N个足球运动员,每张11名球员的球员组合将会吐出.

每个11人的阵容必须遵循以下限制.

它应该能够选择球员作为"核心",这意味着他们将出现在100%的输出阵容中.

输入:

  A               B       C        D                 E
Name          Position  Team     Salary     Core Player? 1="Yes",0="No"
Darron Gibson   M        EVE    6500000              0
Riyad Mahrez    M        LEI    11700000             0
Andrej Kramaric F        LEI    6900000              0
Sadio Mané      M        SOT    12600000             0
Victor Anichebe F        WBA    5300000              1
Serge Gnabry    M        WBA    6300000              0
Dimitri Payet   M        WHM    13500000             0
Juan Mata       M        MUN    10700000             0
  .
  .
  .so on there is list of players

每个团队的限制:

Maximum Salary  100000000   Allowed per …

我正在尝试使用 vba 显示两个时间戳之间的天数、小时数、分钟数或秒数。

到目前为止，我的代码给出了小时数或天数。

Sub Date_Dif()

    Dim d1 As Date
    d1 = Range("A8").Value

    Dim d2 As Date
    d2 = Now

    Dim hrsDiff As Long
    hrsDiff = DateDiff("h", d1, d2)

    ActiveSheet.Range("Z5").Value = IIf(hrsDiff >= 24, _
               hrsDiff \ 24 & " days " & hrsDiff Mod 24 & " hours", _
               hrsDiff & " hours")

End Sub

我该如何调整它以给我几分钟或几秒钟？

提前致谢