Re: Date Totalseconds

[Hubert JACQUOT-DION <jacquotdion at mac dot com>]

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