亞瑟的升級過程

在2023年GPT開始使用時我就詢問過GPT，可能當時的GPT還不夠聰明，給予的答案無法運行，我認為原始的語法應該可以更聰明點，詢問過Power BI社群的人，但沒有人提供答案，終於在現在再度詢問GPT給予的答案與我思考的方向依樣，只是我懂得語法不多，透過GPT幫忙解答，我也學到了新知識。 下面是GPT提供目前最優的版本 let     // 定义日期和参数     起始日期 = "2023/12/29",     最新日期 = "2024/6/7",     周前日期 = "2024/5/31",     日期列表 = {"2023/12/29", "2024/5/10", "2024/5/17", "2024/5/24", "2024/5/31", "2024/6/7"},     趴數 = 0.05, // 例如 5%       // 数据处理     來源 = Table.NestedJoin( 投資組合 , {" 持股標的 "}, 資料 _5 周 , {" 標的 "}, " 資料 _5 周 ", JoinKind.RightOuter),     已展開資料 = Table.ExpandTableColumn( 來源 , " 資料 _5 周 ", List.Combine({{" 標的 "}, 日期列表 })),     已排序資料列 = Table.Sort( 已展開資料 , {{" 持股標的 ", Order.Descending}}),     已移除資料行 = Table.RemoveColumns( 已排序資料列 , {" 持股標的 "}),     加入淨值 = Table.AddColumn( 已移除資料行 , " 淨值 ", each [ 股數 ] * [ 匯率 ] * Record.Field(_, 最新...

  針對資料夾內所有子資料夾所有照片及影片檔案都移到最上層資料夾用VBA寫一個針對相片及影片的建立日、修改日、存取日判斷，以這三個日期中最小的日期依年月資料夾分類，如果該資料夾不存在就新建，當檔案名稱如果重複時就自動在檔案名稱依序給予 _+流水號 分類結果4436個影片及照片自動移到最上層資料夾，只花不到1分鐘 分類結果 同一時間處理完畢 Sub OrganizePhotosAndVideosByDate()     Dim topFolderPath As String     Dim fso As Object     Dim topFolder As Object     Dim subFolder As Object     Dim file As Object     Dim earliestDate As Date     Dim yearMonth As String     Dim targetFolder As String     Dim fileExtensions As Variant     Dim i As Integer     Dim fileName As String     Dim newFileName As String     Dim counter As Integer     ' 設置要處理的頂層資料夾路徑     topFolderPath = "C:\Your\Path\To\PhotosAndVideos" ' 替換為實際的路徑          ' 要處理的文件副檔名     fileExtensions = Array("jpg", "jpeg", "png", "gif", "bmp", "mp4", "avi", "mov", "wmv", "mkv")          ' 創建 ...