'date
'   检索基于指定的掩码的当前日期
'd     一个月的日数为一位数，而无单位数的天数为零。
'dd    一个月的数字为单位数的前导零。
'ddd   星期几为三个字母的缩写。该函数使用与指定语言环境相关联的LOCALE_SABBREVDAYNAME值。
'dddd  星期几作为其全名。该函数使用与指定语言环境相关联的LOCALE_SDAYNAME值。
'M     月数字为单位数月份无前导零。
'MM    月份为单位数月份前导零的数字。
'MMM   月份为三个字母的缩写。该函数使用与指定语言环境相关联的LOCALE_SABBREVMONTHNAME值。
'MMMM  月份作为其全名。该函数使用与指定语言环境相关联的LOCALE_SMONTHNAME值。
'y     年份为最后两位数字，但年份不超过10位则无前提。
'yy    年份为最后两位数，但领先零年为少于10岁。
'yyyy  年份由四到五位数字组成，具体取决于所使用的日历。泰国佛教和韩国日历都有五位数年。 “yyyy”模式将显示这两个日历的五位数字，以及所有其他支持的日历的四位数字。
'yyyyy 与“yyyy”相同。
'gg    期间/时代字符串。该函数使用与指定语言环境相关联的CAL_SERASTRING值。如果要格式化的日期没有关联的时代或句点字符串，则忽略该元素。
Function FF_GetDate(ByRef DateMask As String) As String
   
   Dim zText As ZString * MAX_PATH
   
   '= Return New Formated Date Depending On The Users Selection Date Mask.
   GetDateFormatA LOCALE_USER_DEFAULT, 0, ByVal 0, DateMask, zText, Sizeof(zText)
   'GetDateFormat %LOCALE_USER_DEFAULT, %DATE_SHORTDATE, _
   'ByVal %Null, ByVal %Null, zText, SizeOf(zText)
   
   Function = zText
   
End Function

