[RISOLTO] dato un giorno trovare il 90 esimo giorno prima ....

[allegfede]

  DateBox_Fine.Value = Now
  DateBox_Inizio.Value = DateDiff(Now, 90, gb.Day)

non va' ... e lo capisco, ma ora sono 15 ore che lavoro e' sono cotto

RISOLTO: DateBox_Inizio.Value = CDate(Now - 90) che parametrizzato potrebbe essere anche DateBox_Inizio.Value = CDate(DateBox_Fine.Value - 90)

[Gianluigi]

Una cosina semplice, semplice non andrebbe meglio?

Codice: [Seleziona]

Public Sub dbxEnd_Change()

  Dim i As Integer
  
  i = DateDiff(dbxStart.Value, dbxEnd.Value, gb.Day)
  TextLabel1.Text = "<b>" & CStr(i) & " giorni"

End

 

P.S. Mi sorge il dubbio che tu voglia sommare i giorni ad una data, allora in quel caso devi usare DateAdd

[vuott]

  DateBox_Inizio.Value = DateDiff(Now, 90, gb.Day)

...da quando l'espressione 90 può essere un valore di tipo Date ?   

... sono cotto

No, te si arrostitu come a 'na sargiccia !

[allegfede]

e' che devo trovare proprio il tipo date.

la differenza tra' due "date" in ore, giorni, secondi di fa' con datediff.

ma dato un giorno, come posso trovare un altro giorno che sia 90 giorni prima?

[naderit]

Ciao hai provato semplicemente :

Codice: [Seleziona]

ValueBox1.Value = Now
Label1.Text = Format(CDate(Now - 90), "dd/mm/yyyy")

[vuott]

Ciao hai provato semplicemente :

Codice: [Seleziona]

ValueBox1.Value = Now
CDate(Now - 90), "dd/mm/yyyy")

...e bravo naderit !   

Ma.... se invece di Now( ) - che si riferisce al giorno corrente - volessi impostare un giorno diverso (come richiede allegfede), come faresti ?   

[naderit]

Ciao ho provato anche usando .....

Codice: [Seleziona]

Public Sub Button1_Click()

 Label5.Text = Format(CDate(ValueBox1.Value - 10), "dd/mm/yyyy") 

End

e sembra funzionare    

[vuott]

Scusa, non inserire solo quel ValueBox.Value, altrimenti non si capisce niente.   
Devi farci vedere il valore che assegni alla proprietà .Value .

[naderit]

Scusa Vuott... seleziono come proprietà della ValueBox  Type = Date  al quel punto  seleziono una data
allego esempio pratico 

[vuott]

Molto bene, naderit !


...però io solitamente opero con applicazioni "a riga di comando" , come potrei fare, dunque, non operando in ambiente grafico ?

[naderit]

non capisco la domanda Vuott     
se mi puoi fare un esempio... scusa l'ignoranza...

[vuott]

Se io ho aperto un progetto come "Command-line application":

Codice: [Seleziona]

Public Sub Main()    

  Print "Hello world"

End

non posso utilizzare l'oggetto "ValueBox"....

...sono stato chiaro ?

[allegfede]

Molto bene, naderit !


...però io solitamente opero con applicazioni "a riga di comando" , come potrei fare, dunque, non operando in ambiente grafico ?

ed infatti i tuoi codici di test mi creano sempre casini

prima di capire che erano progetti "shell" quanto c'ho messo ... (si lo so' non sono proprio sveglissimo )

PS: grazie Nade, e' proprio quel che mi serviva, banalmente ho fatto: DateBox_Inizio.Value = CDate(Now - 90)

[vuott]

Sì, va bene, ma la soluzione al problema in questione per i progetti a riga di comando ?   

[naderit]

si ora ho capito...  purtroppo non è alla mia portata
Print Format(CDate(Now - 10), "dd/mm/yyyy")  ho visto che funziona.
La butto li: probabilmente si dovrebbe usare un'interfaccia a linea di comando magari utilizzando il componente gb.ncurses e fare in modo di intercettare i dati da tastiera forse creando una maschera tipo  "__/__/____" . non ho trovato molta documentazione esaustiva. Peccato.