折扣百分比

Question

我需要在VB6代碼做出

examble：

13 「天」 - 10％= 11 「天」，16" 小時「48」 分鐘」

我試試這個：

1 - 我天轉換到m inutes

（13 * 24 * 60）= 18720

2.

Dim Result As Double 
Result = ((100 - 10)/100) * 18720 
Text3.Text = Result '"text3.text=16848" 

現在如何可以格式化導致到DD HH NN？ 感謝

Answer 1

像這樣使用左/中/右關鍵字

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命令。