CALCOLO DELL’ETÀ TRAMITE SCRIPT VBS
Giorni rimanenti al compleanno
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.
Copia il codice nel blocco note (Start – Tutti i programmi – Accessori – Blocco note) e poi salvatelo in .vbs
ES: Calcolo dell’età.vbs
Codice
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
