ajouter deux secondes a un temps

Question

Bonjour,

je voudrais ajouter par exemple deux secondes a un temps de la forme xx : xx : xx , xxx

exemple :

que 00:21:59,700 devienne 00:22:01,700

merci d'avance

PCPT · Answer

salut,

DATEADD te permet d'ajouter une valeur à une date "valide", ce que n'est pas ta chaine

çà donne quelque chose dans ce genre :



Function 
GetModifiedDate(
ByVal 
sDate 
As String
, 
ByVal 
iSecondsAdded 
As Integer
) 
As String

    Dim d As Date, p As Integer
    
'   pas de ms 
pour avoir une date valide
    p = InStrB(1, sDate, ",")
    d = CDate(LeftB$(sDate, p - 1))

'   retourne date valide + X 
secondes, puis ajoute les ms
    GetModifiedDate = DateAdd("s", iSecondsAdded, d) & MidB$(sDate, p)
End Function





++


<hr size="2" width="100%" />
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

ajdw · Answer

Salut,

T'as essayé avec la fonction Format ? Je suis certain de l'avoir utilisé avec succès pour ce genre de travail sur des dates et temps.

A +

Un code et ça repart

Ajouter deux secondes a un temps

2 réponses

Votre réponse

Discussions similaires