Récuperation de date

bruce207 Messages postés 106 Date d'inscription mardi 4 mars 2008 Statut Membre Dernière intervention 2 mai 2012 - 19 avril 2008 à 17:37
salim0shark Messages postés 31 Date d'inscription mardi 11 mars 2008 Statut Membre Dernière intervention 3 novembre 2014 - 20 avril 2008 à 10:31
Bonjour,
Je voudrais savoir comment récuperer la date du jour et la conserver figée. Ceci pour faire une démo de mon application.
Merci

7 réponses

salim0shark Messages postés 31 Date d'inscription mardi 11 mars 2008 Statut Membre Dernière intervention 3 novembre 2014
19 avril 2008 à 20:42
salut
bon tu peux récupérer la date de plusieurs facon c'est tres facile a faire .
tu peux ajouter la composante Microsoft Calendrier (Projet ------> Composants ----->Controls) et tu ajoutras cette composante , tu n'as qu'a t'en servir ; elle se trouvras désormais dans ta boite à outils sinon :
 
tu ajoutes un textbox par exemple et tu écris ce code
Private Sub Form_Load()
Text1.Text = "" & DateTime.Date
End Sub

ok
si t'as encore de pblm demande

salim0shark
0
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019
19 avril 2008 à 20:54
Dim d As Date
d = Now

Mieux qu'une démo, publie le code et demande que les gens confirmés te l'améliorent.

ciao...
BruNews, MVP VC++
0
salim0shark Messages postés 31 Date d'inscription mardi 11 mars 2008 Statut Membre Dernière intervention 3 novembre 2014
19 avril 2008 à 21:24
koi j'ai pas saisie ce ke t'as di répete
0
jmfmarques Messages postés 7666 Date d'inscription samedi 5 novembre 2005 Statut Membre Dernière intervention 22 août 2014 27
19 avril 2008 à 22:02
"koi j'ai pas saisie ce ke t'as di répete"

Si ceci (!!!) se traduit (puisqu'il faut traduire ce "machin") par

"Euh ... je n'ai pas saisi ce que tu as dit ... Peux-tu répèter, s'il te plait  ?"


Je répète à la place de Brunews qui, lui, ne s'est pas exprimé en SMS (interdit par le règlement) mais en Français tout-à-fait compréhensible :




citation :

"Dim d As Date
d = Now

Mieux qu'une démo, publie le code et demande que les gens confirmés te l'améliorent."

Content ? C'est répété !
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
salim0shark Messages postés 31 Date d'inscription mardi 11 mars 2008 Statut Membre Dernière intervention 3 novembre 2014
20 avril 2008 à 00:46
désolé pourquoi vous vous ets énervés je ne voulais pas paraitre grotesque
j ss desolé
0
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
20 avril 2008 à 09:04
bonjour,

salim0shark -> le grotesque est de demander de "répéter" sur un forum...
les paroles s'envolent et les écrits restent(je ne sais plus le nom de l'auteur, bien connu pourtant)

celà dit fait attention au langage SMS stp, peu toléré!

bruce207 -> récupérer la date du jour, pas bien difficile (fonction DATE). mais il faut l'enregistrer.
voici une solution SIMPLE par le registre

Option Explicit

Private Sub Form_Load()    Me.Caption  "DATE DE 1er LOAD
" &  GetDateFirstLoad
End Sub

Function GetDateFirstLoad() As String
'   récupère la date de
premier lancement dans le registre
    GetDateFirstLoad  = GetSetting(App.Title, "Start", "Date", vbNullString)

'   date vide =
premier lancement, on enregistre la date
    If LenB(GetDateFirstLoad) = 0 Then
        GetDateFirstLoad = CStr(Date)
        Call SaveSetting(App.Title, "Start", "Date", GetDateFirstLoad)
    End If
End Function

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
0
salim0shark Messages postés 31 Date d'inscription mardi 11 mars 2008 Statut Membre Dernière intervention 3 novembre 2014
20 avril 2008 à 10:31
merci pour votre aide et encore désolé pour ma conduite
0
Rejoignez-nous