
CALCOLO DELL’ETÀ TRAMITE SCRIPT VBS
Script vbs che calcola il tempo della nostra vita trascorsa e il tempo rimanente fino al prossimo compleanno.
Basta inserire la data di nascita e lo script calcola e verifica con la data odierna del pc.
NB: La data del pc deve essere aggiornata.
Copiate il codice nel blocco note (Start – Tutti i programmi – Accessori – Blocco note) e poi salvatelo in .vbs
ES: Calcolo dell’età.vbs
Codice:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
ask = "Inserisci la data di nascita nel formato numerico oppure per estesto col nome del mese, es.: 01/01/1950 oppure 1 gennaio 1950" title = "Calcolo dell’età" do birthday = InputBox(ask, title) if isEmpty(birthday) then MsgBox "Operazione annullata, forse gli anni erano troppi..?? ;-)" & " Script prelevato dal sito https://www.giovannidimauro.it/" WScript.Quit elseif not isDate(birthday) then MsgBox "Digita una data valida e ritenta!" end if loop until isDate(birthday) age_in_days = DateDiff("d", birthday, date) age_in_months = DateDiff("m", birthday, date) age_in_years = DateDiff("yyyy", birthday, date) day_born = WeekdayName(Weekday(birthday)) date_day = Day(birthday) date_month = Month(birthday) date_year = Year(date) this_years_birthday = DateSerial(date_year, date_month, date_day) days_to_birthday = Abs(DateDiff("d", date, this_years_birthday)) day_celebrating = WeekdayName(Weekday(this_years_birthday)) if this_years_birthday<date then message = "Hai festeggiato il tuo compleanno e mancano " & days_to_birthday & " giorni all’evento" elseif this_years_birthday = date then message = "Buon Compleanno!!" else message = days_to_birthday & " giorni mancanti all’evento!" end if msg = "Risultato:" & vbCr msg = msg + "Sei nato il " & birthday & vbCr msg = msg + "Hai " & age_in_years & " anni" & vbCr msg = msg & age_in_months & " mesi o " & age_in_days _ & " giorni!" & vbCr msg = msg + "Sei nato di " & day_born & vbCr msg = msg + "Il compleanno di quest’anno per il " & this_years_birthday & vbCr msg = msg + " viene di " & day_celebrating & vbCr msg = msg + message MsgBox msg |