VB读日期时间的问题

Question

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

Answer 1

用TTS读音引擎？你说的不是很清楚诶~

Answer 2

以下声音文件就够了：
yi,er,san,si,wu,liu,qi,ba,jiu,shi,ling,nian,yue,ri,shi,fen,miao

Answer 3

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

Answer 4

晕~~~既然用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是读音引擎，他可以直接读出文字，可以不要读音卡，有电脑有喇叭就行结贴+分哦！！！~~~~呵呵

Answer 5

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

Answer 6

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

Answer 7

按你要求
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 FunctionPrivate 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