Conversión del diccionario de fechas
Mostrar s como una cadena
dim nums(9) Como cadena nums(0) = "cero": nums( 1) = "uno": nums (2) = "dos": nums (3) = "tres": nums (4) = "cuatro": nums (5)
nums (6) = "Lu ":nums(7)="Qi":nums(8)="Ba":nums(9)="Jiu" sdate = formato(fecha 0, "aaammdd") para I = 1 a 4.
BDate = BDate & ampnums(Val(Mid(Sdate,I,1)))
Siguiente i
BDate = BDate & ampI = 5 a " Año" de 6
Si I = 5 y Val(Mid(Sdate,I,1)) = 1, entonces
Si Val(Mid(Sdate,I+1, 1 ) = 0, luego
BDate = BDate & nums(0) & nums(Val(Mid(Sdate, I, 1)) y amp "recoger"
Exportar a
Otro
BDate = BDate & ampnums(Val(Mid(Sdate,I,1)) y amp "recogido"
Si... entonces Will end
Otro
BDate = BDate & ampnums(Val(Mid(Sdate,I,1)))
Terminará si...
Siguiente I
BDate = BDate & ampI = "mes" del 7 al 8
Si I = 7 y Val(Mid(Sdate,I,1)) 》 0. = 1 entonces
Si Val(Mid(Sdate, I + 1, 1) = 0, entonces
BDate = BDate & ampnums(0)
BDate = BDate & ampnums(Val(Mid(Sdate,I,1)) y amp "recogido"
Exportar a
Otro
BDate = BDate & ampnums(Val(Mid(Sdate, I, 1)) y amp "recogido"
Terminará si
Otro
BDate = BDate & ampnums(Val(Mid(Sdate,I,1)))
Terminará si...
Siguiente I
BDate = BDate & amp "日"
MsgBox(BDate)
Función final