VB读日期时间的问题

www_ying 2004-07-19 02:25:13

已有五岳鑫语音卡及任何硬件设备语音可以自己录制本人因为工作需要需做一个程序把日期内容读出来
比如我有以下内容 2004-07-19 14:16:55 是一个字段我要用语音卡读出来读二零零四年零七月拾九日拾四时十六分五十五秒暂时是没有思路有没有人提供相应的资料等～～谢谢高分送上

...全文

227 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

www_ying 2004-07-21

打赏
举报

加我QQ吧……52993122～～辛苦大家了……这方面经验很不足～还要多多请教～～

www_ying 2004-07-21

打赏
举报

TTS??就是说的简单点吧我有五岳鑫的8线语音卡……我要求把数据库里 datetime字段里的内容读出来就是类似与电信查花费的那种系统然后给你报出××××年××月××日××时间你的花费余额还剩下多少就是报那个时间～～
我遇到的问题是数据库字段是这样的 2004-7-20 19:20:55 看到月份了嘛月份跟日期有2位数字跟一位数字的分别他不是固定格式的四位-两位-两位再就是我根据字符读读二零零四七二零完全没有问题问题是我读年月日如何按照判断加进去呢？？？？

谢谢………………高分求教这方面的专家！！^_^ 555555

myl 2004-07-21

打赏
举报

按你要求

Dim b(30)
Public Function ing(g)
If g = 0 Then
ing = "零"
ElseIf g = 1 Then
ing = "一"
ElseIf g = 2 Then
ing = "二"
ElseIf g = 3 Then
ing = "三"
ElseIf g = 4 Then
ing = "四"
ElseIf g = 5 Then
ing = "五"
ElseIf g = 6 Then
ing = "六"
ElseIf g = 7 Then
ing = "七"
ElseIf g = 8 Then
ing = "八"
ElseIf g = 9 Then
ing = "九"
Else
ing = g
End If
End Function

Private Sub Command1_Click()
a = "2004-2-4 9:0:5" '假如这是你的数据
For i = 1 To Len(a) '判断长度
b(i) = Mid(a, i, 1)
Next i
b(5) = "年"
For i = 6 To 11
If b(i) = "-" Then b(i) = "月"
If b(i) = " " Then b(i) = "日"
Next i
For i = 10 To 17
If b(i) = ":" Then
b(i) = "时"
If b(i - 2) = "时" Or b(i - 3) = "时" Then
b(i) = "分"
End If
End If
Next i
b(Len(a) + 1) = "秒"
For i = 1 To Len(a)
b(i) = ing(b(i))
Next i
For i = 1 To Len(a) + 1
x = x & b(i)
Next i
Print x 'X便是新的数据
End Sub

northwolves 2004-07-21

打赏
举报

format:

Format(CDate("2004-7-20 19:20:55"), "yyyy 年 m 月 d 日 h 时 n 分 s 秒 ")

myl 2004-07-21

打赏
举报

还有把~~~ 2004-2-4 9:0:5可以换成任意XXXX-X-X XX：XX：XX的格式

myl 2004-07-21

打赏
举报

对了，把19换成十九没做，，还是一九

myl 2004-07-21

打赏
举报

晕~~~既然用VB编那就好办嘛~~

Dim b(30)
Private Sub Command1_Click()
a = "2004-2-4 9:0:5" '假如这是你的数据
For i = 1 To Len(a) '判断长度
b(i) = Mid(a, i, 1)
Next i
b(5) = "年"
For i = 6 To 11
If b(i) = "-" Then b(i) = "月"
If b(i) = " " Then b(i) = "日"
Next i
For i = 10 To 17
If b(i) = ":" Then
b(i) = "时"
If b(i - 2) = "时" Or b(i - 3) = "时" Then
b(i) = "分"
End If
End If
Next i
b(Len(a) + 1) = "秒"
For i = 1 To Len(a) + 1
x = x & b(i)
Next i
Print x 'X便是新的数据
End Sub

另外，TTS是读音引擎，他可以直接读出文字，可以不要读音卡，有电脑有喇叭就行

结贴+分哦！！！~~~~

呵呵

starsoulxp 2004-07-20