型の変換について．．．

Thread View: fj.lang.visualbasic

5 messages

[T] Back to Threads [V] Tree View [G] Group Articles

5 total messages Started by 佐々木英治 Tue, 09 Sep 1997 00:00

#1398

Author: 佐々木英治
Date: Tue, 09 Sep 1997 00:00

35 lines
1395 bytes


$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

Re: 型の変換について．．．

#1400

Author: Noboru Imai
Date: Wed, 10 Sep 1997 00:00

50 lines
1880 bytes


$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
-------------------------------

RE: 型の変換について．．．

#1401

Author: Death Wish
Date: Wed, 10 Sep 1997 00:00

21 lines
1221 bytes

In article <5v2t85$f4m$3@nn-tk001.ocn.ad.jp>, maedaco@blue.ocn.ne.jp ($B:4!9LZ(J
$B!!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
>
>#    Function TODAY() As DATE_TYPE
>#      TODAY = "19970908"
>#    End Function
>

$B%f!<%6!<Dj5A9=B$BN$KD>@\BeF~$7$F$OEvA3%(%i!<$K$J$j$^$9$M$'!#(J
$B$3$3$O(J LSET $B%9%F!<%H%a%s%H$r;H$o$J$$$H$$$1$J$$$G$7$g$&!#>\$7$/$O%X%k%W$r8+$F(J
$B$/$@$5$$!#(J
$B$?$@$7!"(J32Bit $BHG$r;H$C$F$$$k$N$G$"$l$P!"(JUNICODE$B$N9MN8$b$7$J$$$H$$$1$J$$$G$7(J
$B$g$&!#(J

Re: 型の変換について．．．

#1402

Author: 佐々木英治
Date: Wed, 10 Sep 1997 00:00

63 lines
2423 bytes


$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
>-------------------------------
>

RE: 型の変換について．．．

#1404

Author: Sato Masahiro
Date: Wed, 10 Sep 1997 00:00

18 lines
1219 bytes


In article <5v3r0p$25di$1@blackbird.asahi-net.or.jp>, deathwish@personal.email.ne.jp says...
>$B%f!<%6!<Dj5A9=B$BN$KD>@\BeF~$7$F$OEvA3%(%i!<$K$J$j$^$9$M$'!#(B
>$B$3$3$O(B LSET $B%9%F!<%H%a%s%H$r;H$o$J$$$H$$$1$J$$$G$7$g$&!#>\$7$/$O%X%k%W$r8+$F(B
>$B$/$@$5$$!#(B
>$B$?$@$7!"(B32Bit $BHG$r;H$C$F$$$k$N$G$"$l$P!"(BUNICODE$B$N9MN8$b$7$J$$$H$$$1$J$$$G$7(B
>$B$g$&!#(B

 LSET $B%9%F!<%H%a%s%H$O!"J8;zNs<0$r%f!<%6Dj5A7?JQ?t$XBeF~$9$k$3$H$O(B
$B$G$-$J$$$h$&$J5$$,(B...$B!#(B($B;H$C$?$3$H$O$"$j$^$;$s$,(B)

 LSET $B%9%F!<%H%a%s%H$O$"$/$^$GJ8;zNs<0$rJ8;zNsJQ?t$K(B($B5M$a$F(B)$BBeF~(B
$B$7$?$$$H$-$N$_$K$H$I$a!":#2s$N>l9g$OJQ49$N0Y$N4X?t$r:n@.$9$kJ}$,(B
$BNI$$$H;W$$$^$9!#(B

-- 
$B:4F#@59((B <masahiro@cij.co.jp>

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads