まぁいろいろやりかたあるけど、 IF S*10000+M*100+D>=15821004 THEN GOTO ... とかが楽じゃないかね