Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Problème calcul sur DATES négatives ???

Problème calcul sur DATES négatives ???

27 réponses
Avatar
LE TROLL
Bonjour,

Je fais ça:

date_num_sem = Val(Text1(0)) & "/" &
Val(Text1(1)) & "/" & Val(Text1(2))
ns = Format(date_num_sem, "ww")
If ns = 0 Or ns = 53 Then ns = 1
------------
dim date_num_sem as date
Mon année est val(text1(2)))
Mon résultat = ns
------------

PROBLEME
Quand ma date devient - négative, la variable
date a une petite indigestion, ainsi que le "ww"
du numéro de semaine !!!

Y voyez-vous un remède mathématique, une ruZe
???

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Gloops
LE TROLL a écrit, le 15/03/2008 08:31 :
tout yyyymmdd...




Là, tu rejoins en fait, peut-être sans t'en rendre compte, le princip e
de DateSerial : dans cette fonction l'ordre des paramètres est imposé
(et justement c'est année / mois / jour), ce qui évite une série de
problèmes pas tristes. Une fois la date transmise correctement, ensuite
on peut l'afficher correctement selon la culture de l'utilisateur, avec
une fonction faite pour ça, comme Format.

Enfin j'arrive au point de me demander si le redire encore un coup fera
que ça sera plus clair : pas forcément ?
Avatar
Gloops
Jean-marc a écrit, le 14/03/2008 22:04 :
ret = BuildDate(CInt(txtYear.Text), _
CInt(txtMonth.Text), _
CInt(TxtDay.Text), _
myDate)





Ah, oui, pour intégrer la gestion d'erreur ?

J'ai bien fait de venir lire, j'avoue que je n'y aurais pas forcément
pensé (avant de m'être planté dessus deux ou trois fois).
Avatar
Jean-marc
Gloops wrote:
LE TROLL a écrit, le 15/03/2008 08:31 :
tout yyyymmdd...




Là, tu rejoins en fait, peut-être sans t'en rendre compte, le principe
de DateSerial : dans cette fonction l'ordre des paramètres est imposé
(et justement c'est année / mois / jour), ce qui évite une série de
problèmes pas tristes. Une fois la date transmise correctement,
ensuite on peut l'afficher correctement selon la culture de
l'utilisateur, avec une fonction faite pour ça, comme Format.

Enfin j'arrive au point de me demander si le redire encore un coup
fera que ça sera plus clair : pas forcément ?



Je pense que non, pour ma part.

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
Jean-marc
Gloops wrote:
Jean-marc a écrit, le 14/03/2008 22:04 :
ret = BuildDate(CInt(txtYear.Text), _
CInt(txtMonth.Text), _
CInt(TxtDay.Text), _
myDate)





Ah, oui, pour intégrer la gestion d'erreur ?



Tout à fait :-)


Ecrire sous cette forme présente d'énormes avantages. Environ 20 ans
de pratique m'ont convaincu de l'utilité de ce genre de choses, tous
langages confondus.


--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Avatar
Modeste
Bonsour® Gloops avec ferveur ;o))) vous nous disiez :

tout yyyymmdd...


Là, tu rejoins en fait, peut-être sans t'en rendre compte, le principe
de DateSerial : dans cette fonction l'ordre des paramètres est imposé
(et justement c'est année / mois / jour), ce qui évite une série de
problèmes pas tristes. Une fois la date transmise correctement,
ensuite on peut l'afficher correctement selon la culture de
l'utilisateur, avec une fonction faite pour ça, comme Format.



http://fr.wikipedia.org/wiki/ISO_8601

--
--
@+
;o)))
Avatar
LE TROLL
Ben mon Gloop :o)

Tu fais l'inspecteur des travaux finis, pas
trop fatiguant, chat va la forme ?

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Gloops" a écrit dans le
message de news:

LE TROLL a écrit, le 14/03/2008 20:46 :
Bonjour,

Ben... ben... une année inférieure à 1 :o)




Ben oui, avant Jésus-Christ, quoi :)

