VBA:將日期轉換為單詞 FunctionDateToWords(ByValxRgValAsDate)AsString' Update by Extendoffice on 20240926DimxYearAsStringDimHundredsAsStringDimDecadesAsStringDimxTensArrAsVariantDimxOrdArrAsVariantDimxCardArrAsVariant' Initialize arraysxOrdArr=Array("First","Second","Third","Fourth","Fifth","Sixth",_"S...
DateToWords = xOrdArr(Day(xRgVal) - 1) & _ Format$(xRgVal, " mmmm ") & _ xCardArr(CInt(Left$(xYear, 1))) & _ " Thousand " & Hundreds & Decades End Function Copy 3.保存代碼並返回到工作表,選擇一個要在其中輸出結果的單元格,鍵入此公式= DateToWords(A1)(A1是您使用的日期),按E...