[求助]access中可有此日期轉(zhuǎn)換函數(shù)？

wd0001 · 發(fā)表于 2007-1-7 15:55:00

如：把1999-11-12轉(zhuǎn)換為一九九九年十一月十二日的函數(shù)，并在sql語(yǔ)言中運(yùn)用？

在線等，謝謝

rjacky · 發(fā)表于 2007-1-7 16:48:00

沒(méi)，可參考金額轉(zhuǎn)大寫的例子

wd0001 · 發(fā)表于 2007-1-7 16:51:00

可否詳細(xì)說(shuō)明

rjacky · 發(fā)表于 2007-1-7 18:27:00

搞定了！支持0001年到9999年。寫的好累啊，不過(guò)以后應(yīng)該也會(huì)用得上，里面是控件操作，樓主自行轉(zhuǎn)換為自定義函數(shù)用

Private Sub 轉(zhuǎn)換_Click()

Dim strNumber, strDate As String

strNumber = "一二三四五六七八九零"

If IsDate(Me.日期) Then

For i = 1 To 4

'如果用year函數(shù)，對(duì)于0120之類的年份會(huì)出錯(cuò)
strDate = strDate & Mid(strNumber, IIf(Mid(Format(Me.日期, "yyyy"), i, 1) = 0, 10, Mid(Format(Me.日期, "yyyy"), i, 1)), 1)
Next i

strDate = strDate & "年"

Select Case Month(Me.日期)
Case Is < 10
strDate = strDate & Mid(strNumber, Month(Me.日期), 1)
Case Is = 10
strDate = strDate & "十"
Case Is < 20
strDate = strDate & "十" & Mid(strNumber, Month(Me.日期) - 10, 1)
End Select

strDate = strDate & "月"

Select Case Day(Me.日期)
Case Is < 10
strDate = strDate & Mid(strNumber, Day(Me.日期), 1)
Case Is = 10
strDate = strDate & "十"
Case Is < 20
strDate = strDate & "十" & Mid(strNumber, Day(Me.日期) - 10, 1)
Case Is = 20
strDate = strDate & "二十"
Case Is < 30
strDate = strDate & "二十" & Mid(strNumber, Day(Me.日期) - 20, 1)
Case Is = 30
strDate = strDate & "三十"
Case Is < 40
strDate = strDate & "三十" & Mid(strNumber, Day(Me.日期) - 30, 1)
End Select

strDate = strDate & "日"
Me.輸出 = strDate
Else
MsgBox "靠！有這樣的日期嗎？！"
End If

End Sub

[此貼子已經(jīng)被作者于2007-1-7 10:30:40編輯過(guò)]

rjacky · 發(fā)表于 2007-1-7 23:16:00

真搞不懂在excel里面設(shè)置一下單元格格式的問(wèn)題，到了access里面要用vba才能搞定……

早上沒(méi)睡醒，剛才再研究了一下，發(fā)現(xiàn)原來(lái)還可以簡(jiǎn)單一些，現(xiàn)在應(yīng)該是最精簡(jiǎn)的吧？

Dim strDate As String

If IsDate(Me.日期) Then

For i = 1 To 4
strDate = strDate & Mid("零一二三四五六七八九", Mid(Format(Me.日期, "yyyy"), i, 1) + 1, 1)
Next i

strDate = strDate & "年" & MonthName(Month(Me.日期)) & Choose(Day(Me.日期) \ 10 + 1, "", "十", "二十", "三十") & Choose(Right(Day(Me.日期), 1) + 1, "", "一", "二", "三", "四", "五", "六", "七", "八", "九") & "日"

Me.輸出 = strDate

Else
MsgBox "靠！有這樣的日期嗎？！"
End If

zxzx2733 · 發(fā)表于 2007-1-9 04:36:00

按日期位數(shù)寫，高興用什么字體就用什么字體

Option Compare Database
Option Explicit

Public Function Mdate(Oldate) As String
On Error GoTo ErrA
Dim dat As Variant, datA, datAA, datAB, datAC, datAD, datBA, datBB, datBC, datCA, datCB, datCC As String

dat = CDate(Oldate)
datA = Format(dat, "yyyymmdd")

datAA = Mid("○一二三四五六七八九", Mid(datA, 1, 1) + 1, 1)
datAB = Mid("○一二三四五六七八九", Mid(datA, 2, 1) + 1, 1)
datAC = Mid("○一二三四五六七八九", Mid(datA, 3, 1) + 1, 1)
datAD = Mid("○一二三四五六七八九", Mid(datA, 4, 1) + 1, 1): Rem 年

datBA = Mid(datA, 5, 1)
If datBA = 0 Then
datBB = ""
ElseIf datBA = 1 Then
datBB = "十"
End If
datBC = Mid(" 一二三四五六七八九", Mid(datA, 6, 1) + 1, 1): Rem 月

datCA = Mid(datA, 7, 1)
If datCA = 0 Then
datCB = ""
ElseIf datCA = 1 Then
datCB = "十"
ElseIf datCA = 2 Then
datCB = "廿"
ElseIf datCA = 3 Then
datCB = "三十"
End If
datCC = Mid(" 一二三四五六七八九", Mid(datA, 8, 1) + 1, 1): Rem 日

Mdate = datAA & datAB & datAC & datAD & "年" & datBB & datBC & "月" & datCB & datCC & "日"
Mdate = Replace(Mdate, " ", "")
ErrA:
Exit Function
End Function

網(wǎng)頁(yè)格式不同，" 一二三四五六七八九",第一位數(shù)為空字符，傳上來(lái)了就沒(méi)有,重編輯一次