Calcolo dell'età - Giovanni Di Mauro | Web Designer

Tanto per ammazzare il tempo….. mi sono dedicato (a richiesta spietata di uno smanettone) a scrivere uno script vbs che calcola il tempo della nostra vita trascorsa, infatti basta inserire la data di nascita e lo script calcola e verifica con la data odierna del pc (spero sia aggiornata almeno la data) il tempo che è trascorso dal momento della nostra nascita (il momentaccio in cui sono venuti alla luce i problemi) e quello restante per l’evento del prossimo compleanno…
Copiate 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 http://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

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à"

birthday = InputBox(ask, title)

if isEmpty(birthday) then

MsgBox "Operazione annullata, forse gli anni erano troppi..?? ;-)" & " Script prelevato dal sito http://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

DOWNLOAD

Calcolo dell’età Ultima modifica: 2016-03-17T16:54:37+02:00 da Giovanni

Calcolo dell’età

Articoli Correlati