'# Iz datuma izluščimo DAN, MESEC in LETO

Dim Datum, DAN, MESEC, LETO
Datum = Date ' Povemo sistemski datum
DAN = Day(Datum)  'Izluščimo Dan,
MESEC = Month(Datum) 'Izluščimo Mesec,
LETO = Year(Datum)  'Izluščimo Letnico
WScript.echo Datum
WScript.echo "Dan: "  & DAN & vbcrlf &_
      "Mesec: " & MESEC & vbcrlf &_
      "Leto: " & LETO