+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 5 su 5

Data e ora in TextBox con Timer

  1. #1
    pierovb non è in linea Scolaretto
    Post
    356
    Like Inviati  
    0
    Like Ricevuti  
    0
    Buonasera a tutti
    con il seguente codice visualizzo in due TextBox la data e l'ora corrente:

    
    Private Sub Timer3_Timer()
    
            minuti = Minute(Time())
                         If Len(minuti) = 1 Then minuti = "0" & minuti
    
            ore = Hour(Time())
                     If Len(ore) = 1 Then ore = "0" & ore
                         
            secondi = Second(Time())
                     If Len(secondi) = 1 Then secondi = "0" & secondi
    
    
            txtTime.Text = ore & ":" & minuti '& ":" & secondi
    
            txtData.Text = Format(Now, "dd/mm/yyyy")
    
    
    End Sub
    
    funziona tutto egregiamente l'unico inconveniente e che quando carico la form devo, ovviamente, attendere almeno
    un secondo prima che nelle rispettive text siano visibili data e ora.
    Quindi vi chiedo è possibile eliminare l'attesa agendo eventualmente sulla form che avvia la form dove c'è il timer e le due Text ?

  2. #2
    L'avatar di Brontolo
    Brontolo non è in linea Very Important Person
    Post
    3,135
    Like Inviati  
    5
    Like Ricevuti  
    5
    Ti conviene spostare il codice in una routine separata da richiamare sia nell'evento Timer del Timer sia nell'evento Load del Form.
    Inoltre la puoi semplificare usando la funzione Format ed evitando il test per i valori di una sola cifra.
    ℹ️ Leggi di più su Brontolo ...

  3. #3
    pierovb non è in linea Scolaretto
    Post
    356
    Like Inviati  
    0
    Like Ricevuti  
    0
    Perfetto.
    Non sono riuscito però ad evitare il test per i valori ad una cifra usando la funzione format.

  4. #4
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Post
    17,503
    Blogs
    5
    Like Inviati  
    6
    Like Ricevuti  
    35
    E perché non sei riuscito? Hai studiato la Format?
    ℹ️ Leggi di più su AntonioG ...

  5. #5
    pierovb non è in linea Scolaretto
    Post
    356
    Like Inviati  
    0
    Like Ricevuti  
    0
    Ho semplificato usando :

    
    txtTime.Text = Format(DateTime.Now, "HH:mm:ss")
    
    Grazie.

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Formattare TextBox come data
    Da genespos nel forum Microsoft Excel
    Risposte: 11
    Ultimo Post: 01-03-2014, 11:17
  2. Assegnare valore timer interval tramite textbox
    Da titanic nel forum Visual Basic 6
    Risposte: 7
    Ultimo Post: 26-08-2009, 12:34
  3. textbox formato data
    Da alexander nel forum Visual Basic .Net
    Risposte: 4
    Ultimo Post: 21-12-2008, 16:59
  4. timer con textbox
    Da Cis nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 21-09-2008, 23:03
  5. Data in textbox
    Da gene50 nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 06-09-2004, 14:43