Pourcentage de remise à une date donnée VB6

Question

i besoin code VB6 faire que

examble:

13 "jours" - 10% = 11 "jours", 16" heures "48" minutes »

i essayer ceci:

1- i convertir jours à m inutes

(13 * 24 * 60) = 18720

2.

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

maintenant comment formater le résultat de DD HH NN? MERCI

Answer 1

Comme cela en utilisant GAUCHE/MID/mot-clé DROIT

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.") 

Vous pouvez également regarder dans la commande FORMAT.