Microsoft Small Basic

Program Listing:
Embed this in your website
ziua=Clock.Day
If (ziua<10) Then
  TextWindow.Write(0)
EndIf
TextWindow.Write(ziua+"-")
luna=Clock.Month
If (luna<10) Then
  TextWindow.Write(0)
EndIf
TextWindow.Write(luna+"-")
anul=Clock.Year
TextWindow.WriteLine(anul)
TextWindow.Write(ziua+" ")
If (luna=1) Then
  TextWindow.Write("ianuarie")
EndIf
If (luna=2) Then
  TextWindow.Write("februarie")
EndIf
If (luna=3) Then
  TextWindow.Write("martie")
EndIf
If (luna=4) Then
  TextWindow.Write("aprilie")
EndIf
If (luna=5) Then
  TextWindow.Write("mai")
EndIf
If (luna=6) Then
  TextWindow.Write("iunie")
EndIf
If (luna=7) Then
  TextWindow.Write("iulie")
EndIf
If (luna=8) Then
  TextWindow.Write("august")
EndIf
If (luna=9) Then
  TextWindow.Write("septembrie")
EndIf
If (luna=10) Then
  TextWindow.Write("octombrie")
EndIf
If (luna=11) Then
  TextWindow.Write("noiembrie")
EndIf
If (luna=12) Then
  TextWindow.Write("decembrie")
EndIf
TextWindow.WriteLine(" "+anul)
Copyright (c) Microsoft Corporation. All rights reserved.