| |
横から失礼します
現実にはどうなっているのですか
データベースて、Excelのシートに作られているの？
日付の形は
「１１月１２日」？
「11月12日」？
「平成１５年１１月１２日」？
「平成15年11月12日」？
場合によっては、マクロか関数作って、シリアル値に変換する事は出来ないのですか？
例えば、「１１月１２日」や「11月12日」だとすると平成15年で善いのですか？
例として、以下の様なユーザー定義関数を作ります
現在の日付の隣りに列を挿入します
其処に作成した関数でシリアル値に変換します
其れを、形式を選択して張り付けで、値に直し、セルの書式を日付にします
現在の日付と比較してOKなら現在の日付列を削除します
なんて事で出来ないの？
Public Function DateConversion(vntValue As Variant) As Variant
Dim strTmp As String
DateConversion = vntValue
If IsDate(StrConv(vntValue, vbNarrow)) Then
strTmp = StrConv(vntValue, vbNarrow)
Else
strTmp = "平成15年" & StrConv(vntValue, vbNarrow)
End If
If IsDate(strTmp) Then
DateConversion = DateValue(strTmp)
End If
End Function
|
|
Hirofumi
- 03/7/27(日) 17:41 -
