Récuperation de date

Question

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

salim0shark · Answer

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

BruNews · Answer

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++

salim0shark · Answer

koi j'ai pas saisie ce ke t'as di répete

jmfmarques · Answer

"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é !

salim0shark · Answer

désolé pourquoi vous vous ets énervés je ne voulais pas paraitre grotesque
j ss desolé

PCPT · Answer

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

salim0shark · Answer

merci pour votre aide et encore désolé pour ma conduite

Récuperation de date

7 réponses

Votre réponse