Public Function XtoF(str As Currency, Optional fenm As Integer = 32) As String
' 只限于整除分数.
Dim Cfm As Currency
Dim cfmmod As Integer
On Error GoTo Erroreof
Cfm = 1 / fenm
XtoF = ""
If str = 0 Then XtoF = "": Exit Function
Dim point As Integer
Dim dInt As String
Dim dPoint As Currency
Dim fint, fint1, fint2 As Integer
If str <> 0 Then
If str > 1 Then
point = InStr(1, str, ".", 1)
If point = 0 Then
XtoF = str:
Exit Function
Else
dInt = Mid(str, 1, point - 1)
dPoint = CCur("0." & Mid(str, point + 1))
fint = InStr(1, XtoF(dPoint), "/", 1)
fint1 = CInt(Mid(XtoF(dPoint), 1, fint - 1))
fint2 = CInt(Mid(XtoF(dPoint), fint + 1))
XtoF = CStr(dInt * fint2 + fint1) & "/" & CStr(fint2)
End If
Else
If fenm Mod CInt(str / Cfm) = 0 Then
XtoF = "1/" + CStr(fenm / CInt(str / Cfm))
Else
cfmmod = Maxgys(fenm, CInt(str / Cfm))
XtoF = CStr(CInt(str / Cfm / cfmmod)) + "/" + CStr(CInt(fenm / cfmmod))
End If
End If
Else
XtoF = "0"
End If
Exit Function
Erroreof:
XtoF = ""
End Function
Function Maxgys(num1 As Integer, num2 As Integer) As Integer
Dim minnum, i As Integer
minnum = num1
If num1 > num2 Then minnum = num2
For i = 1 To minnum
If ((num1 Mod i) = 0) And ((num2 Mod i) = 0) Then Maxgys = i
Next i
End Function
免责声明:本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除!
RTX 5090要首发 性能要翻倍!三星展示GDDR7显存
三星在GTC上展示了专为下一代游戏GPU设计的GDDR7内存。
首次推出的GDDR7内存模块密度为16GB,每个模块容量为2GB。其速度预设为32 Gbps(PAM3),但也可以降至28 Gbps,以提高产量和初始阶段的整体性能和成本效益。
据三星表示,GDDR7内存的能效将提高20%,同时工作电压仅为1.1V,低于标准的1.2V。通过采用更新的封装材料和优化的电路设计,使得在高速运行时的发热量降低,GDDR7的热阻比GDDR6降低了70%。
更新日志
- 纪钧瀚《钢琴阅读时光 雨中书店聆听轻音乐》[FLAC/分轨][399.62MB]
- 证声音乐图书馆《走向自然 疗心爵士乐》[320K/MP3][87.4MB]
- 证声音乐图书馆《走向自然 疗心爵士乐》[FLAC/分轨][184.94MB]
- 陈慧娴.2018-Priscilla-Ism演唱会3CD(2024环球红馆40复刻系列)【环球】【WAV+CUE】
- 郑秀文.1999-我应该得到(国)【华纳】【WAV+CUE】
- 陈家慧.2011-钢琴酒吧2CD【龙吟唱片】【WAV+CUE】
- 证声音乐图书馆《雨季 蓝调吉他 Rainy Blues》[320K/MP3][45.01MB]
- 证声音乐图书馆《雨季 蓝调吉他 Rainy Blues》[FLAC/分轨][109.13MB]
- 赞多《序章》[320K/MP3][45.54MB]
- 许巍.2004-每一刻都是崭新的【步升大风】【WAV+CUE】
- 群星.2024-四方馆影视原声带【韶愔音乐】【FLAC分轨】
- 陈雷.1997-安锁咧【金圆唱片】【WAV+CUE】
- 关淑怡.2013-MY.FAVORITE.SK.3CD【环球】【WAV+CUE】
- Sweety.2006-花言乔语【丰华】【WAV+CUE】
- 李恕权.2003-回·20年全精选2CD【SONY】【WAV+CUE】