' ** ##################################################### **
'##		                		      	     ##
'##                 Kinezu's World                    	     ##
'##               +----------------+                  	     ##
'##						      	     ##
'##        * un mic script care se foloseste de       	     ##
'##          Windows Script Host (WHS) scris in       	     ##
'##          Visual Basic Script Edition (.vbs)       	     ##
'##        * Poate sa-si dea seama in ce an           	     ##
'##          an te-ai nascut.                         	     ##
'##        * iti poate folosii ca exemplu fiind n00b  	     ##
'##        * a fost creeat in data :  23/02/2009      	     ##
'##                           ora  :  04:07 AM        	     ##
'##						             ##
'##						             ##
'##						      	     ##
'##						      	     ##
' ** ##################################################### **


dim guta
guta = (year(now))
intAnulCurent = inputBox ("Data si Ceasul Exact al Sistemului tau:  "& now & vbCrLf & vbCrLf & vbCrLf & "  tu in ce an esti ? :))","Kinezu's World",guta)
if intAnulCurent = vbnullstring then
wscript.quit
else
msgbox "Mi-ai zis ca esti in anul :" & "  " &intAnulCurent & vbCrLf & "Bun,apasa OK pentru a continua",vbOkOnly,"Kinezu's World"
end if
intCatiAni = inputBox ("Cati ani ai zis ca ai ? "& vbCrLf & " baga si tu  18"& vbCrLf & " sa fi si u major :))", "Kinezu's World", "17")
if intCatiAni = vbnullstring then
wscript.quit
else

msgbox "Deci ai : " & intCatiAni & " ani " & vbCrLf & "si" & vbCrLf & "Acum esti in anul : " & intAnulCurent,vbOkOnly,"Kinezu's World"
end if
msgbox "Te-ai nascut in anul : " & intAnulCurent - intCatiAni - 1,vbOkOnly,"Kinezu's World"