Oui, je sais, plus haut dans le fil, j'ai parlé
d'application
multiculturelle. Donc, il faut préciser si ce
n'est pas avant Mohamet.
Parti sur cette lancée, on a intérêt à regarder où
on met les pieds. :)
Avatar
LE TROLL
Ah mon cher Modeste :o)

Tu est une mine de renseignements
inépuisables, surtout dans le copier/coller, un
vrai chercher, même qu'il te prendrait peut être
au CNRS... pourquoi ? Ben pour chercher, tiens !

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Modeste" a écrit dans le
message de news:

| Bonsour® Joseph Attila avec ferveur ;o))) vous
nous disiez :
|
| > Je connais ça, les calculs avec JJ, je les
| > utilise parfois, sauf que je n'arrive pas à
mettre
| > la main surla formule des JJ négatifs anciens
?
| > Pour la nouvelle base JJ, ça va compliquer les
| > calcul sur l'ancienne base. T'auras un JJ
ancien
| > et un JJ nouveau !
|
| http://www.louisg.net/Formules.htm
|
| pour en revenir à la notion initiale de semaine
:
| >> ns = Format(date_num_sem, "ww")
|
| qu'en est-il des n° de semaine en octobre 1582
??? ;o)))
|
| parler de N°de semaine pour un programme
astronomique, ou l'on peut remonter sur
| 40.000.000.000 d'année (création de l'univers),
me parait quelque peu hors
| propos ;o)))
| avant 321(+JC) il conviendra donc plutôt de
parler de lunaisons ;o)))
| La durée de la semaine (7 jours) correspond
approximativement au quart d'un mois
| lunaire (28 jours).
|
|
| http://www.louisg.net/semaine.htm
|
| En Occident, l'emploi du découpage en semaines
date seulement du IIIe siècle
| après J. C.
| précédement on parlait de décompte romain en
ides et calendes
| Les Égyptiens, les Chinois et les Grecs
groupaient les jours en décades.
| La division du temps en périodes de sept jours
semble avoir été utilisée par les
| Chaldéens.
| L'adoption du dimanche chrétien comme jour de
repos, au lieu du samedi juif, est
| officialisé par un décret de l'empereur
Constantin Ier en 321.
| Les pays anglo-saxons ou le Japon, font
commencer la semaine par le dimanche
|
| pour l'organisation internationale de
normalisation (norme ISO 8601) Le lundi
| est considéré comme le premier jour de la
semaine.
| La semaine qui porte le numéro 01 est celle qui
contient le premier jeudi de
| janvier
| cette décision récente n'a d'autres soucis que
de "coordonner" les calendriers
| d'affaires et ne changera en rien les habitudes
et traditions des pays du monde.
|
|
| jour julien chronologique (CJD), une
modification du jour julien astronomique
| (AJD).,
| où le point de départ est placé à minuit du 1er
janvier 4713 av. J.-C.
| CJD = AJD + 0,5 (½).
|
| Les jours liliens (LD) commencent à partir du 14
octobre 1582
| LD = CJD - 2 299 160 = AJD - 2 299 159,5
|
| Les jours juliens modifiés (MJD) furent
introduit dans les années 1950 par les
| scientifiques afin de simplifier les calculs
astronautiques.
| MJD = AJD - 2 400 000,5
| Les jours juliens modifiés commencent donc le 17
novembre 1858 à minuit
|
| Les jours juliens tronqués (TJD) sont défini de
la façon suivante :
| TJD = AJD - 2 440 000,5 = MJD - 40 000
| Les jours juliens tronqués sont utilisés par la
NASA ; ils commencent le 24 mai
| 1968, époque à laquelle les missions lunaires
Apollo étaient en cours.
|
| sources :
| http://fr.wikipedia.org/wiki/Jour_julien
|
http://www.imcce.fr/fr/ephemerides/astronomie/Promenade/pages2/278.html
|
http://www.imcce.fr/fr/ephemerides/astronomie/jour_julien/index.php
| http://www.nr.com/julian.html
|
| pour ces trois derniers lien accés aux sources
possibles ;o)))
|
| --
| --
| @+
| ;o)))
|
|
1 2 3