Hello

Here is the code

'ScreenDateUpdate
'Author: Thierry Marneffe - 2008

Dim dtDate
Dim nMonth
Dim astrMonth(12)

'Set Month Descr
astrMonth(0) = "Jan"
astrMonth(1) = "Feb"
astrMonth(2) = "Mar"
astrMonth(3) = "Apr"
astrMonth(4) = "May"
astrMonth(5) = "Jun"
astrMonth(6) = "Jul"
astrMonth(7) = "Aug"
astrMonth(8) = "Sep"
astrMonth(9) = "Oct"
astrMonth(10) = "Nov"
astrMonth(11) = "Dec"

'Get System Time
dtDate = Date

'Extract Month
nMonth = Month( dtDate)

'Build Data String
strCurrentDate = Day( dtDate) & "-" & astrMonth(nMonth) & "-" & Year( dtDate)

Just put an IO field on your screen (I put it on the Template) and create an internaltag called strCurrentdate of type String
call the script from the event 'Loaded' of your main view and in the scheduler every day at midnight

HTH

Thierry