/******************************************************************************/ //函數名： dec_to_Hex //功能說明：十進制轉化成十六進制 //輸入參數：1、decnum 呆轉化十進制數 //return：轉化後的16進制 //函數完成：woods /******************************************************************************/ string a string Dec_to_hex
Do While DecNum > 0 a = string(mod(DecNum,16)) choose Case a Case "10" a = "A" Case "11" a = "B" Case "12" a = "C" Case "13" a = "D" Case "14" a = "E" Case "15" a = "F" End choose DEC_to_HEX = a + DEC_to_HEX DecNum = DecNum / 16 Loop
return dec_to_hex