You have many options:
S = today.LongTime
S = today.Hour.ToText+":"+str(format(today.Minute, “00”))+":"+str(format(today.Second, “00”))
dim L as xojo.core.locale=xojo.core.locale.current
S = today.Hour.ToText(l,“00”)+":"+today…Minute.ToText(L,“00”)+":"+today.Second.ToText(L,“00”)
dim today as xojo.core.date=xojo.core.date.current
dim L as xojo.core.locale=xojo.core.locale.current
S = today.ToText(L,xojo.Core.Date.FormatStyles.None,xojo.Core.Date.FormatStyles.Medium)