Microsoft Small Basic
Program Listing:
Embed this in your website
<object id='sbapp' data='data:application/x-silverlight-2,' type='application/x-silverlight-2' width='640' height='480'> <param name='source' value='http://smallbasic.com/program/ClientBin/SBWeb.xap'/> <param name='onError' value='onSilverlightError' /> <param name='background' value='white' /> <param name='minRuntimeVersion' value='3.0.40624.0' /> <param name='autoUpgrade' value='true' /> <param name='initParams' value='programId=BKC562' /> </object>
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.