En fait c'est super ce site de l'horloge parlante, merci.
Pour mon problème je viens de trouver la solution, la valeur
retournée n'est pas de l'integer mais du double,
le code corrigé et qui fonctionne:
Dim d, dd as Date
Dim theDate as New Date
Dim i,y,z as double // <= ici était l'erreur
Dim DateText as string
Dim DateOK as Boolean
y=theDate.TotalSeconds
d= New Date
d.Year=2006
d.Month=11
d.Day=12
i=d.TotalSeconds
DateText="25/02/2006"
DateOk=ParseDate(DateText,dd)
z=dd.TotalSeconds
MsgBox str(i)+" "+str(y)+" "+str(z)
Pour info le Totalsecond retourne le nombre de secondes entre le 1er
janvier 1904 00h00m00s et la date fournie.
Cela fonctionne aussi avec des dates avant ce 1er janvier 1904, la
valeur est alors négative
C'est le moyen que j'opte pour connaître le nombre de jour qui sépare
deux dates... je n'ai pas trouvé de fonction qui le faisait.
Je prends les Totalseconds des deux dates et je converti la
différence en jour.
Hubert
Le 30 nov. 06 à 08:27, antoine cretaux a écrit :
Et vous voudriez quoi comme heure ?
(Le code que j'avais donné hier ne doit pas corrrespondre à ce que
vous chercher)
Le 30 nov. 06 à 08:20, Hubert JACQUOT-DION a écrit :
Voici un exemple :
Dim d, dd as Date
Dim theDate as New Date
Dim i,y,z as integer
Dim DateText as string
Dim DateOK as Boolean
y=theDate.TotalSeconds
d= New Date
d.Year=2006
d.Month=11
d.Day=12
i=d.TotalSeconds
DateText="25/02/2006"
DateOk=ParseDate(DateText,dd)
z=dd.TotalSeconds
MsgBox str(i)+" "+str(y)+" "+str(z)
nous obtenons trois fois le même nombre.
Hubert
Le 29 nov. 06 à 16:42, Michel LO a écrit :
avec quel code ?
Michel Lo
BELT
45, rue Aristide Briand
92300 LEVALLOIS-PERRET
Le 29 nov. 06 à 14:11, Hubert JACQUOT-DION a écrit :
bonjour,
je n'arrive pas à récupérer le Totalsecond d'une date donnée.
Quelque soit la date que je mette, je n'obtient que le total
depuis aujourd'hui. Je n'ai trouvé aucune astuce pour le
contourner.
Hubert
Réalbasic 2006 release4
|