PureBoard

Code: Alles auswählen

Import "oleaut32.lib" 
  VarBstrFromDate(dateIn.d, lcid.l, dwFlags.l, *pbstrOut)
EndImport

#VAR_TIMEVALUEONLY = $0001
#VAR_DATEVALUEONLY = $0002

Procedure.d T_DATE(pbDate) ; Result Date from PB-Date
 
  Protected date.d
 
  date = pbDate / 86400.0 + 25569.0
  ProcedureReturn date
 
EndProcedure

; LCID = $0409 = Englisch (USA)

datum.d = T_DATE(Date())
VarBstrFromDate(datum,$0409, #LOCALE_NOUSEROVERRIDE, @*text)
Debug PeekS(*text, #PB_Any, #PB_Unicode)
SysFreeString_(*text)

VarBstrFromDate(datum,$0409, #LOCALE_NOUSEROVERRIDE | #VAR_TIMEVALUEONLY, @*text)
Debug PeekS(*text, #PB_Any, #PB_Unicode)
SysFreeString_(*text)

VarBstrFromDate(datum,$0409, #LOCALE_NOUSEROVERRIDE | #VAR_DATEVALUEONLY, @*text)
Debug PeekS(*text, #PB_Any, #PB_Unicode)
SysFreeString_(*text)