🚀 go-pugleaf

$B:#0f$5$s!"$"$j$,$H$&$4$6$$$^$7$?!%(B

$B85!9#C#O#B#O#L$+$i$O$8$a$?$b$N$G!"$I$&$7$F$b9=B$BN$C$]$$$b$N$r(B
$B;H$$$?$/$J$C$F$7$^$&$N$+$b$7$l$^$;$s!%(B
$B%3!<%G%#%s%0Nc$r;29M$K$5$;$F$$$?$@$-$^$9!%(B

//  
    maedaco@blue.ocn.ne.jp
    $BA0ED>K;R!J3t!K!&>pJs%7%9%F%`<<(B
                           $B:4!9LZ(B

====================================================================

In article <3415E12C.43D8@dolphin-system.co.jp>, Noboru Imai  says...
>$B:4!9LZ!!1Q<#(B wrote:
>> 
>> $B#T#y#p#e@k8@$r;HMQ$7$F!"<+J,$G7?$rDj5A$7$^$7$?!%(B
>> $B$3$N7?$NJQ?t$K4pK\7?$NCM!JJ8;z7?!K$rBeF~$7$h$&$H;n$_$F$b%((B
>> $B%i!<$K$J$C$F$7$^$$$^$9!%(B
>> 
>> $B<+J,$GDj5A$7$?7?$H4pK\7?$H$N4V$G7?JQ49$r9T$J$($^$9$+!%(B
>> $B9T$J$($k$H$7$?$i$I$N$h$&$J=q$-J}$r$7$?$i$h$$$N$G$7$g$&$+!)(B
>> 
>> #   $B0J2<%5%s%W%k%3!<%G%#%s%0$G$9(B
>> #   $B4X?t!V(BTODAY$B!W$NLa$jCM$K(B"19970908"$B$r@_Dj$7$F$$$k8D=j$G(B
>> #  $B!V7?$,0c$$$^$9!W$HJ86g$r$$$o$l$^$9!%(B
>
>($BN,(B)
>
>> #    Function TODAY() As DATE_TYPE
>> #      TODAY = "19970908"
>> #    End Function
>
>$B>/$J$/$H$b!"(BVB $B$G$O>e$N$h$&$J%3!<%G%#%s%0$O$G$-$J$$$O$:$G$9!#(B
>$B4X?t(B TODAY $B$O<!$N$h$&$J%3!<%G%#%s%0$,@52r$G$7$g$&!#(B
>
>Function TODAY() As DATE_TYPE
>  TODAY.YYYY = "1997"
>  TODAY.MM   = "09"
>  TODAY.DD   = "08"
>End Function
>
>$B$I$&$7$F$b(B "YYYYMMDD" $B$N%U%)!<%^%C%H$G$d$j$?$$$H$$$&>l9g$O!"(B
>$B<+J,$G7?JQ49$N4X?t$r:n$kI,MW$,$"$j$^$9!#(B
>$B2<$,$=$NNc$G$9!#(B
>
>Function TypeConv(StrDate As String) As DATE_TYPE
>  TypeConv.YYYY = Left(StrDate,4)
>  TypeConv.MM   = Mid(StrDate,5,2)
>  TypeConv.DD   = Right(StrDate,2)
>End Function
>
>Sub Main
>  TODAY = TypeConv("19970908")
>End Sub
>
>-------------------------------
>($B3t(B)$B%I%k%U%#%s%7%9%F%`(B  $B:#0f(B $B>:(B
>imai@dolphin-system.co.jp
>-------------------------------
>