一个类型匹配问题

Question

dim time as currency 
dim j as long 
If j < 50 Then
    time = " &CCur(0) & CCur(j / 50)&"
Else: time = " & CCur(j / 50)&"
End If
   If MsgBox("按钮按下时间为time 秒，确定发送吗？", 49, "提醒") = vbOK Then
运行时提示错误:类型不匹配,调试指向time = " &CCur(0) & CCur(j / 50)&",请问我要如何修改才能达到我想要的效果,请大哥大姐们来帮帮小妹,我的意图主要是想j < 50是,能把整数部分的"0"显示出来

Answer 1

dim time as currency 
dim j as long 
If j < 50 Then
    time = CCur(0) & CCur(j / 50)
Else: time = " & CCur(j / 50)&"
End If

Answer 2

dim time as currency 
dim j as long 
If j < 50 Then
    time = " &CCur(0) & CCur(j / 50)&"
Else: time = CCur(j / 50)
End If

Answer 3

If MsgBox("按钮按下时间为按钮按下时间为time 秒，确定发送吗？",   49, "提醒") = vbOK 中的time怎么改啊?运行后显示的是"按钮按下时间为time 秒，确定发送吗？", 我要显示给time变量的时间

Answer 4

If MsgBox("按鈕按下時間為" & CStr(time) & "秒,確定發送嗎", 49, "提醒") = vbOK Then

Answer 5

虽然是这样的写法，但并不知道是否lz想要的。dim time as string
dim j    as long '...................If j < 50 Then
  time = "0" & CCur(j / 50)
Else
  time = CCur(j / 50)
End IfIf MsgBox("按钮按下时间为 " & time & " 秒，确定发送吗？", 49, "提醒") = vbOK Then    '..........................end if
  

Answer 6

不行啊,J<50的时候,整数部分的"0"显示不出来啊,5555555

Answer 7

谁说出不来！ 试试看 msgbox  "0" & ccur(22/50)
  

Answer 8

把"0"直接放在msgbox是可以显示,你那样的话不管J是不是大于50整数部分的最高位都有一个"0",但是我现在想要的就是如果J小于50时整数部分显示一个零,大于零的时候正常显示

Answer 9

我要的结果就是比如:如果J=20,那么在提示框中就显示"按钮按下时间为 0.4 秒，确定发送吗？",如果J=60,那么在提示框中就显示"按钮按下时间为 1.2 秒，确定发送吗？",可是我就是不能把0.4中的那个"0"显示出来,照你说的msgbox  "0" & ccur(J/50),如果J=60,显示的就是"按钮按下时间为 01.2 秒，确定发送吗？",这时候我不要 01.2 而是要1.2,这样说你明白吗?

Answer 10

你按照前面的那贴些
dim time as string
dim j    as long '...................If j < 50 Then
  time = "0" & CCur(j / 50)
Else
  time = CCur(j / 50)
End IfIf MsgBox("按钮按下时间为 " & time & " 秒，确定发送吗？", 49, "提醒") = vbOK Then    '..........................end if  

Answer 11

Dim time As Currency
    Dim j As Long
    If j < 50 Then
        time = 0 & CCur(j / 50)
    Else
        time = CCur(j / 50)
    End If
    If MsgBox("按鈕按下時間為" & CStr(time) & "秒,確定發送嗎", 49, "提醒") = vbOK Then
    
    End If
這樣就沒錯啊,這不就是你想要的結果嗎?

Answer 12

Currency 怎么可能等于  0 & CCur(j / 50)！字符串的不能和 Currency 相 & dim time as string     If j < 50 Then
        time = "0" & CCur(j / 50)
'………………
看来lz真的不知道几个基本的类型。  

Answer 13

你看清楚啊:cangwu_lee(小橙子)聲明的time是string,當然不行了,但我聲明的是你原業的Currency,怎麼會不行
這是j=30時的運行結果
---------------------------
提醒
---------------------------
按鈕按下時間為0.6秒,確定發送嗎
---------------------------
確定   取消   
---------------------------
這是j=60運行時的結果
---------------------------
提醒
---------------------------
按鈕按下時間為1.2秒,確定發送嗎
---------------------------
確定   取消   
---------------------------
你不是要這樣的結果嗎?怎麼不行,我算服你了

Answer 14

當然了,聲明為字符型是最好的了,我不過是看提問者最開始是貨幣型而已,
那就這樣了
    Dim time As String
    Dim j As Long
     If j < 50 Then
        time = CCur(j / 50)
    Else
        time = CCur(j / 50)
    End If
    If MsgBox("按鈕按下時間為" & time & "秒,確定發送嗎", 49, "提醒") = vbOK Then
    
    End If

Answer 15

Dim time As string
    Dim j As Long
    If j < 50 Then
        time = "0" & CCur(j / 50)
    Else
        time = CCur(j / 50)
    End If
    If MsgBox("按鈕按下時間為" & format(CStr(time),"0.0") & "秒,確定發送嗎", 49, "提醒") = vbOK Then
    
    End If
实在不行，就这样