🚀 go-pugleaf

$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
#
#    Private Type DATE_TYPE
#        YYYY As String * 4
#        MM   As String * 2
#        DD   As String * 2
#    End Type
#    
#    Private Sub Form_Load()
#      Dim w_date As DATE_TYPE
#      w_date = TODAY()
#    End Sub
#    
#    Function TODAY() As DATE_TYPE
#      TODAY = "19970908"
#    End Function

$B#V#B#4$r;HMQ$7$F$$$^$9!%(B
$B$h$m$7$/$*4j$$$7$^$9!%(B

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