|
▼Hirofumi さん:
返信ありがとうございます。
>横から失礼します
>現実にはどうなっているのですか
>データベースて、Excelのシートに作られているの?
EXCELのシートに作られてます
>日付の形は
>「平成15年11月12日」←これです。
>場合によっては、マクロか関数作って、シリアル値に変換する事は出来ないのですか?
すいません。シリアル値がわかりません・・・後で調べときます・・・
>例えば、「11月12日」や「11月12日」だとすると平成15年で善いのですか?
「平成15年11月23日」と「平成15年11月30日」のデータを比較したいです。
具体的に言うこれら2つデータは値が違うのである処理をしたい・・・です
>
>例として、以下の様なユーザー定義関数を作ります
>現在の日付の隣りに列を挿入します
>其処に作成した関数でシリアル値に変換します
シリアル値の意味がなんとなくわかりました。
こう思ってください日付のデータであって日付のデータでない・・・
ほかのデータベースから機械的にエクセルに変換したので日付を日付として認識していないようです。
つまり「1日目」とか「1回」とか数字に文字が入ってるもの同士で比較できたら解決すると思うのですが・・・
「1回目」と「2回目」というデータは比較でいないですかね?
これにもシリアル値があれば解決しそうですが・・・
すいません初歩的な質問で・・・本に載ってないもので・・・いい本ないですかね・・・
>其れを、形式を選択して張り付けで、値に直し、セルの書式を日付にします
>現在の日付と比較して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
|
|