Compte a rebour

Marsh Posté le 22-12-2005 à 16:04:03

Bonjour,

je cherche un petit programme faisant compte a rebour, mais "inversé". je m'explique :

il est 16h02min38s, je voudrais savoir quelle heure il sera dans 2h21min05s par exemple.
Est-ce qu'un programme de ce genre existe?

Reply

Marsh Posté le 22-12-2005 à 16:04:03

Reply

Marsh Posté le 24-12-2005 à 14:31:41

ha bin super vive les réponse! de mieux en mieux ce forum

Message cité 1 fois

Reply

Marsh Posté le 24-12-2005 à 16:08:32

beletteenrage a écrit :

ha bin super vive les réponse! de mieux en mieux ce forum

t'es pas obligé d'être désagréable, si personne ne t'as répondu c'est qu'on ne connait pas forcément un tel logiciel

Reply

Marsh Posté le 24-12-2005 à 16:20:15

Du coup ca m'ennuie de répondre à une belette enragée... alors que la solution n'est pas bien compliquée à ce problème

Reply

Marsh Posté le 24-12-2005 à 16:41:15

Tu prends tes petites mimines, tu ouvres Excel et tu rentre les bonnes formules avec les bons formats de cellules et voila c'est fait

Reply

Marsh Posté le 24-12-2005 à 19:01:50

excusez moi, je me suis enervé un peu vite (mais en meme temps j'ai eu des réponses ...)

Reply

Marsh Posté le 25-12-2005 à 11:59:20

Ton compte à rebour tu as besoin qu'il soit dynamique (c'est à dire qu'à chaque seconde qui passe le chiffre est recalculé) ou statique (il te donne le calcul pour une seule heure) ?

As-tu besoin qu'il comptabilise à partir de l'heure courante ou depuis une heure quelconque que tu choisis ?

Voici un exemple de script qui effectue ce que tu demande. Il suffit de copier-coller dans un fichier nommé compte_a_rebours.vbs le code ci-dessous :

' defini une fonction pour ajouter un 0 devant
function AddLeading(sNumber)
if sNumber < 10 Then
AddLeading = "0" & sNumber
else
AddLeading = CStr(sNumber)
end if
end function

' obtient la date courante
sTimeNow = Now()
sHour = AddLeading(Hour(sTimeNow))
sMinute = AddLeading(Minute(sTimeNow))
sSecond = AddLeading(Second(sTimeNow))

' demande une heure à l'utilisateur au format hh:mm:ss
sTimeNow = InputBox("Saisir l'heure à partir de laquelle vous souhaitez décompter le temps", _
"Compte à rebours", _
sHour & ":" & sMinute & ":" & sSecond)

' obtient une heure au format hh:mm:ss
sTimeDiff = InputBox("Saisir le nombre d'heures, minutes et secondes au format hh:mm:ss", "Compte à rebours", "00:00:00" )

' eclate les composantes de l'heure dans un tableau
aTimeDiff = Split(sTimeDiff, ":" )

' calcul de décompte
sTimeResult = DateAdd("h", aTimeDiff(0), sTimeNow) ' heures
sTimeResult = DateAdd("n", aTimeDiff(1), sTimeResult) ' minutes
sTimeResult = DateAdd("s", aTimeDiff(2), sTimeResult) ' secondes

' affiche le résultat
sHourResult = AddLeading(Hour(sTimeResult))
sMinuteResult = AddLeading(Minute(sTimeResult))
sSecondResult = AddLeading(Second(sTimeResult))
MsgBox "Dans " & sTimeDiff & " heures à partir de " & sTimeNow & " il sera " & sHourResult & ":" & sMinuteResult & ":" & sSecondResult & " !", 0, "Compte à rebours"

Reply

Marsh Posté le 25-12-2005 à 16:44:45

mais c'est parfait ça! alors là merci beaucoup!!

joyeux noel a tous et à toutes aussi ;-)

Reply

Compte a rebour

Sujets relatifs:

Leave a Replay