Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Contagiorni vb6?
Forum - Visual Basic 6 - Contagiorni vb6?

Avatar
Chuck432 (Normal User)
Newbie


Messaggi: 1
Iscritto: 13/09/2009

Segnala al moderatore
Postato alle 23:17
Domenica, 13/09/2009
Salve ragazzi volevo creare un conta giorni
ad esempio quanto manca a natale
come faccio in vb6? sapete darmi il suorce

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 7:37
Lunedì, 14/09/2009
Non si "da' il source" ... non e' una software house a richiesta ...

In un forum si danno suggerimenti, si studia insieme, si discute ...

Per ottenere la differenza tra due date, c'e' la funzione

DateDiff

che ti consiglio di studiare ed usare.


PM Quote
Avatar
fusebyte (Normal User)
Expert


Messaggi: 332
Iscritto: 24/12/2008

Segnala al moderatore
Postato alle 13:41
Lunedì, 14/09/2009
ESEMPIO preso da MSDN:
Codice sorgente - presumibilmente VB.NET

  1. Public Overloads Function DateDiff( _
  2.     ByVal Interval As [ DateInterval | String ], _
  3.     ByVal Date1 As DateTime, _
  4.     ByVal Date2 As DateTime, _
  5.     Optional ByVal DayOfWeek As FirstDayOfWeek = FirstDayOfWeek.Sunday, _
  6.     Optional ByVal  WeekOfYear As FirstWeekOfYear = FirstWeekOfYear.Jan1 _
  7. ) As Long


Nell'esempio DateDiff restituisce 0 per wD perché la differenza tra le due date è inferiore a sette giorni, mentre restituisce 1 per wY perché tra i primi giorni delle rispettive settimane di calendario vi è una differenza di sette giorni.
Codice sorgente - presumibilmente VB.NET

  1. ' The following statements set datTim1 to a Thursday
  2. ' and datTim2 to the following Tuesday.
  3. Dim datTim1 As Date = #1/4/2001#
  4. Dim datTim2 As Date = #1/9/2001#
  5. ' Assume Sunday is specified as first day of the week.
  6. Dim wD As Long = DateDiff(DateInterval.Weekday, datTim1, datTim2)
  7. Dim wY As Long = DateDiff(DateInterval.WeekOfYear, datTim1, datTim2)



Nell'esempio riportato di seguito la funzione DateDiff viene utilizzata per visualizzare il numero di giorni compreso tra una determinata data e la data odierna.
Codice sorgente - presumibilmente VB.NET

  1. Dim firstDate, msg As String
  2. Dim secondDate As Date
  3. firstDate = InputBox("Enter a date")
  4. secondDate = CDate(firstDate)
  5. msg = "Days from today: " & DateDiff(DateInterval.Day, Now, secondDate)
  6. MsgBox(msg)




Spero ti possa servire.Ciao

PM Quote