Modification de la DATE SYSTEM en VB6Résolu

Question

bonjour.

je voudrais cr&#233;er une variable qui prendrait la valeur de la date systeme mais du mois precedent automatiquement.
exemple: si on est le 18/02/2004, je voudrais obtenir le 01/01/2004.

merci d'avance.

mltgn · Accepted Answer

Essaye ceci:

Dim TaDate As Date
MoisActu= Month(Now)
AnneeActu = Year(Now)

MoisActu=MoisActu - 1
TaDate= DateValue( "01/" &  MoisActu  &  "/" &  AnneeActu )
TaDate= DateValue("31/" &  MoisActu  & "/"  &  AnneeActu )

mltgn

22max · Answer

datsesys = Date
mois = mid(datesys,4,2)
mois = mois - 1
annee = mid(date,7,4)
if len(mois) = 1 then
   mois = "0" & mois
end if
Date = "01/" & mois & "/" & annee

Mais fait gaffe, je crois que l'ann&#233;e est sur 2 dans la date system. MAX

Le 22 juin 2004, un grand monsieur du monde de l'informatique nous a quitt&#233;. L'am&#233;ricain Bob Bemer, qui est l'inventeur du code ASCII cr&#233;&#233; en 1961 est d&#233;c&#233;d&#233; &#224; l'&#226;ge de 84 ans des suites

cs_ITALIA · Answer

Essayes :

MoisActu=Month(Now)
AnneeActu=Year(Actu)
TaDate=DateValue("01/"& MoisActu & "/" AnneeActu)

It@li@

cs_ITALIA · Answer

Oups :
TaDate=DateValue("01/"& MoisActu -1 & "/" AnneeActu)

It@li@

cs_ITALIA · Answer

ReOups D&#233;sol&#233; :

AnneeActu=Year(Now)

It@li@

crenaud76 · Answer

Et si on essayait avec la fonction DateAdd() les gars ?
UneDate = DateAdd("m", -1, Now)

Christophe R

cs_kimou75 · Answer

je pense que la methode d'Italia est celle qui corespond le plus, car je veux aussi une variable qui prend la date du dernier jour du precedent mois, le probleme c'est qu'a chaque mois, la date du dernier jour peut varier entre 29 et 31 !

cs_ITALIA · Answer

Coches Reponse accept&#233;e si c'est OK

It@li@

cs_kimou75 · Answer

bhen non c'est pas ok Italia, parsqu'il manque une parenthese ou un separateur quelque part, depuis tout &#224; l'heure je cherche, je trouve pas. je l'ais ecris comme toi pourtant:

Dim TaDate, datebis As Date
MoisActu= Month(Now)
AnneeActu = Year(Now)


TaDate= DateValue( "01/" &  MoisActu & -1 "/"  AnneeActu )
TaDate= DateValue("31/" &  MoisActu  & -1"/"   AnneeActu )

Modification de la DATE SYSTEM en VB6

9 réponses

Discussions similaires