VB6 Differenza tra due giorni

[nikeddy]

Salve a tutti...piccolo quesito

io ho 7 texbox in linea

nella prima metto il giorno iniziale ad esempio 31 / 12 / 2007

nell'ultima metto 6 / 1 / 2008

ora...

come faccio a far comparire nelle textbox sottostanti i numeri progressivi della settimana in questione? (casomai colorarla se e' festa?)

tipo

31/12/2007
1/01/2008
2/01/2008
3/01/2008
4/01/2008
5/01/2008
6/01/2008

(meglio se prende i giorni del calendario di sistema...)

AIUTO

[LMondi]

Guarda, la cosa migliore è usare il controllo MonthView (non puoi fare un calendario ex novo!) e tramile le sue proprietà puoi ottenere quello che ti occorre. Ad esempio così MonthView1.Value = Now selezioni il giorno corrente;
Ciao.

[nikeddy]

ma se io ho la necessita di avere una data di partenza e una data di fine
come faccio?

almeno la prima e l'ultima devono essere impostate da me

mi serve che in mezzo ci mette i giorni dalla 1 alla ultima txt

tramite monthview posso farlo?

[chipdb]

Suppongo che questo possa servirti...

    If IsDate(Text2.Text) Then
        
        Dim LastDate As Date
        
        LastDate = DateAdd("d", 1, CDate(Text2.Text))
        For i = 0 To Text1.Count - 1
            Text1(i).Text = LastDate
            If Weekday(LastDate) = 1 Then
                Text1(i).ForeColor = vbRed
            Else
                Text1(i).ForeColor = vbBlack
            End If
            LastDate = DateAdd("d", 1, LastDate)
        Next i
    
    End If

Text2 è la textbox che contiene la data iniziale. Le altre 6 textbox sono una matrice di textbox.

[chipdb]

Ah, PS: controlla solo se è domenica... ulteriori controlli magari falli tu perchè il computer non conosce il significato di "Giorno festivo"...

[nikeddy]

perfetto provo e ti dico

[LMondi]

nikeddy,

ma se io ho la necessita di avere una data di partenza e una data di fine

per la data di partenza basta fare click sul giorno :

Private Sub MonthView1_Click()
        TxtG.Text = MonthView1.Day
        LblM.Caption = MonthView1.Month
        TxtA.Text = MonthView1.Year
        TxtNW.Text = MonthView1.Week
        
        sDataComp = CDate(TxtG.Text & "/" & LblM.Caption & "/" & TxtA.Text)
' ..... ....

Poi se devi aggiungere o togliere i giorni (ed anche i mesi, controlla sulla guida):

' giorno dopo e giorno prime della data:
    Number1 = 1
    Number2 = -1
    ' giorni come intervallo:
    IntervalType = "d"
    FirstDate = sDataComp
    FirstDate1 = DateAdd(IntervalType, Number1, FirstDate)
    FirstDate2 = DateAdd(IntervalType, Number2, FirstDate)
' ... ...

Ti consiglio di scorrere la guida, vi sono moltissimi esempi, ...
Ciao.

[nikeddy]

esatto

ti spiego

io prendo i dati da un foglio excel dove c'e'

data partenza turnazione valida per 6 giorni impostata da una data inizio e una data fine

io porto tutto in 2 txt data inizio e data fine e vorrei proprio che nelle text box sotto la data inizio mi scriva i giorni progressivi lavorativi per quella data

Dal 2 gennaio al 2 febbraio e lui sotto mette 3 gennaio 4 gennaio 5 gennaio 6 gennaio festa quindi no ecc

provo e ti dico se riesco posto che va ok

[nikeddy]

ok risolto grande!

[nikeddy]

Allora il problema persiste spiego..

Io ok ho messo 6 textbox per la turnazione e se metto data inizio e data fine ok perfetto.

ora il problema e' un altro perche il mio obiettivo e' inserire un periodo tra due date da poter poi essere interrogato.
cioe'

se io metto che dal 31 gennaio 2007 al 5 febbraio 2007 uno lavoro di pomeriggio

ora se io poi voglio fare una ricerca su un periodo per esempio dal 3 febbraio al 20 marzo come faccio a visualizzarlo?
nel database come inserisco i dati?
in poche parole il periodo dal 31 gennaio 2007 al 5 febbraio 2007 a fatto pomeriggio

se interrogo il 4 febbraio per capire che turno faceva come faccio????

oddio e' CRISI NERA!HELP BELLIIII