Data odierna in 3 variabili

[hacker_nait]

Scusate,

come posso ricavarmi la data odierna con Visual Basic?

Dovrei immagazzinare questi dati in 3 variabili (giorno, mese e anno)

[Sergio Pedone]

Postando su forum apposito.

[hacker_nait]

mi hanno detto di inserire il DTPicker, ma nn si aggiorna il giorno dopo (rimane la data del giorno precedente)

[Johnny_Depp]

Non si possono aprire discussioni identiche... crossposting
http://forum.html.it/forum/showthrea...hreadid=513321

[hacker_nait]

scusatemi, cmq nn rispondeva nessuno, perciò ho postato in questo forum, cmq potete aiutarmi?

[Sergio Pedone]

Il DTPicker è un componente grafico da aggiungere ad un form.
Dai uno sguardo alle funzioni date/time offerte dal linguaggio.

Date oggi = "07/09/2003"
oggi.getMonth()
oggi.getYear()
oggi.get...

Non uso VB da parecchio, quindi non mi ricordo alcune funzioni, ma credimi ci sono e sono molto comode.

[hacker_nait]

a me interessa ricavarsi la data attuale e poi dividerla in 3 variabili...

[Johnny_Depp]

Private Sub Timer1_Timer()
    
    Dim hh As Integer, mm As Integer, ss As Integer
    Dim dd As Integer, mo As Integer, yy As Integer
    Dim str As String
    
    str = Now() ' data odierna
    
    dd = Mid(str, 1, 2) ' giorno
    mo = Mid(str, 4, 2) ' mese
    yy = Mid(str, 7, 4) ' anno
    hh = Mid(str, 12, 2)' ore 
    mm = Mid(str, 15, 2)' minuti
    ss = Mid(str, 18, 2)' secondi 
    
    Label1.Caption = dd & "/" & mo & "/" & yy & " - " & hh & ":" & mm & ":" & ss

End Sub

N.B. inserisci un controllo timer (Timer1) e setta il suo intervallo a 1000 ed un controllo label (Label1)

[hacker_nait]

grazie milleeeeeeee

[drego85]

Se vuoi faciliate il tutto usa

text1.text = Date & "-" & Time

cosi segna data e ora il formato è il seguente

15.56.36 del 06/09/2003