Void Function StartupGreeting () ; written on 8/9/2005
Var
String CurDate,
String CurTime,
String Date,
String Time,
String Greeting,
String UserName,
String UserGreeting
Let Greeting = ("good morning,good afternoon,good evening")
Let UserName = ("YourName,")
Let Date = SysGetDate ()
Let CurDate = ("the date is") + Date
Let Time = SysGetTime ()
Let CurTime = ("the time is") + Time
If StringContains (Time, "A") then
Let UserGreeting = StringSegment (Greeting, ",", 1) + UserName + CurDate +
CurTime
SayString ( UserGreeting )
Else
If (Time == 12 )
|| (Time < 6 ) then
Let UserGreeting = StringSegment (Greeting, ",", 2) +UserName + CurDate +
CurTime
SayString ( UserGreeting )
Else
If ( Time > 6 )
|| ( Time < 12 ) then
Let UserGreeting = StringSegment (Greeting, ",", 3) +UserName + CurDate +
CurTime
SayString ( UserGreeting )
Else
SayString ("try again")
EndIf
EndIf
EndIf
EndFunction

Close Window