Autore Topic: [RISOLTO] dato un giorno trovare il 90 esimo giorno prima ....  (Letto 520 volte)

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.179
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:[RISOLTO] dato un giorno trovare il 90 esimo giorno prima ....
« Risposta #15 il: 14 Luglio 2017, 21:44:27 »
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  "__/__/____" .
:rolleyes:

..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
   :-X
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.114
  • Tonno verde
    • Mostra profilo
Re:[RISOLTO] dato un giorno trovare il 90 esimo giorno prima ....
« Risposta #16 il: 14 Luglio 2017, 22:47:12 »
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")
:ciao:
« Ultima modifica: 14 Luglio 2017, 22:50:52 da Gianluigi »
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro