Date 给定日期的折扣百分比vb6

我需要vb6中的代码来实现这一点

例：

13天-10%=11天，16小时，48分钟

我试试这个：

1-我将天转换为分钟

（13*24*60）=18720

二,

现在如何将结果格式化为DD HH NN？

---

感谢使用左/中/右关键字这样做

Dim Result As Double
Dim Dayz, Hourz, MinuteZ As String
'
'Using your formula - which i have not checked
Result = ((100 - 10) / 100) * 18720
'
'extract values
Dayz = Left(Result,2)
Hourz = Mid(Result, 3, 2)
Minutez = Right(Result, 2)
'concatenate
Text3.Text = (Dayz & " Days, " & Hourz & " Hours, " & Minutez & " Minutes.")

---

您还可以查看FORMAT命令。

Re convert back，当然。在代码@Giorgio_Brausi？Result/24/60中，如何重新转换将返回11,7。

Dim Result As Double
Dim Dayz, Hourz, MinuteZ As String
'
'Using your formula - which i have not checked
Result = ((100 - 10) / 100) * 18720
'
'extract values
Dayz = Left(Result,2)
Hourz = Mid(Result, 3, 2)
Minutez = Right(Result, 2)
'concatenate
Text3.Text = (Dayz & " Days, " & Hourz & " Hours, " & Minutez & " Minutes.")