7,789
社区成员
发帖
与我相关
我的任务
分享急问：format函数
t as string
t="9:12.025"
想要 "09:12.025" 怎么format ？？
format(t,"00:00.000") 不行啊
t="9:12.025"
想要 "09:12.025" 怎么format ？？
format(t,"00:00.000") 不行啊
...全文
请发表友善的回复…
发表回复
xhggg 2003-09-18
- 打赏
- 举报
当后3为>=60的时候，前面的"0"就加不上了
试试下面的:
Private Sub Command1_Click()
Dim t As String
t = "8:47.060"
t = Format(t, "hh:mm.0ss")
MsgBox t
End Sub
试试下面的:
Private Sub Command1_Click()
Dim t As String
t = "8:47.060"
t = Format(t, "hh:mm.0ss")
MsgBox t
End Sub
yijiansong 2003-09-18
- 打赏
- 举报
用InStr判断 ":" 符号的位置,根据情况决定是否加"0",如下:
Dim t As String
t = "12:12.025"
If InStr(t, ":") = 2 Then t = "0" & t
MsgBox t
Dim t As String
t = "12:12.025"
If InStr(t, ":") = 2 Then t = "0" & t
MsgBox t
xhggg 2003-09-18
- 打赏
- 举报
昨天掉线了，怎也上不去了
format(t, "hh:mm.0ss ")
出来的格式还是不对，怎么也试不通
format(t, "hh:mm.0ss ")
出来的格式还是不对，怎么也试不通
yunfeng007 2003-09-17
- 打赏
- 举报
同意 zhenglc(絮絮)的
format("9:12.025","hh:mm.0ss")
format("9:12.025","hh:mm.0ss")
zhenglc 2003-09-17
- 打赏
- 举报
format(t, "hh:mm.0ss")
zmrok 2003-09-17
- 打赏
- 举报
先判断t里:前有几位,如果是一位就t=0 & t ,如果是两位就免了
xhggg 2003-09-17
- 打赏
- 举报
format真的不行了吗？！
谢谢各位了，结贴
谢谢各位了，结贴
射天狼 2003-09-17
- 打赏
- 举报
用InStr判断 ":" 符号的位置,根据情况决定是否加"0",如下:
Dim t As String
t = "12:12.025"
If InStr(t, ":") = 2 Then t = "0" & t
MsgBox t
Dim t As String
t = "12:12.025"
If InStr(t, ":") = 2 Then t = "0" & t
MsgBox t
aha99 2003-09-17
- 打赏
- 举报
用len()判断，还有分上加0的问题呢，自己想一想算法吧，不难。。。
xhggg 2003-09-17
- 打赏
- 举报
字符串格式
不能直接加"0"
因为会有
t="12:28.032"
格式为：12分28.032秒
不能直接加"0"
因为会有
t="12:28.032"
格式为：12分28.032秒
didishu0807 2003-09-17
- 打赏
- 举报
format是不行了，其他办法吧！
射天狼 2003-09-17
- 打赏
- 举报
你这是什么格式啊,FORMAT没有这种格式,直接在前面加个零不就行了
t="0" & t
