Visualizzazione dei risultati da 1 a 8 su 8
  1. #1

    [VB6] creare countdown da una data..

    salve a tutti... allora vorrei creare un programma che una volta inserita la data.. lui ti dica quanto manchi...
    per ora ho fatto solo questa parte...

    codice:
    ore = 24 - Hour(time)
    minuti = 60 - Minute(time)
    secondi = 60 - Second(time)
    giorno = 31 - Day(Date)
    mese = 12 - Month(Date)
    Label1.Caption = "mancano " & mese & " mesi," & giorno & " giorni," & ore & " ore, " & minuti & " minuti, " & secondi & " secondi"
    però così ti calcola l'ora del sistema.. quanto manca alla fine dell'anno.. io invece voglio ad esempio.. inserire una data, anni mesi secondi... e poi lui calcola il tutto ho provato con la "funzione" per esempio
    codice:
    Dim Datadainserire As Date
    Datadainserire = CDate(Anno & "-" & Mese & "-" & Giorno)
    ovviamente avendo dichiarato le variabili anno mese giorno e dopo avergli detto dove trovarle.. però non va potete aiutarmi?? grazie

  2. #2
    Utente di HTML.it
    Registrato dal
    Jul 2008
    Messaggi
    758
    Ti consiglierei di cominciare col guardare sulla guida l'uso e la sintassi della funzione DateDiff().

  3. #3
    conosco la funzione datadiff.. infatti ho anche fatto un semplice programma per calcolare la differenza fra due date...

    il codice era questo...
    codice:
    
    Dim Giorno1 As Integer
            Dim Mese1 As Integer
            Dim Anno1 As Integer
            Dim Giorno2 As Integer
            Dim Mese2 As Integer
            Dim Anno2 As Integer
            Dim Giorni As Integer
            Dim Anni As Integer
            Dim TotaleGiorni As Integer
            Dim diffdate As Integer
            
            Giorno1 = Txt_Giorno1
            Mese1 = Txt_Mese1
            Anno1 = Txt_Anno1
            Giorno2 = Txt_Giorno2
            Mese2 = Txt_Mese2
            Anno2 = Txt_Anno2
    
        Dim datTim1 As Date
        Dim datTim2 As Date
    
    datTim1 = CDate(Anno1 & "-" & Mese1 & "-" & Giorno1)
    datTim2 = CDate(Anno2 & "-" & Mese2 & "-" & Giorno2)
    
    Dim GiorniMancanti As Long
    
    GiorniMancanti1 = DateDiff("d", datTim1, datTim2)
    
    lbl_GM = GiorniMancanti1
    ma ora non riesco a capire come fare questo...
    il problema è nel far si che visual basic "capisca" che sono secondi.. e quindi si comporti di conseguenza...

    help me!!

  4. #4
    Utente di HTML.it
    Registrato dal
    Jul 2008
    Messaggi
    758
    conosco la funzione datadiff..
    quindi sai senz'altro che quella "d" sta per "Days" e che una "s" al suo posto significherebbe "Seconds".

  5. #5
    questo no.. .. quindi che funzione dovrei usare?? al posto di datediff?? grazie ciao

  6. #6
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Originariamente inviato da simop_075
    questo no.. .. quindi che funzione dovrei usare?? al posto di datediff?? grazie ciao
    No ... non hai capito ... e' SEMPRE la DateDiff ... si comporta diversamente se usi "d" oppure usi "s" ... ok?
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  7. #7
    Utente di HTML.it
    Registrato dal
    Jul 2008
    Messaggi
    758
    Non per niente ti avevo consigliato di dare un'occhiata qui

  8. #8
    ok grazie mille a tutti ciao..

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.