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

[vuott]

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  "__/__/____" .

..basterebbe provare ad utilizzare le funzioni di data e tempo 

Due ipotesi potrebbero essere le seguenti:

Codice: [Seleziona]

Public Sub Main()

  Print Format(CDate(CDate("08/21/1969 23:59:59") - 10), "dd/mm/yyyy") 

  Print Format(CDate(Date(1969, 08, 21, 0, 0, 0, 0) - 10), "dd/mm/yyyy") 

End

   

[Gianluigi]

Di questo che vi pare?

Codice: [Seleziona]

Public Sub Main()

  Dim a, b As Date

  a = CDate(Val("1/1/17") - 10)
  b = DateAdd(a, gb.Day, 10)
  Print Format(a, "dd/mm/yyyy"), Format(b, "dd/mm/yyyy")

End

o se preferite abbreviato:

Codice: [Seleziona]

Print Format(CDate(Val("1/1/17") - 10), "dd/mm/yyyy")