Calcolo dell'età VBS

Tanto per ammazzare il tempo..... mi sono dedicato (a rischiesta spietata di uno smanettone) a scrivere uno script vbs che calcola il tempo della nostra vita, infatti basta inserire la data di nascita e poi lui fa il resto calcolando e verificando 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 (imperativo) il codice nel blocco note (Start - Tutti i programmi - Accessori - Blocco note) e poi salvatelo in .vbs
ES: Calcolo dell'età.vbs

ask = "Inserisci la data di nascita in formato numerico oppure per estesto col nome del mese"
title = "Calcolo dell'età"
do
birthday = InputBox(ask, title)
if isEmpty(birthday) then
MsgBox "Se non hai voglia non fa niente..;)" _
& " Ricorda che sei stato tu a provare lo script"
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
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
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento