🚀 go-pugleaf

$B:#0f(J@$B%I%k%U%#%s%7%9%F%`$G$9!#(J

$B:4!9LZ!!1Q<#(J wrote:
> 
> $B#T#y#p#e@k8@$r;HMQ$7$F!"<+J,$G7?$rDj5A$7$^$7$?!%(J
> $B$3$N7?$NJQ?t$K4pK\7?$NCM!JJ8;z7?!K$rBeF~$7$h$&$H;n$_$F$b%((J
> $B%i!<$K$J$C$F$7$^$$$^$9!%(J
> 
> $B<+J,$GDj5A$7$?7?$H4pK\7?$H$N4V$G7?JQ49$r9T$J$($^$9$+!%(J
> $B9T$J$($k$H$7$?$i$I$N$h$&$J=q$-J}$r$7$?$i$h$$$N$G$7$g$&$+!)(J
> 
> #   $B0J2<%5%s%W%k%3!<%G%#%s%0$G$9(J
> #   $B4X?t!V(JTODAY$B!W$NLa$jCM$K(J"19970908"$B$r@_Dj$7$F$$$k8D=j$G(J
> #  $B!V7?$,0c$$$^$9!W$HJ86g$r$$$o$l$^$9!%(J

($BN,(J)

> #    Function TODAY() As DATE_TYPE
> #      TODAY = "19970908"
> #    End Function

$B>/$J$/$H$b!"(JVB $B$G$O>e$N$h$&$J%3!<%G%#%s%0$O$G$-$J$$$O$:$G$9!#(J
$B4X?t(J TODAY $B$O<!$N$h$&$J%3!<%G%#%s%0$,@52r$G$7$g$&!#(J

Function TODAY() As DATE_TYPE
  TODAY.YYYY = "1997"
  TODAY.MM   = "09"
  TODAY.DD   = "08"
End Function

$B$I$&$7$F$b(J "YYYYMMDD" $B$N%U%)!<%^%C%H$G$d$j$?$$$H$$$&>l9g$O!"(J
$B<+J,$G7?JQ49$N4X?t$r:n$kI,MW$,$"$j$^$9!#(J
$B2<$,$=$NNc$G$9!#(J

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(J)$B%I%k%U%#%s%7%9%F%`(J  $B:#0f(J $B>:(J
imai@dolphin-system.co.jp
-------------------------------